Skip to content

Instantly share code, notes, and snippets.

@neongreen
neongreen / JSONParser.hs
Last active October 12, 2015 22:57 — forked from zearen/JSONParser.hs
A JSON parser/printer
{-# LANGUAGE NoMonomorphismRestriction, FlexibleContexts #-}
import Data.Functor
import Control.Monad
import Data.List
import qualified Data.Map as M
import Text.Megaparsec
import Text.Megaparsec.Lexer (signed, float, integer)
import qualified Text.Megaparsec.Lexer as L