{-# OPTIONS_GHC -fno-warn-orphans #-}

module Language.Haskell.GHC.ExactPrint.Orphans where

import GHC hiding (EpaComment)

-- ---------------------------------------------------------------------
-- Orphan Monoid instances. See https://gitlab.haskell.org/ghc/ghc/-/issues/20372

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"