1{-# LANGUAGE TemplateHaskell #-} 2module PatternSpliceTest where 3 4foo :: Int -> Bool 5foo $( [p| 42 |] ) = True 6foo _ = False 7