ghc/compiler/tests/reader/read004.hs

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