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

{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE TemplateHaskell #-}
module T15518 where

$([d| f :: Bool -> ()
      f = \case True  -> ()
                False -> ()
    |])