Testsuite: delete Windows line endings [skip ci] (#11631)
[ghc.git] / testsuite / tests / th / TH_1tuple.hs
1 {-# LANGUAGE TemplateHaskell #-}
2
3 -- Trac #2358
4
5 module ShouldFail where
6 import Language.Haskell.TH
7
8 x = $(sigE [|1|] (tupleT 1 `appT` conT ''Int))
9 -- 1 :: (Int) ( a 1-tuple type)
10
11 y = $(sigE [|1|] (tupleT 1))
12 -- 1 :: (1) (a 1-tuple tycon not applied)
13
14 z = $(tupE [ [| "yes" |] ])
15 -- ("yes") (a 1-tuple expression)