blob: 90f1efb3313a987b547c68e2fceb2abb5f5d8442 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
-- #20893
module Main where
import Language.Haskell.TH
import Language.Haskell.TH.Ppr
main = do
runQ t1 >>= p
runQ t2 >>= p
t1 = [d| main = do { case 0 of { 0 -> 1 }; putStrLn "pass" } |]
t2 = [d|
main = do
let day = "mon"
let num = case day of
"mon" -> 0
"tue" -> 1
"wed" -> 3
"thu" -> 4
"fri" -> 5
"sat" -> 6
"sun" -> 7
_ -> 8
putStrLn (show day) ++ " is " (show num)
|]
p = putStrLn . pprint
|