Commit 59eb592a authored by Finn Teegen's avatar Finn Teegen
Browse files

Fix warnings

parent 07737569
......@@ -346,11 +346,11 @@ matchInterface ifn i = do
writeFlat :: Options -> CompilerEnv -> CS.Module Type -> IL.Module -> CYIO ()
writeFlat opts env mdl il = do
dumpWith opts show (pPrint . genFlatCurry) DumpTypedFlatCurry (env, afcy)
_ <- dumpWith opts show (pPrint . genFlatCurry) DumpTypedFlatCurry (env, afcy)
when afcyTarget $ liftIO $ FC.writeFlatCurry (useSubDir afcyName) afcy
when tfcyTarget $ liftIO $ FC.writeFlatCurry (useSubDir tfcyName) tfcy
when fcyTarget $ do
dumpWith opts show pPrint DumpFlatCurry (env, fcy)
_ <- dumpWith opts show pPrint DumpFlatCurry (env, fcy)
liftIO $ FC.writeFlatCurry (useSubDir fcyName) fcy
writeFlatIntf opts env fcy
where
......
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