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

Fixed naming-cons bug in monomorphizer

Browse source
This commit is contained in:
Rakarake 2023-05-05 11:28:40 +02:00
parent 4aa72beccb
commit fe25f18eb7
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Monomorphizer/Monomorphizer.hs
View file

@ -196,11 +196,13 @@ appear as expressions in the tree, or as patterns in case-expressions.
-} -}
morphCons :: M.Type -> Ident -> EnvM () morphCons :: M.Type -> Ident -> EnvM ()
morphCons expectedType ident = do morphCons expectedType ident = do
--trace ("Tjofras:" ++ show (newName expectedType ident)) $ return ()
let ident' = newName expectedType ident
maybeD <- getInputData ident maybeD <- getInputData ident
case maybeD of case maybeD of
Nothing -> error $ "identifier '" ++ show ident ++ "' not found" Nothing -> error $ "identifier '" ++ show ident ++ "' not found"
Just d -> do Just d -> do
modify (\output -> Map.insert ident (Data expectedType d) output) modify (\output -> Map.insert ident' (Data expectedType d) output)
-- | Converts literals from input to output tree. -- | Converts literals from input to output tree.
convertLit :: T.Lit -> M.Lit convertLit :: T.Lit -> M.Lit