path: root/testsuite/tests/th/T19709d.hs

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

module T19709d where

$( case tail "hello" of "hello" -> return [] )