diff --git a/src/Turtle/Shell.hs b/src/Turtle/Shell.hs index d4e9f2a..336cc4d 100644 --- a/src/Turtle/Shell.hs +++ b/src/Turtle/Shell.hs @@ -47,7 +47,7 @@ > -- For every shell `s`: > foldIO s (FoldM step begin done) = do -> x <- step +> x <- begin > x' <- foldIO s (FoldM step (return x) return) > done x'