Skip to content

Instantly share code, notes, and snippets.

Show Gist options
  • Save rightfold/50ab382ede3300d39d11 to your computer and use it in GitHub Desktop.
Save rightfold/50ab382ede3300d39d11 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