💕 Adding assignment 2

a2/a2-handout/src/APL/Check.hs

@@ -0,0 +1,13 @@
+module APL.Check (checkExp, Error) where
+
+import APL.AST (Exp (..), VName)
+
+type Error = String
+
+newtype CheckM a = CheckM () -- TODO - give this a proper definition.
+
+check :: Exp -> CheckM ()
+check = undefined
+
+checkExp :: Exp -> Maybe Error
+checkExp = undefined