11 lines
249 B
Haskell
11 lines
249 B
Haskell
|
import Network.Wreq
|
||
|
|
import Control.Lens
|
||
|
|
import Data.Aeson
|
||
|
|
import Json
|
||
|
|
|
||
|
|
main = do
|
||
|
|
req <- get "http://namecoin.dns:8088/id/rnhmjoj"
|
||
|
|
case decode (req ^. responseBody) of
|
||
|
|
Just res -> putStrLn $ repr res 0
|
||
|
|
Nothing -> putStrLn "Error parsing data"
|