1 module CLasH.Translator where
3 import qualified GHC.Paths
4 import qualified "clash" CLasH.Translator as Original (makeVHDL, makeVHDLAnn, listBindings, listBind)
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
11 makeVHDLAnn :: String -> IO ()
12 makeVHDLAnn filename = do
13 let libdir = GHC.Paths.libdir
14 Original.makeVHDLAnn libdir filename
16 listBindings :: String -> IO [()]
17 listBindings filename = do
18 let libdir = GHC.Paths.libdir
19 Original.listBindings libdir filename
21 listBind :: String -> String -> IO ()
22 listBind filename name = do
23 let libdir = GHC.Paths.libdir
24 Original.listBind libdir filename name