9 lines
263 B
Haskell
9 lines
263 B
Haskell
module Main (main) where
|
|
|
|
import qualified Data.Text as Text
|
|
import qualified Data.Text.IO as TextIO
|
|
import qualified Language.Json as Json
|
|
import Language.Json.Parser (runParser)
|
|
|
|
main :: IO ()
|
|
main = TextIO.interact (Text.pack . show . runParser Json.document)
|