14 lines
651 B
Haskell
14 lines
651 B
Haskell
|
|
|
|
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 |