State newtype has been moved to CLasH.HardwareTypes

[matthijs/master-project/cλash.git] / Alu.hs

diff --git a/Alu.hs b/Alu.hs
index b7fff900642ca72ae2ec6f70958a4a656591bb51..1c60c0414886cbb975d18fb994a286beb46e1c24 100644 (file)
--- a/Alu.hs
+++ b/Alu.hs
@@ -12,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)