Skip to content

Instantly share code, notes, and snippets.

@joshcough

joshcough/gist:e6eaf6b3cf52c1da4911

Created May 25, 2015 22:21
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 joshcough/e6eaf6b3cf52c1da4911 to your computer and use it in GitHub Desktop.
Save joshcough/e6eaf6b3cf52c1da4911 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
extT :: Thrist Compiler1 i o -> Extension
extT t = extT' t "X86" where
extT' :: Thrist Compiler1 i o -> String -> Extension
extT' Nil e = e
extT' (Cons (Compiler1 _ ext) t) _ = extT' t ext
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment