16 lines
722 B
Haskell
16 lines
722 B
Haskell
-- usage:
|
|
-- > npm run build
|
|
-- > stack ghci -- testdata/avs_json.hs
|
|
|
|
import Prelude
|
|
import Data.String
|
|
import qualified Data.ByteString.Lazy as B
|
|
import Data.Aeson
|
|
import Utils.Avs
|
|
|
|
|
|
status1 :: B.ByteString
|
|
status1 = fromString "[{\"PersonID\":10233,\"personCardStatus\":[{\"CardNo\":\"01234567\",\"VersionNo\":\"4\",\"CardColor\":\"Gelb\",\"CardAreas\":\"LY\",\"Valid\":\"true\"},{\"CardNo\":\"00001111\",\"VersionNo\":\"4\",\"CardColor\":\"Rot\",\"CardAreas\":\"F\",\"Valid\":\"true\"}]},{\"PersonID\":10444,\"personCardStatus\":[{\"CardNo\":\"11111111\",\"VersionNo\":\"4\",\"CardColor\":\"Gelb\",\"CardAreas\":\"LF\",\"Valid\":\"false\"}]}]"
|
|
|
|
test1 :: Either String AvsResponseStatus
|
|
test1 = eitherDecode status1 |