testsuite/tests/th/TH_emptycase.hs


1
2
3
4
5
6
7
8
9
10
11
12

{-# LANGUAGE TemplateHaskell #-}
-- Trac #2431: empty case expression
--             currently rejected

module Main where

import Language.Haskell.TH

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

main = print f