Parser combinators, JSON Parser
This commit is contained in:
commit
b078a62ffa
13 changed files with 777 additions and 0 deletions
9
app/Main.hs
Normal file
9
app/Main.hs
Normal file
|
@ -0,0 +1,9 @@
|
|||
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)
|
Loading…
Add table
Add a link
Reference in a new issue