testsuite/tests/th/T19709c.hs


1
2
3
4
5
6
7
8
9

{-# LANGUAGE TemplateHaskell #-}
{-# OPTIONS_GHC -Wincomplete-patterns -Werror #-}

module T19709c where

import Language.Haskell.TH

$( do runIO $ putStrLn "compiling the splice"
      case tail "hello" of "hello" -> return [] )