Reflect API changes of clash in clash-nolibdir

[matthijs/master-project/cλash.git] / cλash-nolibdir / CLasH / Utils.hs

diff --git a/cλash-nolibdir/CLasH/Utils.hs b/cλash-nolibdir/CLasH/Utils.hs
new file mode 100644 (file)
index 0000000..14b1857
--- /dev/null
+++ b/cλash-nolibdir/CLasH/Utils.hs
@@ -0,0 +1,16 @@
+module CLasH.Utils where
+  
+import qualified GHC.Paths
+import qualified "clash" CLasH.Utils as Original (listBindings, listBind)
+
+-- | Show the core structure of all the binds in the given file.
+listBindings :: [FilePath] -> IO [()]
+listBindings filenames = do
+  let libdir = GHC.Paths.libdir
+  Original.listBindings libdir filename
+
+-- | Show the core structure of the given binds in the given file.  
+listBind :: [FilePath] -> String -> IO ()
+listBind filename name = do
+  let libdir = GHC.Paths.libdir
+  Original.listBind libdir filename name
\ No newline at end of file