rnhmjoj/rosa
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adjust whitespaces

Browse Source
This commit is contained in:
Rnhmjoj 2014-11-22 15:52:47 +01:00
parent 4f497ae881
commit 8902c819c4
1 changed files with 35 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Main.hs
View File

@ -24,7 +24,8 @@ data Name = Name
parser :: ParserSpec Name parser :: ParserSpec Name
parser = Name parser = Name
`parsedBy` reqPos "name" `Descr` "Namecoin name id" `parsedBy` reqPos "name" `Descr` "Namecoin name id"
`andBy` optPos "http://dns.dnschain.net/" "url" `Descr` "Use custom dnschain API url" `andBy` optPos "http://dns.dnschain.net/" "url"
`Descr` "Use custom dnschain API url"
`andBy` boolFlag "local" `Descr` "Use local namecoind db" `andBy` boolFlag "local" `Descr` "Use local namecoind db"
`andBy` boolFlag "block" `Descr` "Show blockchain data (require local connecton)" `andBy` boolFlag "block" `Descr` "Show blockchain data (require local connecton)"
`andBy` boolFlag "raw" `Descr` "Print raw JSON data" `andBy` boolFlag "raw" `Descr` "Print raw JSON data"
@ -37,9 +38,9 @@ exec args@Name{..} =
if local if local
then do then do
out <- readProcess "namecoind" ["name_show", name] "" out <- readProcess "namecoind" ["name_show", name] ""
case decode $ C.pack out of case decode (C.pack out) of
Just res -> do Just res -> do
putStrLn $ repr value putStrLn (repr value)
when block $ putStrLn (repr extra) when block $ putStrLn (repr extra)
where where
value = fromJust . decode . C.pack $ res |: "value" value = fromJust . decode . C.pack $ res |: "value"
@ -47,10 +48,10 @@ exec args@Name{..} =
Nothing -> putStrLn "Error parsing data" Nothing -> putStrLn "Error parsing data"
else do else do
req <- get (url ++ name) req <- get (url ++ name)
print args
let body = req ^. responseBody let body = req ^. responseBody
if raw if raw
then print body then print body
else case decode body of else putStrLn $
Just res -> putStrLn $ repr res case decode body of
Nothing -> putStrLn "Error parsing data" Just res -> repr res
Nothing -> "Error parsing data"