ghc-mod/test/data/pattern-synonyms/A.hs

{-# LANGUAGE PatternSynonyms #-}

module A where

data SomeType a b = SomeType (a,b)

pattern MyPat x y <- SomeType (x,y)
Workaround for #340 2014-09-12 01:48:22 +00:00			`{-# LANGUAGE PatternSynonyms #-}`
Housekeeping for GHC 8 - Remove some CPP needed only because of GHC 7.4 (which is not supported now, yey) - Move CPP for GHC 8 to Gap module 2016-05-22 00:55:06 +00:00
Workaround for #340 2014-09-12 01:48:22 +00:00			`module A where`

			`data SomeType a b = SomeType (a,b)`

			`pattern MyPat x y <- SomeType (x,y)`