Skip to content

Instantly share code, notes, and snippets.

Created August 5, 2014 08:23
Show Gist options
  • Save anonymous/15042bf07555e7ed9934 to your computer and use it in GitHub Desktop.
Save anonymous/15042bf07555e7ed9934 to your computer and use it in GitHub Desktop.
data TType = TypeInt | TypeBool | TypeVec TType
data TExpr a where
TInt :: Int -> TExpr Int
TBool :: Bool -> TExpr Bool
TIVar :: StrictText -> TExpr Int
TBVar :: StrictText -> TExpr Bool
TSum :: [TExpr Int] -> TExpr Int
TVecGet ::
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment