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