carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-10-05 17:47:30 +03:00
Code Issues Projects Releases Wiki Activity

fix: keep old xobj for now

Browse Source
This commit is contained in:
Erik Svedäng 2021-10-18 16:53:54 +02:00
parent a7c368f1ec
commit 5d4d6f1c1d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/InitialTypes.hs
View File

@ -98,7 +98,7 @@ initialTypes typeEnv rootEnv root = evalState (visit rootEnv root) 0
If -> pure (Left (InvalidObj If xobj))
While -> pure (Left (InvalidObj While xobj))
Do -> pure (Left (InvalidObj Do xobj))
m@(Mod _ _) -> pure (Left (InvalidObj m root))
m@(Mod _ _) -> pure (Left (InvalidObj m xobj))
e@(Deftype _) -> pure (Left (InvalidObj e xobj))
e@(External _) -> pure (Left (InvalidObj e xobj))
e@(ExternalType _) -> pure (Left (InvalidObj e xobj))