{-# GHC_PRAGMA INTERFACE VERSION 5 #-} interface Unique where import CharSeq(CSeq) import PreludePS(_PackedString) import Pretty(PrettyRep) import PrimKind(PrimKind) import PrimOps(PrimOp) import SplitUniq(SplitUniqSupply) import UniType(UniType) infixr 9 `thenUs` data CSeq {-# GHC_PRAGMA CNil | CAppend CSeq CSeq | CIndent Int CSeq | CNewline | CStr [Char] | CCh Char | CInt Int | CPStr _PackedString #-} data PrimOp {-# GHC_PRAGMA CharGtOp | CharGeOp | CharEqOp | CharNeOp | CharLtOp | CharLeOp | IntGtOp | IntGeOp | IntEqOp | IntNeOp | IntLtOp | IntLeOp | WordGtOp | WordGeOp | WordEqOp | WordNeOp | WordLtOp | WordLeOp | AddrGtOp | AddrGeOp | AddrEqOp | AddrNeOp | AddrLtOp | AddrLeOp | FloatGtOp | FloatGeOp | FloatEqOp | FloatNeOp | FloatLtOp | FloatLeOp | DoubleGtOp | DoubleGeOp | DoubleEqOp | DoubleNeOp | DoubleLtOp | DoubleLeOp | OrdOp | ChrOp | IntAddOp | IntSubOp | IntMulOp | IntQuotOp | IntDivOp | IntRemOp | IntNegOp | IntAbsOp | AndOp | OrOp | NotOp | SllOp | SraOp | SrlOp | ISllOp | ISraOp | ISrlOp | Int2WordOp | Word2IntOp | Int2AddrOp | Addr2IntOp | FloatAddOp | FloatSubOp | FloatMulOp | FloatDivOp | FloatNegOp | Float2IntOp | Int2FloatOp | FloatExpOp | FloatLogOp | FloatSqrtOp | FloatSinOp | FloatCosOp | FloatTanOp | FloatAsinOp | FloatAcosOp | FloatAtanOp | FloatSinhOp | FloatCoshOp | FloatTanhOp | FloatPowerOp | DoubleAddOp | DoubleSubOp | DoubleMulOp | DoubleDivOp | DoubleNegOp | Double2IntOp | Int2DoubleOp | Double2FloatOp | Float2DoubleOp | DoubleExpOp | DoubleLogOp | DoubleSqrtOp | DoubleSinOp | DoubleCosOp | DoubleTanOp | DoubleAsinOp | DoubleAcosOp | DoubleAtanOp | DoubleSinhOp | DoubleCoshOp | DoubleTanhOp | DoublePowerOp | IntegerAddOp | IntegerSubOp | IntegerMulOp | IntegerQuotRemOp | IntegerDivModOp | IntegerNegOp | IntegerCmpOp | Integer2IntOp | Int2IntegerOp | Word2IntegerOp | Addr2IntegerOp | FloatEncodeOp | FloatDecodeOp | DoubleEncodeOp | DoubleDecodeOp | NewArrayOp | NewByteArrayOp PrimKind | SameMutableArrayOp | SameMutableByteArrayOp | ReadArrayOp | WriteArrayOp | IndexArrayOp | ReadByteArrayOp PrimKind | WriteByteArrayOp PrimKind | IndexByteArrayOp PrimKind | IndexOffAddrOp PrimKind | UnsafeFreezeArrayOp | UnsafeFreezeByteArrayOp | NewSynchVarOp | TakeMVarOp | PutMVarOp | ReadIVarOp | WriteIVarOp | MakeStablePtrOp | DeRefStablePtrOp | CCallOp _PackedString Bool Bool [UniType] UniType | ErrorIOPrimOp | ReallyUnsafePtrEqualityOp | SeqOp | ParOp | ForkOp | DelayOp | WaitOp #-} data SplitUniqSupply {-# GHC_PRAGMA MkSplitUniqSupply Int SplitUniqSupply SplitUniqSupply #-} type UniqSM a = UniqueSupply -> (UniqueSupply, a) data Unique {-# GHC_PRAGMA MkUnique Int# #-} data UniqueSupply {-# GHC_PRAGMA MkUniqueSupply Int# | MkNewSupply SplitUniqSupply #-} absentErrorIdKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} addrDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} addrPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} addrTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} arrayPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} binaryClassKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} boolTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} buildDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} buildIdKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} byteArrayPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} cCallableClassKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} cReturnableClassKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} charDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} charPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} charTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} cmpTagTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} cmpUnique :: Unique -> Unique -> Int# {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "SS" _F_ _ALWAYS_ \ (u0 :: Unique) (u1 :: Unique) -> case u0 of { _ALG_ _ORIG_ Unique MkUnique (u2 :: Int#) -> case u1 of { _ALG_ _ORIG_ Unique MkUnique (u3 :: Int#) -> case _#_ eqInt# [] [u2, u3] of { _ALG_ True -> 0#; False -> case _#_ ltInt# [] [u2, u3] of { _ALG_ True -> -1#; False -> 1#; _NO_DEFLT_ }; _NO_DEFLT_ }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_ #-} consDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} dialogueTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} doubleDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} doublePrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} doubleTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} enumClassKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} eqClassKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} eqTagDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} eqUnique :: Unique -> Unique -> Bool {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "SS" _F_ _ALWAYS_ \ (u0 :: Unique) (u1 :: Unique) -> case u0 of { _ALG_ _ORIG_ Unique MkUnique (u2 :: Int#) -> case u1 of { _ALG_ _ORIG_ Unique MkUnique (u3 :: Int#) -> _#_ eqInt# [] [u2, u3]; _NO_DEFLT_ }; _NO_DEFLT_ } _N_ #-} errorIdKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} falseDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} floatDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} floatPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} floatTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} floatingClassKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} foldlIdKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} foldrIdKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} forkIdKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} fractionalClassKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} getBuiltinUniques :: Int -> [Unique] {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _N_ _N_ #-} getUnique :: UniqueSupply -> (UniqueSupply, Unique) {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-} getUniques :: Int -> UniqueSupply -> (UniqueSupply, [Unique]) {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)S" {_A_ 2 _U_ 21 _N_ _N_ _N_ _N_} _N_ _N_ #-} gtTagDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} iOTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} initUs :: UniqueSupply -> (UniqueSupply -> (UniqueSupply, a)) -> (UniqueSupply, a) {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _F_ _IF_ARGS_ 1 2 XX 2 _/\_ u0 -> \ (u1 :: UniqueSupply) (u2 :: UniqueSupply -> (UniqueSupply, u0)) -> _APP_ u2 [ u1 ] _N_ #-} intDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} intPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} intTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} integerDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} integerMinusOneIdKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} integerPlusOneIdKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} integerTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} integerZeroIdKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} integralClassKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} ixClassKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} liftDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} liftTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} listTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} ltTagDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} mallocPtrDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} mallocPtrPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} mallocPtrTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} mapAndUnzipUs :: (a -> UniqueSupply -> (UniqueSupply, (b, c))) -> [a] -> UniqueSupply -> (UniqueSupply, ([b], [c])) {-# GHC_PRAGMA _A_ 2 _U_ 212 _N_ _S_ "LS" _N_ _N_ #-} mapUs :: (a -> UniqueSupply -> (UniqueSupply, b)) -> [a] -> UniqueSupply -> (UniqueSupply, [b]) {-# GHC_PRAGMA _A_ 2 _U_ 212 _N_ _S_ "LS" _N_ _N_ #-} mkBuiltinUnique :: Int -> Unique {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} mkPrimOpIdUnique :: PrimOp -> Unique {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-} mkPseudoUnique1 :: Int -> Unique {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} mkPseudoUnique2 :: Int -> Unique {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} mkPseudoUnique3 :: Int -> Unique {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} mkTupleDataConUnique :: Int -> Unique {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} mkUnifiableTyVarUnique :: Int -> Unique {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} mkUniqueGrimily :: Int# -> Unique {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "P" _F_ _IF_ARGS_ 0 1 X 2 \ (u0 :: Int#) -> _!_ _ORIG_ Unique MkUnique [] [u0] _N_ #-} mkUniqueSupplyGrimily :: SplitUniqSupply -> UniqueSupply {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _N_ _F_ _IF_ARGS_ 0 1 X 2 \ (u0 :: SplitUniqSupply) -> _!_ _ORIG_ Unique MkNewSupply [] [u0] _N_ #-} mutableArrayPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} mutableByteArrayPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} nilDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} numClassKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} ordClassKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} packCStringIdKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} parErrorIdKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} parIdKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} patErrorIdKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} pprUnique :: Unique -> Int -> Bool -> PrettyRep {-# GHC_PRAGMA _A_ 1 _U_ 122 _N_ _S_ "U(P)" {_A_ 1 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-} pprUnique10 :: Unique -> Int -> Bool -> PrettyRep {-# GHC_PRAGMA _A_ 1 _U_ 122 _N_ _S_ "U(P)" {_A_ 1 _U_ 222 _N_ _N_ _N_ _N_} _N_ _N_ #-} primIoTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} ratioDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} ratioTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} rationalTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} realClassKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} realFloatClassKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} realFracClassKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} realWorldPrimIdKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} realWorldTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} return2GMPsDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} return2GMPsTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} returnIntAndGMPDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} returnIntAndGMPTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} returnUs :: a -> UniqueSupply -> (UniqueSupply, a) {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _N_ _F_ _ALWAYS_ _/\_ u0 -> \ (u1 :: u0) (u2 :: UniqueSupply) -> _!_ _TUP_2 [UniqueSupply, u0] [u2, u1] _N_ #-} runBuiltinUs :: (UniqueSupply -> (UniqueSupply, a)) -> a {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-} runSTIdKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} seqIdKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} showUnique :: Unique -> _PackedString {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} stTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stablePtrDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stablePtrPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stablePtrTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndAddrPrimDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndAddrPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndArrayPrimDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndArrayPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndByteArrayPrimDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndByteArrayPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndCharPrimDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndCharPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndDoublePrimDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndDoublePrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndFloatPrimDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndFloatPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndIntPrimDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndIntPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndMallocPtrPrimDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndMallocPtrPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndMutableArrayPrimDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndMutableArrayPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndMutableByteArrayPrimDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndMutableByteArrayPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndPtrPrimDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndPtrPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndStablePtrPrimDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndStablePtrPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndSynchVarPrimDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndSynchVarPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndWordPrimDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateAndWordPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} statePrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stateTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} stringTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} synchVarPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} textClassKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} thenUs :: (UniqueSupply -> (UniqueSupply, a)) -> (a -> UniqueSupply -> (UniqueSupply, b)) -> UniqueSupply -> (UniqueSupply, b) {-# GHC_PRAGMA _A_ 3 _U_ 112 _N_ _S_ "SSL" _F_ _ALWAYS_ _/\_ u0 u1 -> \ (u2 :: UniqueSupply -> (UniqueSupply, u0)) (u3 :: u0 -> UniqueSupply -> (UniqueSupply, u1)) (u4 :: UniqueSupply) -> case _APP_ u2 [ u4 ] of { _ALG_ _TUP_2 (u5 :: UniqueSupply) (u6 :: u0) -> _APP_ u3 [ u6, u5 ]; _NO_DEFLT_ } _N_ #-} traceIdKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} trueDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} u2i :: Unique -> Int# {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 1 _N_ _N_ _F_ _IF_ARGS_ 0 1 X 1 \ (u0 :: Int#) -> u0 _N_} _F_ _IF_ARGS_ 0 1 C 2 \ (u0 :: Unique) -> case u0 of { _ALG_ _ORIG_ Unique MkUnique (u1 :: Int#) -> u1; _NO_DEFLT_ } _N_ #-} uniqSupply_u :: UniqueSupply {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} unpackCStringIdKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} unpkUnifiableTyVarUnique :: Unique -> Int {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} voidPrimIdKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} voidPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} wordDataConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} wordPrimTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} wordTyConKey :: Unique {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} instance Eq Unique {-# GHC_PRAGMA _M_ Unique {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(Unique -> Unique -> Bool), (Unique -> Unique -> Bool)] [_CONSTM_ Eq (==) (Unique), _CONSTM_ Eq (/=) (Unique)] _N_ (==) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: Int#) (u1 :: Int#) -> _#_ eqInt# [] [u0, u1] _N_} _F_ _IF_ARGS_ 0 2 CC 3 \ (u0 :: Unique) (u1 :: Unique) -> case u0 of { _ALG_ _ORIG_ Unique MkUnique (u2 :: Int#) -> case u1 of { _ALG_ _ORIG_ Unique MkUnique (u3 :: Int#) -> _#_ eqInt# [] [u2, u3]; _NO_DEFLT_ }; _NO_DEFLT_ } _N_, (/=) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 5 \ (u0 :: Int#) (u1 :: Int#) -> case _#_ eqInt# [] [u0, u1] of { _ALG_ True -> _!_ False [] []; False -> _!_ True [] []; _NO_DEFLT_ } _N_} _F_ _IF_ARGS_ 0 2 CC 7 \ (u0 :: Unique) (u1 :: Unique) -> case u0 of { _ALG_ _ORIG_ Unique MkUnique (u2 :: Int#) -> case u1 of { _ALG_ _ORIG_ Unique MkUnique (u3 :: Int#) -> case _#_ eqInt# [] [u2, u3] of { _ALG_ True -> _!_ False [] []; False -> _!_ True [] []; _NO_DEFLT_ }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_ #-} instance Ord Unique {-# GHC_PRAGMA _M_ Unique {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq Unique}}, (Unique -> Unique -> Bool), (Unique -> Unique -> Bool), (Unique -> Unique -> Bool), (Unique -> Unique -> Bool), (Unique -> Unique -> Unique), (Unique -> Unique -> Unique), (Unique -> Unique -> _CMP_TAG)] [_DFUN_ Eq (Unique), _CONSTM_ Ord (<) (Unique), _CONSTM_ Ord (<=) (Unique), _CONSTM_ Ord (>=) (Unique), _CONSTM_ Ord (>) (Unique), _CONSTM_ Ord max (Unique), _CONSTM_ Ord min (Unique), _CONSTM_ Ord _tagCmp (Unique)] _N_ (<) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: Int#) (u1 :: Int#) -> _#_ ltInt# [] [u0, u1] _N_} _F_ _IF_ARGS_ 0 2 CC 3 \ (u0 :: Unique) (u1 :: Unique) -> case u0 of { _ALG_ _ORIG_ Unique MkUnique (u2 :: Int#) -> case u1 of { _ALG_ _ORIG_ Unique MkUnique (u3 :: Int#) -> _#_ ltInt# [] [u2, u3]; _NO_DEFLT_ }; _NO_DEFLT_ } _N_, (<=) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 1 \ (u0 :: Int#) (u1 :: Int#) -> _#_ leInt# [] [u0, u1] _N_} _F_ _IF_ARGS_ 0 2 CC 3 \ (u0 :: Unique) (u1 :: Unique) -> case u0 of { _ALG_ _ORIG_ Unique MkUnique (u2 :: Int#) -> case u1 of { _ALG_ _ORIG_ Unique MkUnique (u3 :: Int#) -> _#_ leInt# [] [u2, u3]; _NO_DEFLT_ }; _NO_DEFLT_ } _N_, (>=) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 5 \ (u0 :: Int#) (u1 :: Int#) -> case _#_ ltInt# [] [u0, u1] of { _ALG_ True -> _!_ False [] []; False -> _!_ True [] []; _NO_DEFLT_ } _N_} _F_ _IF_ARGS_ 0 2 CC 7 \ (u0 :: Unique) (u1 :: Unique) -> case u0 of { _ALG_ _ORIG_ Unique MkUnique (u2 :: Int#) -> case u1 of { _ALG_ _ORIG_ Unique MkUnique (u3 :: Int#) -> case _#_ ltInt# [] [u2, u3] of { _ALG_ True -> _!_ False [] []; False -> _!_ True [] []; _NO_DEFLT_ }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_, (>) = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _F_ _IF_ARGS_ 0 2 XX 5 \ (u0 :: Int#) (u1 :: Int#) -> case _#_ leInt# [] [u0, u1] of { _ALG_ True -> _!_ False [] []; False -> _!_ True [] []; _NO_DEFLT_ } _N_} _F_ _IF_ARGS_ 0 2 CC 7 \ (u0 :: Unique) (u1 :: Unique) -> case u0 of { _ALG_ _ORIG_ Unique MkUnique (u2 :: Int#) -> case u1 of { _ALG_ _ORIG_ Unique MkUnique (u3 :: Int#) -> case _#_ leInt# [] [u2, u3] of { _ALG_ True -> _!_ False [] []; False -> _!_ True [] []; _NO_DEFLT_ }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_, max = _A_ 2 _U_ 22 _N_ _N_ _N_ _N_, min = _A_ 2 _U_ 22 _N_ _N_ _N_ _N_, _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "U(P)U(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-} instance Text Unique {-# GHC_PRAGMA _M_ Unique {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(Unique, [Char])]), (Int -> Unique -> [Char] -> [Char]), ([Char] -> [([Unique], [Char])]), ([Unique] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (Unique), _CONSTM_ Text showsPrec (Unique), _CONSTM_ Text readList (Unique), _CONSTM_ Text showList (Unique)] _N_ readsPrec = _A_ 2 _U_ 02 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 2 XX 3 \ (u0 :: Int) (u1 :: [Char]) -> _APP_ _TYAPP_ _ORIG_ Util panic { ([Char] -> [(Unique, [Char])]) } [ _NOREP_S_ "no readsPrec for Unique", u1 ] _N_, showsPrec = _A_ 3 _U_ 010 _N_ _S_ "AU(P)A" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _F_ _IF_ARGS_ 0 3 XXX 5 \ (u0 :: Int) (u1 :: Unique) (u2 :: [Char]) -> let {(u3 :: _PackedString) = _APP_ _ORIG_ Unique showUnique [ u1 ]} in _APP_ _ORIG_ PreludePS _unpackPS [ u3 ] _N_, readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-}