PatternSplice.hs 166 Bytes
Newer Older
1 2 3 4 5 6
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE PartialTypeSignatures #-}
{-# LANGUAGE ScopedTypeVariables #-}
module PatternSplice where

foo $( [p| (x :: _) |] ) = x