NikolajDanger/2024B1-AP
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

✨

Browse Source
This commit is contained in:
Nikolaj Gade
2024-09-20 17:07:59 +02:00
parent 69b947f966
commit 0db8862809
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
a2/a2-handout/src/APL/Check.hs
View File

@ -27,9 +27,9 @@ instance Monad CheckM where
let CheckM y = f x' let CheckM y = f x'
in y vars in y vars
elem' :: VName -> [VName] -> Bool inList :: VName -> [VName] -> Bool
elem' _ [] = False inList _ [] = False
elem' x (y : ys) = if x == y then True else elem' x ys inList x (y : ys) = if x == y then True else inList x ys
askVars :: CheckM Vars askVars :: CheckM Vars
askVars = CheckM $ \vars -> Right vars askVars = CheckM $ \vars -> Right vars
@ -68,7 +68,7 @@ check (KvGet e1) = check e1
check (KvPut e1 e2) = checkBinOp e1 e2 check (KvPut e1 e2) = checkBinOp e1 e2
check (Var v) = do check (Var v) = do
vars <- askVars vars <- askVars
if elem' v vars if inList v vars
then pure () then pure ()
else CheckM $ \_vars -> Left $ "Variable not in scope: "++v else CheckM $ \_vars -> Left $ "Variable not in scope: "++v
check (Let var e1 e2) = do check (Let var e1 e2) = do