Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

duplicate signatures disallowed

Browse source
This commit is contained in:
sebastianselander 2023-03-24 11:27:19 +01:00
parent aa73f147f0
commit 32f8a3e8a9
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/TypeChecker/TypeChecker.hs
View file

@ -85,8 +85,9 @@ checkPrg (Program bs) = do
preRun :: [Def] -> Infer ()
preRun [] = return ()
preRun (x : xs) = case x of
-- TODO: Check for no overlapping signature definitions
DSig (Sig n t) -> insertSig (coerce n) (Just $ toNew t) >> preRun xs
DSig (Sig n t) -> do
gets (M.member (coerce n) . sigs) >>= flip when (throwError $ "Duplicate signatures for function '" ++ printTree n ++ "'")
insertSig (coerce n) (Just $ toNew t) >> preRun xs
DBind (Bind n _ _) -> do
s <- gets sigs
case M.lookup (coerce n) s of