From dd0b3f0f95a335492533202a5801d7df9edd2762 Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Mon, 8 Mar 2010 12:07:27 +0100 Subject: [PATCH] Make listBindings return IO () instead of IO [()]. The previous type caused ghci to print an extra list of units after the regular output, while it simple ignores the single tuple now. --- "c\316\273ash/CLasH/Utils/GhcTools.hs" | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git "a/c\316\273ash/CLasH/Utils/GhcTools.hs" "b/c\316\273ash/CLasH/Utils/GhcTools.hs" index c407436..f1fe6ba 100644 --- "a/c\316\273ash/CLasH/Utils/GhcTools.hs" +++ "b/c\316\273ash/CLasH/Utils/GhcTools.hs" @@ -27,7 +27,7 @@ import CLasH.Translator.TranslatorTypes import CLasH.Translator.Annotations import CLasH.Utils -listBindings :: FilePath -> [FilePath] -> IO [()] +listBindings :: FilePath -> [FilePath] -> IO () listBindings libdir filenames = do (cores,_,_) <- loadModules libdir filenames Nothing let binds = concatMap (CoreSyn.flattenBinds . HscTypes.cm_binds) cores @@ -35,6 +35,7 @@ listBindings libdir filenames = do putStr "\n=========================\n" let classes = concatMap (HscTypes.typeEnvClasses . HscTypes.cm_types) cores mapM listClass classes + return () listBinding :: (CoreSyn.CoreBndr, CoreSyn.CoreExpr) -> IO () listBinding (b, e) = do -- 2.30.2