compiler: de-lhs basicTypes/
[ghc.git] / compiler / hsSyn / HsPat.lhs-boot
1 \begin{code}
2 {-# LANGUAGE CPP, KindSignatures #-}
3 {-# LANGUAGE FlexibleContexts #-}
4 {-# LANGUAGE UndecidableInstances #-} -- Note [Pass sensitive types]
5                                       -- in module PlaceHolder
6 {-# LANGUAGE ConstraintKinds #-}
7 #if __GLASGOW_HASKELL__ > 706
8 {-# LANGUAGE RoleAnnotations #-}
9 #endif
10
11 module HsPat where
12 import SrcLoc( Located )
13
14 import Data.Data hiding (Fixity)
15 import Outputable
16 import PlaceHolder      ( DataId )
17
18 #if __GLASGOW_HASKELL__ > 706
19 type role Pat nominal
20 #endif
21 data Pat (i :: *)
22 type LPat i = Located (Pat i)
23
24 #if __GLASGOW_HASKELL__ > 706
25 instance Typeable Pat
26 #else
27 instance Typeable1 Pat
28 #endif
29
30 instance (DataId id) => Data (Pat id)
31 instance (OutputableBndr name) => Outputable (Pat name)
32 \end{code}