File: Unit.hs

package info (click to toggle)
haskell-json 0.11-2
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 304 kB
  • sloc: haskell: 1,517; makefile: 15
file content (12 lines) | stat: -rw-r--r-- 288 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
 

import Text.JSON
import Network.RPC.JSON
import System.Exit

main = do
    case (decode test1 :: Result JSRequest) of
         Ok _ -> exitWith ExitSuccess


test1 = 
    "{\"method\":\"feed.add\",\"params\":{\"uri\":\"http://rss.slashdot.org/Slashdot/slashdot\"},\"version\":\"1.1\" }"