X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Fc%CE%BBash.git;a=blobdiff_plain;f=clash%2FData%2FParam%2FInteger.hs;h=a57c0aa0f853b5e8f9a2bbf39747ef7ccf872b12;hp=4e48d14dc01d29b8a482d7d051106d098d235370;hb=30969fa41ee30295f00cf089f4ee4385bb709871;hpb=a37aac300ad93f0fd5edbed645655c2af2915002

diff --git a/clash/Data/Param/Integer.hs b/clash/Data/Param/Integer.hs
index 4e48d14..a57c0aa 100644
--- a/clash/Data/Param/Integer.hs
+++ b/clash/Data/Param/Integer.hs
@@ -2,12 +2,18 @@ module Data.Param.Integer
   ( Signed(..)
   , Unsigned(..)
   , Index (..)
+  , HWBits(..)
   ) where
 
 import Types
+import qualified Data.Bits as B
 
 newtype (NaturalT nT) => Signed nT = Signed Integer
 
 newtype (NaturalT nT) => Unsigned nT = Unsigned Integer
 
-newtype (PositiveT upper) => Index upper = Index Integer
\ No newline at end of file
+newtype (PositiveT upper) => Index upper = Index Integer
+
+class (B.Bits a) => HWBits a where
+  shiftL :: a -> a -> a
+  shiftR :: a -> a -> a