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