Skip to content

Instantly share code, notes, and snippets.

@dminuoso

dminuoso/f.hs Secret

Last active December 1, 2020 15:16
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dminuoso/cbe72c1dee8712d0472cfcdd91b87b02 to your computer and use it in GitHub Desktop.
Save dminuoso/cbe72c1dee8712d0472cfcdd91b87b02 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
f.hs
data JSON where
MkNull :: JSON
MkNumber :: Number' -> JSON
MkString :: String -> JSON
MkBool :: Bool -> JSON
MkUndefined :: JSON
MkObject :: [(String, JSON)] -> JSON
MkList :: [JSON] -> JSON
deriving Show
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment