testsuite/tests/th/TH_exn1.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE TemplateHaskell #-}

-- Test error message when the code in a splice
-- fails in an immediate fashion (e.g. with a
-- pattern match failure)

module ShouldCompile where

$( case reverse "no" of
	[] -> return []
 )