X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;ds=sidebyside;f=c%CE%BBash%2FCLasH%2FHardwareTypes.hs;h=682cd05c46fbd2a1718216b3847d30e9b42360f2;hb=655444253776431f0949cafce2b991d12613fe04;hp=b48760a9db9a9f3720e90760278fd3b2b033a750;hpb=de13e862545494042f299f4a894dcc3a2f771163;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git "a/c\316\273ash/CLasH/HardwareTypes.hs" "b/c\316\273ash/CLasH/HardwareTypes.hs"
index b48760a..682cd05 100644
--- "a/c\316\273ash/CLasH/HardwareTypes.hs"
+++ "b/c\316\273ash/CLasH/HardwareTypes.hs"
@@ -8,6 +8,8 @@ module CLasH.HardwareTypes
   , module Data.SizedWord
   , module Prelude
   , Bit(..)
+  , State(..)
+  , Vector
   , hwand
   , hwor
   , hwxor
@@ -19,7 +21,8 @@ import Prelude hiding (
   null, length, head, tail, last, init, take, drop, (++), map, foldl, foldr,
   zipWith, zip, unzip, concat, reverse, iterate )
 import Types
-import Data.Param.TFVec
+import qualified Data.Param.TFVec as TFVec
+import Data.Param.TFVec hiding (TFVec)
 import Data.RangedWord
 import Data.SizedInt
 import Data.SizedWord 
@@ -27,6 +30,10 @@ import Data.SizedWord
 import Language.Haskell.TH.Lift
 import Data.Typeable
 
+newtype State s = State s deriving (P.Show)
+
+type Vector = TFVec.TFVec
+
 -- The plain Bit type
 data Bit = High | Low
   deriving (P.Show, P.Eq, P.Read, Typeable)