15 lines
415 B
Haskell
15 lines
415 B
Haskell
module Main where
|
|
|
|
import qualified Data.ByteString.Char8 as ByteString
|
|
import MiniJson.Greeting (greetFromJson)
|
|
import System.Exit (die)
|
|
|
|
main :: IO ()
|
|
main =
|
|
case
|
|
( greetFromJson (ByteString.pack "{\"name\":\"flakes\"}")
|
|
, greetFromJson (ByteString.pack "{\"missing\":\"name\"}")
|
|
) of
|
|
(Right "hello, flakes, from aeson", Left _) -> putStrLn "test passed"
|
|
_ -> die "unexpected parser result"
|