Merge pull request #163 from mitochon/patch-1

State.hs :: revert back previous change
miladz68 · Oct 21, 2015 · b7f323f · b7f323f
2 parents 9d80ad8 + 030dc1a
commit b7f323f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Course/State.hs b/src/Course/State.hs
@@ -128,7 +128,7 @@ put =
 -- >>> let p x = (\s -> (const $ pure (x == 'c')) =<< put (1+s)) =<< get in runState (findM p $ listh ['a'..'h']) 0
 -- (Full 'c',3)
 --
--- >>> let p x = (\s -> (const $ pure (x == 'i')) =<< put (1+s)) =<< get in runState (findM p $ listh ['a'..'h']) 8
+-- >>> let p x = (\s -> (const $ pure (x == 'i')) =<< put (1+s)) =<< get in runState (findM p $ listh ['a'..'h']) 0
 -- (Empty,8)
 findM ::
   Monad f =>