From: Matthijs Kooijman <matthijs@stdin.nl>
Date: Mon, 8 Mar 2010 11:07:27 +0000 (+0100)
Subject: Make listBindings return IO () instead of IO [()].
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=dd0b3f0f95a335492533202a5801d7df9edd2762;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

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.
---

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