diff options
Diffstat (limited to 'testsuite/tests/mdo/should_run')
-rw-r--r-- | testsuite/tests/mdo/should_run/mdorun002.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/testsuite/tests/mdo/should_run/mdorun002.hs b/testsuite/tests/mdo/should_run/mdorun002.hs index 0a09451324..ad40b5f03a 100644 --- a/testsuite/tests/mdo/should_run/mdorun002.hs +++ b/testsuite/tests/mdo/should_run/mdorun002.hs @@ -23,7 +23,7 @@ ll = mdo n0 <- newNode n3 0 n1 data Direction = Forward | Backward deriving Eq traverse :: Direction -> Node s a -> ST s [a] -traverse dir (N (v, b, i, f)) = +traverse dir (N (v, b, i, f)) = do visited <- readSTRef v if visited then return [] @@ -44,14 +44,14 @@ l2dll' p (x:xs) = mdo c <- newNode p x f return (c, l) insertAfter :: Node s a -> a -> ST s (Node s a) -insertAfter cur@(N (v, prev, val, next)) i +insertAfter cur@(N (v, prev, val, next)) i = do vis <- newSTRef False let newCell = N (vis, cur, i, next) - return (N (v, prev, val, newCell)) + return (N (v, prev, val, newCell)) -test = runST (do l <- l2dll [1 .. 10] - l' <- insertAfter l 12 - l'' <- insertAfter l' 13 - traverse Forward l'') +test = runST (do l <- l2dll [1 .. 10] + l' <- insertAfter l 12 + l'' <- insertAfter l' 13 + traverse Forward l'') main = print test |