Ticket #2438: Instances.hs

File Instances.hs, 5.5 KB (added by claus, 6 years ago)

split source, importing part

Line 
1{-# LANGUAGE CPP #-}
2{-# LANGUAGE TypeSynonymInstances #-}
3{-# LANGUAGE StandaloneDeriving #-}
4{-# LANGUAGE DeriveDataTypeable #-}
5
6module Instances where
7
8import GHC hiding(TyCon)
9import SrcLoc
10import RdrName
11import OccName
12import FastString
13import Bag
14import Module
15import BasicTypes
16import Var
17import ForeignCall
18
19import Data.Generics
20import NameSet
21import TypeRep
22import qualified TyCon
23
24import Instances0
25
26#include "Typeable.h"
27
28-- Typeable0
29
30deriving instance Typeable Prag
31deriving instance Data Prag
32
33deriving instance Typeable HsWrapper
34deriving instance Data HsWrapper
35
36deriving instance Typeable PredType
37deriving instance Data PredType
38
39deriving instance Typeable Type
40deriving instance Data Type
41
42deriving instance Typeable HsLit
43deriving instance Data HsLit
44
45-- Typeable1
46
47deriving instance Typeable1 Located
48deriving instance Data e => Data (Located e)
49
50deriving instance Typeable1 HsModule
51deriving instance Data a => Data (HsModule a)
52
53deriving instance Typeable1 HsDoc
54deriving instance Data a => Data (HsDoc a)
55
56deriving instance Typeable1 HaddockModInfo
57deriving instance Data a => Data (HaddockModInfo a)
58
59deriving instance Typeable1 HsDecl
60deriving instance Data a => Data (HsDecl a)
61
62deriving instance Typeable1 ImportDecl
63deriving instance Data a => Data (ImportDecl a)
64
65deriving instance Typeable1 IE
66deriving instance Data a => Data (IE a)
67
68deriving instance Typeable1 TyClDecl
69deriving instance Data a => Data (TyClDecl a)
70
71deriving instance Typeable1 DocDecl
72deriving instance Data a => Data (DocDecl a)
73
74deriving instance Typeable1 SpliceDecl
75deriving instance Data a => Data (SpliceDecl a)
76
77deriving instance Typeable1 RuleDecl
78deriving instance Data a => Data (RuleDecl a)
79
80deriving instance Typeable1 DeprecDecl
81deriving instance Data a => Data (DeprecDecl a)
82
83deriving instance Typeable1 ForeignDecl
84deriving instance Data a => Data (ForeignDecl a)
85
86deriving instance Typeable1 DefaultDecl
87deriving instance Data a => Data (DefaultDecl a)
88
89deriving instance Typeable1 Sig
90deriving instance Data a => Data (Sig a)
91
92deriving instance Typeable1 DerivDecl
93deriving instance Data a => Data (DerivDecl a)
94
95deriving instance Typeable1 InstDecl
96deriving instance Data a => Data (InstDecl a)
97
98deriving instance Typeable1 HsPred
99deriving instance Data a => Data (HsPred a)
100
101deriving instance Typeable1 HsType
102deriving instance Data a => Data (HsType a)
103
104deriving instance Typeable1 ConDecl
105deriving instance Data a => Data (ConDecl a)
106
107INSTANCE_TYPEABLE1(Bag,bagTc,"Bag")
108instance Data a => Data (Bag a) where
109  toConstr _   = abstractConstr "Bag"
110  gunfold _ _  = error "gunfold"
111  dataTypeOf _ = mkNorepType "Bag"
112
113deriving instance Typeable1 HsTyVarBndr
114deriving instance Data a => Data (HsTyVarBndr a)
115
116deriving instance Typeable1 ResType
117deriving instance Data a => Data (ResType a)
118
119deriving instance Typeable1 HsSplice
120deriving instance Data a => Data (HsSplice a)
121
122deriving instance Typeable1 ConDeclField
123deriving instance Data a => Data (ConDeclField a)
124
125deriving instance Typeable1 IPName
126deriving instance Data a => Data (IPName a)
127
128deriving instance Typeable1 MatchGroup
129deriving instance Data a => Data (MatchGroup a)
130
131deriving instance Typeable1 Pat
132deriving instance Data a => Data (Pat a)
133
134deriving instance Typeable1 GRHSs
135deriving instance Data a => Data (GRHSs a)
136
137deriving instance Typeable1 HsExpr
138deriving instance Data a => Data (HsExpr a)
139
140deriving instance Typeable1 HsQuasiQuote
141deriving instance Data a => Data (HsQuasiQuote a)
142
143deriving instance Typeable1 HsOverLit
144deriving instance Data a => Data (HsOverLit a)
145
146deriving instance Typeable1 ArithSeqInfo
147deriving instance Data a => Data (ArithSeqInfo a)
148
149deriving instance Typeable1 HsBracket
150deriving instance Data a => Data (HsBracket a)
151
152deriving instance Typeable1 HsCmdTop
153deriving instance Data a => Data (HsCmdTop a)
154
155deriving instance Typeable1 HsGroup
156deriving instance Data a => Data (HsGroup a)
157
158deriving instance Typeable1 FixitySig
159deriving instance Data a => Data (FixitySig a)
160
161deriving instance Typeable1 HsIPBinds
162deriving instance Data a => Data (HsIPBinds a)
163
164deriving instance Typeable1 IPBind
165deriving instance Data a => Data (IPBind a)
166
167deriving instance Typeable1 GroupByClause
168deriving instance Data a => Data (GroupByClause a)
169
170deriving instance Typeable1 HsStmtContext
171deriving instance Data a => Data (HsStmtContext a)
172
173deriving instance Typeable1 HsMatchContext
174deriving instance Data a => Data (HsMatchContext a)
175
176deriving instance Typeable1 GRHS
177deriving instance Data a => Data (GRHS a)
178
179deriving instance Typeable1 Match
180deriving instance Data a => Data (Match a)
181
182deriving instance Typeable1 RuleBndr
183deriving instance Data a => Data (RuleBndr a)
184
185-- Typeable2
186
187deriving instance Typeable2 HsBindLR
188deriving instance (Data a,Data b) => Data (HsBindLR a b)
189
190deriving instance Typeable2 StmtLR
191deriving instance (Data a,Data b) => Data (StmtLR a b)
192
193deriving instance Typeable2 HsLocalBindsLR
194deriving instance (Data a,Data b) => Data (HsLocalBindsLR a b)
195
196deriving instance Typeable2 HsValBindsLR
197deriving instance (Data a,Data b) => Data (HsValBindsLR a b)
198
199deriving instance Typeable2 HsConDetails
200deriving instance (Data a,Data b) => Data (HsConDetails a b)
201
202deriving instance Typeable2 HsRecFields
203deriving instance (Data a,Data b) => Data (HsRecFields a b)
204
205deriving instance Typeable2 HsRecField
206deriving instance (Data a,Data b) => Data (HsRecField a b)
207
208