projects
/
matthijs
/
master-project
/
cλash.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Changed name of cabal file so it will work in the GHC build tree
[matthijs/master-project/cλash.git]
/
cλash
/
CLasH
/
Translator
/
TranslatorTypes.hs
diff --git
a/cλash/CLasH/Translator/TranslatorTypes.hs
b/cλash/CLasH/Translator/TranslatorTypes.hs
index 1286a41bd55d6846c23074362b8633ecd0cba53c..0ab3b878a132542bbcd011b368dd254622394df8 100644
(file)
--- a/
cλash/CLasH/Translator/TranslatorTypes.hs
+++ b/
cλash/CLasH/Translator/TranslatorTypes.hs
@@
-3,7
+3,7
@@
-- separate module to prevent circular dependencies in Pretty for example.
--
{-# LANGUAGE TemplateHaskell #-}
-- separate module to prevent circular dependencies in Pretty for example.
--
{-# LANGUAGE TemplateHaskell #-}
-module TranslatorTypes where
+module
CLasH.Translator.
TranslatorTypes where
import qualified Control.Monad.Trans.State as State
import qualified Data.Map as Map
import qualified Control.Monad.Trans.State as State
import qualified Data.Map as Map
@@
-14,19
+14,11
@@
import qualified HscTypes
import qualified Language.VHDL.AST as AST
import qualified Language.VHDL.AST as AST
-import FlattenTypes
-import VHDLTypes
-import HsValueMap
-
-
--- | A map from a HsFunction identifier to various stuff we collect about a
--- function along the way.
-type FlatFuncMap = Map.Map HsFunction FlatFunction
+import CLasH.VHDL.VHDLTypes
data TranslatorSession = TranslatorSession {
tsCoreModule_ :: HscTypes.CoreModule, -- ^ The current module
data TranslatorSession = TranslatorSession {
tsCoreModule_ :: HscTypes.CoreModule, -- ^ The current module
- tsNameCount_ :: Int, -- ^ A counter that can be used to generate unique names
- tsFlatFuncs_ :: FlatFuncMap -- ^ A map from HsFunction to FlatFunction
+ tsNameCount_ :: Int -- ^ A counter that can be used to generate unique names
}
-- Derive accessors
}
-- Derive accessors