Commit 33812f39 authored by Finn Teegen's avatar Finn Teegen
Browse files

Keep infix declarations in desugaring

parent 717771e8
...@@ -166,7 +166,7 @@ desugarModuleDecls ds = do ...@@ -166,7 +166,7 @@ desugarModuleDecls ds = do
ds' <- concatMapM dsRecordDecl ds -- convert record decls to data decls ds' <- concatMapM dsRecordDecl ds -- convert record decls to data decls
ds'' <- mapM dsClassAndInstanceDecl ds' ds'' <- mapM dsClassAndInstanceDecl ds'
ds''' <- dsDeclGroup ds'' ds''' <- dsDeclGroup ds''
return $ filter (liftM2 (||) isTypeOrClassDecl isInstanceDecl) ds'' ++ ds''' return $ filter (not . liftM2 (||) isValueDecl isTypeSig) ds'' ++ ds'''
-- ----------------------------------------------------------------------------- -- -----------------------------------------------------------------------------
-- Desugaring of class and instance declarations -- Desugaring of class and instance declarations
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment