X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Fdsd-paper.git;a=blobdiff_plain;f=c%CE%BBash.lhs;h=447e3ac171045a47d42c71f5f61853a4d6f07e18;hp=b5e074dcc6e0980349814d0db84ca0eb1f27b379;hb=c8e108df889f5926bb6d5aa2e9a506a24df752b6;hpb=26aa9c2693bfe825c0b81d54dc24d6e374c09f2a

diff --git "a/c\316\273ash.lhs" "b/c\316\273ash.lhs"
index b5e074d..447e3ac 100644
--- "a/c\316\273ash.lhs"
+++ "b/c\316\273ash.lhs"
@@ -1272,9 +1272,9 @@ cpu :: CpuState -> Word -> [(Index 6, Index 6) | 4]
 cpu (State s) input addrs opc = (State s', out)
   where
     s'    =   [ fu (multiop opc)  inputs (addrs!0)
-              , fu (+)            inputs (addrs!1)
-              , fu (-)            inputs (addrs!2)
-              , fu (*)            inputs (addrs!3)
+              , fu add            inputs (addrs!1)
+              , fu sub            inputs (addrs!2)
+              , fu mul            inputs (addrs!3)
               ]
     inputs    =   0 +> (1 +> (input +> s))
     out       =   head s'