Skip to content

Instantly share code, notes, and snippets.

@chrisdone

chrisdone/gist:2235267

Created March 29, 2012 09:08
Show Gist options
  • Save chrisdone/2235267 to your computer and use it in GitHub Desktop.
Save chrisdone/2235267 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
import Data.AttoLisp
import Language.Haskell.Exts
main = interact (result (error . show) (encode . transform) . parseExp)
result _ g (ParseOk o) = g o
result f _ fail@ParseFailed{} = f fail
transform = undefined
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment