ghc/compiler/tests/reader/read004.hs

   1 --!!! string gaps
   2 --!!!
   3 module Main(main) where
   4
   5 -----------
   6
   7 main = putStr "\
   8
   9 \Some girls give me money\n\
  10
  11 \Some girls buy me clothes\n\
  12
  13 \..."
  14
  15 -----------
  16
  17 main2 = putStr "\
  18 \ \
  19 ..."
  20
  21 -----------
  22
  23 main3 = putStr "\
  24
  25 \Some girls give me money\n\
  26 -- and here is a comment
  27 \Some girls buy me clothes\n\
  28
  29 \..."
  30
  31 -----------
  32
  33 main3 = putStr "\
  34 {-
  35     and here is a nested {- comment -}
  36 -}
  37 \Some girls give me money\n\
  38
  39 \Some girls buy me clothes\n\
  40
  41 \..."