Add whitespace to avoid compiler warning with recent ghc.
Chris Pressey
1 year, 2 months ago
52 | 52 | decr st k = let (Just (Num n), st') = pop st in k $ push (Num (n-1)) st' |
53 | 53 | dup st k = let (Just v, st') = pop st in k $ push v $ push v st' |
54 | 54 | pop' st k = let (Just v, st') = pop st in k st' |
55 | swap st k = let (a, b, st') = popTwo st in k $ push b $push a st' | |
55 | swap st k = let (a, b, st') = popTwo st in k $ push b $ push a st' | |
56 | 56 | |
57 | 57 | left st k = k $ shift (-1) st |
58 | 58 | right st k = k $ shift 1 st |