summaryrefslogtreecommitdiff
path: root/testsuite/tests/th/TH_emptycase.hs
blob: fc75cfe5b011f8ce498ef4e93aa930a16c6c9631 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
{-# LANGUAGE TemplateHaskell, EmptyCase #-}
-- Trac #2431: empty case expression
--             now accepted

module Main where

import Language.Haskell.TH

f :: Int
f = $(caseE (litE $ CharL 'a') [])

main = print f