X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Alu.hs;h=1c60c0414886cbb975d18fb994a286beb46e1c24;hb=655444253776431f0949cafce2b991d12613fe04;hp=0db8e7b6935517bc8ab264393cd40aaeab0538be;hpb=bf0b4cfb8dc05bdededf86eb92f0047be8e9e7a6;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/Alu.hs b/Alu.hs
index 0db8e7b..1c60c04 100644
--- a/Alu.hs
+++ b/Alu.hs
@@ -1,9 +1,6 @@
-module Alu  where
-import Bits
+module Alu where
 import qualified Sim
-import Data.SizedWord
-import Types
-import Types.Data.Num
+import CLasH.HardwareTypes hiding (fst,snd)
 import CLasH.Translator.Annotations
 import qualified Prelude as P
 
@@ -15,8 +12,6 @@ mainIO = Sim.simulateIO exec initial_state
 
 dontcare = Low
 
-newtype State s = State s deriving (P.Show)
-
 program = [
             -- (addr, we, op)
             (High, Low, High), -- z = r1 and t (0) ; t = r1 (1)