The previous type caused ghci to print an extra list of units after the
regular output, while it simple ignores the single tuple now.
import CLasH.Translator.Annotations
import CLasH.Utils
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
listBindings libdir filenames = do
(cores,_,_) <- loadModules libdir filenames Nothing
let binds = concatMap (CoreSyn.flattenBinds . HscTypes.cm_binds) cores
putStr "\n=========================\n"
let classes = concatMap (HscTypes.typeEnvClasses . HscTypes.cm_types) cores
mapM listClass classes
putStr "\n=========================\n"
let classes = concatMap (HscTypes.typeEnvClasses . HscTypes.cm_types) cores
mapM listClass classes
listBinding :: (CoreSyn.CoreBndr, CoreSyn.CoreExpr) -> IO ()
listBinding (b, e) = do
listBinding :: (CoreSyn.CoreBndr, CoreSyn.CoreExpr) -> IO ()
listBinding (b, e) = do