ghc-exactprint-1.3.0: tests/examples/ghc710/Stmts.hs

module Stmts where

-- Make sure we get all the semicolons in statements
;;;;  ;;
import Data.List
; ; ;
import Data.Maybe
   ; ;;
foo :: IO ()
foo = do
  do { ;;;; a }
  a
; ;;
bar :: IO ()
bar = do
  { ;  ;
    a ;;
    b
  }
 ; ;;  ;
baz :: IO ()
baz = do { ;; s ; s ; ; s ;; }
;
a = undefined
b = undefined
s = undefined