Now using the RWS monad stack

[advent-of-code-19.git] / advent05 / src / advent05.hs

diff --git a/advent05/src/advent05.hs b/advent05/src/advent05.hs
index 36ba4995b8537ae37a566eab328353284dc7095d..2368edbdad7b38ca544d9046d582dd298bc41a15 100644 (file)
--- a/advent05/src/advent05.hs
+++ b/advent05/src/advent05.hs
@@ -69,7 +69,7 @@ runStep =
     do mem <- gets _memory
        ip <- gets _ip
        let opcode = (mem!ip) `mod` 100
-       let modes = parameterModes  ((mem!ip) `div` 100)
+       let modes = parameterModes ((mem!ip) `div` 100)
        fetchInput opcode
        putOutput opcode modes
        mem' <- gets _memory