{-# OPTIONS_GHC -fno-warn-orphans #-}
module Language.Haskell.GHC.ExactPrint.Orphans where
import GHC hiding (EpaComment)
instance Semigroup AnnPragma where
<> :: AnnPragma -> AnnPragma -> AnnPragma
(<>) = [Char] -> AnnPragma -> AnnPragma -> AnnPragma
forall a. HasCallStack => [Char] -> a
error [Char]
"unimplemented"
instance Monoid AnnPragma where
mempty :: AnnPragma
mempty = [Char] -> AnnPragma
forall a. HasCallStack => [Char] -> a
error [Char]
"meaningless"
instance Semigroup EpAnnImportDecl where
<> :: EpAnnImportDecl -> EpAnnImportDecl -> EpAnnImportDecl
(<>) = [Char] -> EpAnnImportDecl -> EpAnnImportDecl -> EpAnnImportDecl
forall a. HasCallStack => [Char] -> a
error [Char]
"unimplemented"
instance Monoid EpAnnImportDecl where
mempty :: EpAnnImportDecl
mempty = [Char] -> EpAnnImportDecl
forall a. HasCallStack => [Char] -> a
error [Char]
"meaningless"
instance Semigroup HsRuleAnn where
<> :: HsRuleAnn -> HsRuleAnn -> HsRuleAnn
(<>) = [Char] -> HsRuleAnn -> HsRuleAnn -> HsRuleAnn
forall a. HasCallStack => [Char] -> a
error [Char]
"unimplemented"
instance Monoid HsRuleAnn where
mempty :: HsRuleAnn
mempty = [Char] -> HsRuleAnn
forall a. HasCallStack => [Char] -> a
error [Char]
"meaningless"
instance Semigroup AnnSig where
<> :: AnnSig -> AnnSig -> AnnSig
(<>) = [Char] -> AnnSig -> AnnSig -> AnnSig
forall a. HasCallStack => [Char] -> a
error [Char]
"unimplemented"
instance Monoid AnnSig where
mempty :: AnnSig
mempty = [Char] -> AnnSig
forall a. HasCallStack => [Char] -> a
error [Char]
"meaningless"
instance Semigroup GrhsAnn where
<> :: GrhsAnn -> GrhsAnn -> GrhsAnn
(<>) = [Char] -> GrhsAnn -> GrhsAnn -> GrhsAnn
forall a. HasCallStack => [Char] -> a
error [Char]
"unimplemented"
instance Monoid GrhsAnn where
mempty :: GrhsAnn
mempty = [Char] -> GrhsAnn
forall a. HasCallStack => [Char] -> a
error [Char]
"meaningless"
instance Semigroup EpAnnUnboundVar where
<> :: EpAnnUnboundVar -> EpAnnUnboundVar -> EpAnnUnboundVar
(<>) = [Char] -> EpAnnUnboundVar -> EpAnnUnboundVar -> EpAnnUnboundVar
forall a. HasCallStack => [Char] -> a
error [Char]
"unimplemented"
instance Monoid EpAnnUnboundVar where
mempty :: EpAnnUnboundVar
mempty = [Char] -> EpAnnUnboundVar
forall a. HasCallStack => [Char] -> a
error [Char]
"meaningless"
instance Semigroup NoEpAnns where
<> :: NoEpAnns -> NoEpAnns -> NoEpAnns
(<>) = [Char] -> NoEpAnns -> NoEpAnns -> NoEpAnns
forall a. HasCallStack => [Char] -> a
error [Char]
"unimplemented"
instance Monoid NoEpAnns where
mempty :: NoEpAnns
mempty = [Char] -> NoEpAnns
forall a. HasCallStack => [Char] -> a
error [Char]
"meaningless"
instance Semigroup AnnParen where
<> :: AnnParen -> AnnParen -> AnnParen
(<>) = [Char] -> AnnParen -> AnnParen -> AnnParen
forall a. HasCallStack => [Char] -> a
error [Char]
"unimplemented"
instance Monoid AnnParen where
mempty :: AnnParen
mempty = [Char] -> AnnParen
forall a. HasCallStack => [Char] -> a
error [Char]
"meaningless"
instance Semigroup AnnExplicitSum where
<> :: AnnExplicitSum -> AnnExplicitSum -> AnnExplicitSum
(<>) = [Char] -> AnnExplicitSum -> AnnExplicitSum -> AnnExplicitSum
forall a. HasCallStack => [Char] -> a
error [Char]
"unimplemented"
instance Monoid AnnExplicitSum where
mempty :: AnnExplicitSum
mempty = [Char] -> AnnExplicitSum
forall a. HasCallStack => [Char] -> a
error [Char]
"meaningless"
instance Semigroup EpAnnHsCase where
<> :: EpAnnHsCase -> EpAnnHsCase -> EpAnnHsCase
(<>) = [Char] -> EpAnnHsCase -> EpAnnHsCase -> EpAnnHsCase
forall a. HasCallStack => [Char] -> a
error [Char]
"unimplemented"
instance Monoid EpAnnHsCase where
mempty :: EpAnnHsCase
mempty = [Char] -> EpAnnHsCase
forall a. HasCallStack => [Char] -> a
error [Char]
"meaningless"
instance Semigroup AnnsIf where
<> :: AnnsIf -> AnnsIf -> AnnsIf
(<>) = [Char] -> AnnsIf -> AnnsIf -> AnnsIf
forall a. HasCallStack => [Char] -> a
error [Char]
"unimplemented"
instance Monoid AnnsIf where
mempty :: AnnsIf
mempty = [Char] -> AnnsIf
forall a. HasCallStack => [Char] -> a
error [Char]
"meaningless"
instance Semigroup AnnsLet where
<> :: AnnsLet -> AnnsLet -> AnnsLet
(<>) = [Char] -> AnnsLet -> AnnsLet -> AnnsLet
forall a. HasCallStack => [Char] -> a
error [Char]
"unimplemented"
instance Monoid AnnsLet where
mempty :: AnnsLet
mempty = [Char] -> AnnsLet
forall a. HasCallStack => [Char] -> a
error [Char]
"meaningless"
instance Semigroup AnnProjection where
<> :: AnnProjection -> AnnProjection -> AnnProjection
(<>) = [Char] -> AnnProjection -> AnnProjection -> AnnProjection
forall a. HasCallStack => [Char] -> a
error [Char]
"unimplemented"
instance Monoid AnnProjection where
mempty :: AnnProjection
mempty = [Char] -> AnnProjection
forall a. HasCallStack => [Char] -> a
error [Char]
"meaningless"
instance Semigroup AnnFieldLabel where
<> :: AnnFieldLabel -> AnnFieldLabel -> AnnFieldLabel
(<>) = [Char] -> AnnFieldLabel -> AnnFieldLabel -> AnnFieldLabel
forall a. HasCallStack => [Char] -> a
error [Char]
"unimplemented"
instance Monoid AnnFieldLabel where
mempty :: AnnFieldLabel
mempty = [Char] -> AnnFieldLabel
forall a. HasCallStack => [Char] -> a
error [Char]
"meaningless"
instance Semigroup EpaLocation where
<> :: EpaLocation -> EpaLocation -> EpaLocation
(<>) = [Char] -> EpaLocation -> EpaLocation -> EpaLocation
forall a. HasCallStack => [Char] -> a
error [Char]
"unimplemented"
instance Monoid EpaLocation where
mempty :: EpaLocation
mempty = [Char] -> EpaLocation
forall a. HasCallStack => [Char] -> a
error [Char]
"meaningless"
instance Semigroup AddEpAnn where
<> :: AddEpAnn -> AddEpAnn -> AddEpAnn
(<>) = [Char] -> AddEpAnn -> AddEpAnn -> AddEpAnn
forall a. HasCallStack => [Char] -> a
error [Char]
"unimplemented"
instance Monoid AddEpAnn where
mempty :: AddEpAnn
mempty = [Char] -> AddEpAnn
forall a. HasCallStack => [Char] -> a
error [Char]
"meaningless"
instance Semigroup TrailingAnn where
<> :: TrailingAnn -> TrailingAnn -> TrailingAnn
(<>) = [Char] -> TrailingAnn -> TrailingAnn -> TrailingAnn
forall a. HasCallStack => [Char] -> a
error [Char]
"unimplemented"
instance Monoid TrailingAnn where
mempty :: TrailingAnn
mempty = [Char] -> TrailingAnn
forall a. HasCallStack => [Char] -> a
error [Char]
"meaningless"
instance Semigroup AnnContext where
<> :: AnnContext -> AnnContext -> AnnContext
(<>) = [Char] -> AnnContext -> AnnContext -> AnnContext
forall a. HasCallStack => [Char] -> a
error [Char]
"unimplemented"
instance Monoid AnnContext where
mempty :: AnnContext
mempty = Maybe (IsUnicodeSyntax, EpaLocation)
-> [EpaLocation] -> [EpaLocation] -> AnnContext
AnnContext Maybe (IsUnicodeSyntax, EpaLocation)
forall a. Maybe a
Nothing [] []
instance Semigroup EpAnnSumPat where
<> :: EpAnnSumPat -> EpAnnSumPat -> EpAnnSumPat
(<>) = [Char] -> EpAnnSumPat -> EpAnnSumPat -> EpAnnSumPat
forall a. HasCallStack => [Char] -> a
error [Char]
"unimplemented"
instance Monoid EpAnnSumPat where
mempty :: EpAnnSumPat
mempty = [Char] -> EpAnnSumPat
forall a. HasCallStack => [Char] -> a
error [Char]
"meaningless"
instance Semigroup AnnsModule where
<> :: AnnsModule -> AnnsModule -> AnnsModule
(<>) = [Char] -> AnnsModule -> AnnsModule -> AnnsModule
forall a. HasCallStack => [Char] -> a
error [Char]
"unimplemented"
instance Monoid AnnsModule where
mempty :: AnnsModule
mempty = [Char] -> AnnsModule
forall a. HasCallStack => [Char] -> a
error [Char]
"meaningless"