Merge branch 'master' of git://github.com/christiaanb/clash into cλash
[matthijs/master-project/cλash.git] / cλash-nolibdir / CLasH / Translator.hs
1 module CLasH.Translator where
2
3 import qualified GHC.Paths
4 import qualified "clash" CLasH.Translator as Original (makeVHDL, makeVHDLAnn, listBindings, listBind)
5
6 makeVHDL :: String -> String -> Bool -> IO ()
7 makeVHDL filename name stateful = do
8   let libdir = GHC.Paths.libdir
9   Original.makeVHDL libdir filename name stateful
10   
11 makeVHDLAnn :: String -> IO ()
12 makeVHDLAnn filename = do
13   let libdir = GHC.Paths.libdir
14   Original.makeVHDLAnn libdir filename
15
16 listBindings :: String -> IO [()]
17 listBindings filename = do
18   let libdir = GHC.Paths.libdir
19   Original.listBindings libdir filename
20   
21 listBind :: String -> String -> IO ()
22 listBind filename name = do
23   let libdir = GHC.Paths.libdir
24   Original.listBind libdir filename name