Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / th / TH_emptycase.hs
1 {-# LANGUAGE TemplateHaskell, EmptyCase #-}
2 -- #2431: empty case expression
3 -- now accepted
4
5 module Main where
6
7 import Language.Haskell.TH
8
9 f :: Int
10 f = $(caseE (litE $ CharL 'a') [])
11
12 main = print f