{-# LANGUAGE StandaloneDeriving #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DerivingVia #-}
{-# LANGUAGE Trustworthy #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module ReWire.HSE.Orphans () where

import ReWire.Pretty (TextShow (showbPrec), genericShowbPrec)

import Data.Hashable (Hashable)
import GHC.Generics (Generic (..))
import Language.Haskell.Exts.Fixity (Fixity (..))
import Language.Haskell.Exts.SrcLoc (SrcSpan, SrcSpanInfo)
import Language.Haskell.Exts.Syntax

instance Hashable Boxed
instance Hashable a => Hashable (SpecialCon a)
instance Hashable a => Hashable (Name a)
instance Hashable a => Hashable (ModuleName a)
instance Hashable a => Hashable (QName a)
instance Hashable a => Hashable (Assoc a)
instance Hashable Fixity
deriving instance Generic Fixity

instance TextShow Fixity where
      showbPrec :: Int -> Fixity -> Builder
showbPrec = Int -> Fixity -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow SrcSpan where
      showbPrec :: Int -> SrcSpan -> Builder
showbPrec = Int -> SrcSpan -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow SrcSpanInfo where
      showbPrec :: Int -> SrcSpanInfo -> Builder
showbPrec = Int -> SrcSpanInfo -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Role a) where
      showbPrec :: Int -> Role a -> Builder
showbPrec = Int -> Role a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (BooleanFormula a) where
      showbPrec :: Int -> BooleanFormula a -> Builder
showbPrec = Int -> BooleanFormula a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Unpackedness a) where
      showbPrec :: Int -> Unpackedness a -> Builder
showbPrec = Int -> Unpackedness a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (PatternSynDirection a) where
      showbPrec :: Int -> PatternSynDirection a -> Builder
showbPrec = Int -> PatternSynDirection a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Promoted a) where
      showbPrec :: Int -> Promoted a -> Builder
showbPrec = Int -> Promoted a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Overlap a) where
      showbPrec :: Int -> Overlap a -> Builder
showbPrec = Int -> Overlap a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (TypeEqn a) where
      showbPrec :: Int -> TypeEqn a -> Builder
showbPrec = Int -> TypeEqn a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow Tool where
      showbPrec :: Int -> Tool -> Builder
showbPrec = Int -> Tool -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow Boxed where
      showbPrec :: Int -> Boxed -> Builder
showbPrec = Int -> Boxed -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (InjectivityInfo a) where
      showbPrec :: Int -> InjectivityInfo a -> Builder
showbPrec = Int -> InjectivityInfo a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (EWildcard a) where
      showbPrec :: Int -> EWildcard a -> Builder
showbPrec = Int -> EWildcard a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (DerivStrategy a) where
      showbPrec :: Int -> DerivStrategy a -> Builder
showbPrec = Int -> DerivStrategy a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (MaybePromotedName a) where
      showbPrec :: Int -> MaybePromotedName a -> Builder
showbPrec = Int -> MaybePromotedName a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Binds a) where
      showbPrec :: Int -> Binds a -> Builder
showbPrec = Int -> Binds a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Sign a) where
      showbPrec :: Int -> Sign a -> Builder
showbPrec = Int -> Sign a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (SpecialCon a) where
      showbPrec :: Int -> SpecialCon a -> Builder
showbPrec = Int -> SpecialCon a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (ResultSig a) where
      showbPrec :: Int -> ResultSig a -> Builder
showbPrec = Int -> ResultSig a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Namespace a) where
      showbPrec :: Int -> Namespace a -> Builder
showbPrec = Int -> Namespace a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (WarningText a) where
      showbPrec :: Int -> WarningText a -> Builder
showbPrec = Int -> WarningText a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Module a) where
      showbPrec :: Int -> Module a -> Builder
showbPrec = Int -> Module a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (ModuleHead a) where
      showbPrec :: Int -> ModuleHead a -> Builder
showbPrec = Int -> ModuleHead a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (ExportSpecList a) where
      showbPrec :: Int -> ExportSpecList a -> Builder
showbPrec = Int -> ExportSpecList a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (ExportSpec a) where
      showbPrec :: Int -> ExportSpec a -> Builder
showbPrec = Int -> ExportSpec a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (ImportDecl a) where
      showbPrec :: Int -> ImportDecl a -> Builder
showbPrec = Int -> ImportDecl a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (ImportSpecList a) where
      showbPrec :: Int -> ImportSpecList a -> Builder
showbPrec = Int -> ImportSpecList a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (ImportSpec a) where
      showbPrec :: Int -> ImportSpec a -> Builder
showbPrec = Int -> ImportSpec a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Assoc a) where
      showbPrec :: Int -> Assoc a -> Builder
showbPrec = Int -> Assoc a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Decl a) where
      showbPrec :: Int -> Decl a -> Builder
showbPrec = Int -> Decl a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (DeclHead a) where
      showbPrec :: Int -> DeclHead a -> Builder
showbPrec = Int -> DeclHead a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (InstRule a) where
      showbPrec :: Int -> InstRule a -> Builder
showbPrec = Int -> InstRule a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (InstHead a) where
      showbPrec :: Int -> InstHead a -> Builder
showbPrec = Int -> InstHead a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (IPBind a) where
      showbPrec :: Int -> IPBind a -> Builder
showbPrec = Int -> IPBind a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (ClassDecl a) where
      showbPrec :: Int -> ClassDecl a -> Builder
showbPrec = Int -> ClassDecl a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (InstDecl a) where
      showbPrec :: Int -> InstDecl a -> Builder
showbPrec = Int -> InstDecl a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Deriving a) where
      showbPrec :: Int -> Deriving a -> Builder
showbPrec = Int -> Deriving a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (DataOrNew a) where
      showbPrec :: Int -> DataOrNew a -> Builder
showbPrec = Int -> DataOrNew a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (ConDecl a) where
      showbPrec :: Int -> ConDecl a -> Builder
showbPrec = Int -> ConDecl a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (FieldDecl a) where
      showbPrec :: Int -> FieldDecl a -> Builder
showbPrec = Int -> FieldDecl a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (QualConDecl a) where
      showbPrec :: Int -> QualConDecl a -> Builder
showbPrec = Int -> QualConDecl a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (GadtDecl a) where
      showbPrec :: Int -> GadtDecl a -> Builder
showbPrec = Int -> GadtDecl a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (BangType a) where
      showbPrec :: Int -> BangType a -> Builder
showbPrec = Int -> BangType a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Match a) where
      showbPrec :: Int -> Match a -> Builder
showbPrec = Int -> Match a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Rhs a) where
      showbPrec :: Int -> Rhs a -> Builder
showbPrec = Int -> Rhs a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (GuardedRhs a) where
      showbPrec :: Int -> GuardedRhs a -> Builder
showbPrec = Int -> GuardedRhs a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Context a) where
      showbPrec :: Int -> Context a -> Builder
showbPrec = Int -> Context a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (FunDep a) where
      showbPrec :: Int -> FunDep a -> Builder
showbPrec = Int -> FunDep a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Asst a) where
      showbPrec :: Int -> Asst a -> Builder
showbPrec = Int -> Asst a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Type a) where
      showbPrec :: Int -> Type a -> Builder
showbPrec = Int -> Type a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (TyVarBind a) where
      showbPrec :: Int -> TyVarBind a -> Builder
showbPrec = Int -> TyVarBind a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Exp a) where
      showbPrec :: Int -> Exp a -> Builder
showbPrec = Int -> Exp a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Stmt a) where
      showbPrec :: Int -> Stmt a -> Builder
showbPrec = Int -> Stmt a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (QualStmt a) where
      showbPrec :: Int -> QualStmt a -> Builder
showbPrec = Int -> QualStmt a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (FieldUpdate a) where
      showbPrec :: Int -> FieldUpdate a -> Builder
showbPrec = Int -> FieldUpdate a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Alt a) where
      showbPrec :: Int -> Alt a -> Builder
showbPrec = Int -> Alt a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (XAttr a) where
      showbPrec :: Int -> XAttr a -> Builder
showbPrec = Int -> XAttr a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Pat a) where
      showbPrec :: Int -> Pat a -> Builder
showbPrec = Int -> Pat a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (PatField a) where
      showbPrec :: Int -> PatField a -> Builder
showbPrec = Int -> PatField a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (PXAttr a) where
      showbPrec :: Int -> PXAttr a -> Builder
showbPrec = Int -> PXAttr a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (RPat a) where
      showbPrec :: Int -> RPat a -> Builder
showbPrec = Int -> RPat a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (RPatOp a) where
      showbPrec :: Int -> RPatOp a -> Builder
showbPrec = Int -> RPatOp a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Literal a) where
      showbPrec :: Int -> Literal a -> Builder
showbPrec = Int -> Literal a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (ModuleName a) where
      showbPrec :: Int -> ModuleName a -> Builder
showbPrec = Int -> ModuleName a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (QName a) where
      showbPrec :: Int -> QName a -> Builder
showbPrec = Int -> QName a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Name a) where
      showbPrec :: Int -> Name a -> Builder
showbPrec = Int -> Name a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (QOp a) where
      showbPrec :: Int -> QOp a -> Builder
showbPrec = Int -> QOp a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Op a) where
      showbPrec :: Int -> Op a -> Builder
showbPrec = Int -> Op a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (CName a) where
      showbPrec :: Int -> CName a -> Builder
showbPrec = Int -> CName a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (IPName a) where
      showbPrec :: Int -> IPName a -> Builder
showbPrec = Int -> IPName a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (XName a) where
      showbPrec :: Int -> XName a -> Builder
showbPrec = Int -> XName a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Bracket a) where
      showbPrec :: Int -> Bracket a -> Builder
showbPrec = Int -> Bracket a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Splice a) where
      showbPrec :: Int -> Splice a -> Builder
showbPrec = Int -> Splice a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Safety a) where
      showbPrec :: Int -> Safety a -> Builder
showbPrec = Int -> Safety a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (CallConv a) where
      showbPrec :: Int -> CallConv a -> Builder
showbPrec = Int -> CallConv a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (ModulePragma a) where
      showbPrec :: Int -> ModulePragma a -> Builder
showbPrec = Int -> ModulePragma a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Rule a) where
      showbPrec :: Int -> Rule a -> Builder
showbPrec = Int -> Rule a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (RuleVar a) where
      showbPrec :: Int -> RuleVar a -> Builder
showbPrec = Int -> RuleVar a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Activation a) where
      showbPrec :: Int -> Activation a -> Builder
showbPrec = Int -> Activation a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec
instance TextShow a => TextShow (Annotation a) where
      showbPrec :: Int -> Annotation a -> Builder
showbPrec = Int -> Annotation a -> Builder
forall a. (Generic a, GTextShowB (Rep a ())) => Int -> a -> Builder
genericShowbPrec