X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Fdsd-paper.git;a=blobdiff_plain;f=c%CE%BBash.lhs;h=95c7738e35bc8ea0671238f5e90e901bca388817;hp=a1fadea64d82bd8474a0adc5d373c2bbb3bc26c1;hb=9135be92f8b1e6b93d8dc7e8b7c69e0954c91cd5;hpb=2a2530060a81ba5ac88d8ccd90811f1c1d3500a9

diff --git "a/c\316\273ash.lhs" "b/c\316\273ash.lhs"
index a1fadea..95c7738 100644
--- "a/c\316\273ash.lhs"
+++ "b/c\316\273ash.lhs"
@@ -1207,10 +1207,10 @@ cpu :: Word -> [(Index 6, Index 6) | 4]
   -> State [Word | 4] -> (State [Word | 4], Word)
 cpu input addrs (State fuss) = (State fuss', out)
   where
-    fuss' =   [ fu const  inputs (addrs!0) (fuss!0)
-              , fu (+)    inputs (addrs!1) (fuss!1)
-              , fu (-)    inputs (addrs!2) (fuss!2)
-              , fu (*)    inputs (addrs!3) (fuss!3)
+    fuss' =   [ fu const  inputs (addrs!0)
+              , fu (+)    inputs (addrs!1)
+              , fu (-)    inputs (addrs!2)
+              , fu (*)    inputs (addrs!3)
               ]
     inputs    = 0 +> (1 +> (input +> fuss))
     out       = head fuss