testsuite/tests/printer/PprSemis.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

module Semis where

-- Make sure we get all the semicolons in statements

foo :: IO ()
foo = do
  do { ;;;; a }
  a

bar :: IO ()
bar = do
  { ;
    a ;;
    b
  }

baz :: IO ()
baz = do { ;; s ; s ; ; s ;; }