blob: f6000288b0f149e501bc360e5eda42a90d92f022 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
{-# OPTIONS_GHC -fno-warn-orphans #-}
{-# LANGUAGE FlexibleInstances #-}
module Orphans where
-- import Data.Default
import GHC hiding (EpaComment)
-- ---------------------------------------------------------------------
class Default a where
def :: a
-- ---------------------------------------------------------------------
-- Orphan Default instances. See https://gitlab.haskell.org/ghc/ghc/-/issues/20372
instance Default [a] where
def = []
instance Default NameAnn where
def = mempty
instance Default AnnList where
def = mempty
instance Default AnnListItem where
def = mempty
instance Default AnnPragma where
def = AnnPragma def def def
instance Semigroup EpAnnImportDecl where
(<>) = error "unimplemented"
instance Default EpAnnImportDecl where
def = EpAnnImportDecl def Nothing Nothing Nothing Nothing Nothing
instance Default HsRuleAnn where
def = HsRuleAnn Nothing Nothing def
instance Default AnnSig where
def = AnnSig def def
instance Default GrhsAnn where
def = GrhsAnn Nothing def
instance Default EpAnnUnboundVar where
def = EpAnnUnboundVar def def
instance (Default a, Default b) => Default (a, b) where
def = (def, def)
instance Default NoEpAnns where
def = NoEpAnns
instance Default AnnParen where
def = AnnParen AnnParens def def
instance Default AnnExplicitSum where
def = AnnExplicitSum def def def def
instance Default EpAnnHsCase where
def = EpAnnHsCase def def def
instance Default AnnsIf where
def = AnnsIf def def def def def
instance Default (Maybe a) where
def = Nothing
instance Default AnnProjection where
def = AnnProjection def def
instance Default AnnFieldLabel where
def = AnnFieldLabel Nothing
instance Default EpaLocation where
def = EpaDelta (SameLine 0) []
instance Default AddEpAnn where
def = AddEpAnn def def
instance Default AnnKeywordId where
def = Annlarrowtail {- gotta pick one -}
instance Default AnnContext where
def = AnnContext Nothing [] []
instance Default EpAnnSumPat where
def = EpAnnSumPat def def def
instance Default AnnsModule where
def = AnnsModule [] mempty Nothing
|
