NmcRpc.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 module NmcRpc   ( NmcRes(..)
   4                 ) where
   5
   6 import Data.ByteString.Lazy (ByteString)
   7 import Data.Text as T (unpack)
   8 import Data.List.Split
   9 import Data.Char
  10 import Data.Map as M (Map, lookup)
  11 import Control.Applicative ((<$>), (<*>), empty)
  12 import Data.Aeson
  13
  14 data NmcRes = NmcRes    { resName       :: String
  15                         , resValue      :: ByteString -- string with NmcDom
  16                         , resTxid       :: String
  17                         , resAddress    :: String
  18                         , resExpires_in :: Int
  19                         } deriving (Show)
  20 instance FromJSON NmcRes where
  21         parseJSON (Object o) = NmcRes
  22                 <$> o .: "name"
  23                 <*> o .: "value"
  24                 <*> o .: "txid"
  25                 <*> o .: "address"
  26                 <*> o .: "expires_in"
  27         parseJSON _ = empty