Copy initial state when specializing functions.
[matthijs/master-project/cλash.git] / cλash-nolibdir / CLasH / Utils.hs
1 module CLasH.Utils where
2   
3 import qualified GHC.Paths
4 import qualified "clash" CLasH.Utils as Original (listBindings, listBind)
5
6 -- | Show the core structure of all the binds in the given file.
7 listBindings :: [FilePath] -> IO [()]
8 listBindings filenames = do
9   let libdir = GHC.Paths.libdir
10   Original.listBindings libdir filename
11
12 -- | Show the core structure of the given binds in the given file.  
13 listBind :: [FilePath] -> String -> IO ()
14 listBind filename name = do
15   let libdir = GHC.Paths.libdir
16   Original.listBind libdir filename name