Skip to content

Instantly share code, notes, and snippets.

@Haskell-mouse

Haskell-mouse/0ProfilingWPatch.txt

Last active May 23, 2022 19:33
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Haskell-mouse/b05db12de9e9fdc8cfa9b02f436eccc0 to your computer and use it in GitHub Desktop.
Save Haskell-mouse/b05db12de9e9fdc8cfa9b02f436eccc0 to your computer and use it in GitHub Desktop.
Download ZIP
MR 5286: Performance test of the new coercion optimisations.
Raw
0ProfilingWPatch.txt
Profiling using GHC HEAD with the patch.
without "-fno-opt-coercion":
total time = 2.85 secs (2852 ticks @ 1000 us, 1 processor)
total alloc = 1,940,283,584 bytes (excludes profiling overheads)
COST CENTRE MODULE SRC %time %alloc
rewrite_fam_app GHC.Tc.Solver.Rewrite compiler/GHC/Tc/Solver/Rewrite.hs:(773,7)-(784,49) 46.4 59.8
simplCast-simplCoercion GHC.Core.Opt.Simplify compiler/GHC/Core/Opt/Simplify.hs:1421:57-77 14.2 9.6
deSugar GHC.Driver.Main compiler/GHC/Driver/Main.hs:630:7-44 10.1 8.1
CoreTidy GHC.Driver.Main compiler/GHC/Driver/Main.hs:877:15-58 10.0 6.8
OccAnal GHC.Core.Opt.Pipeline compiler/GHC/Core/Opt/Pipeline.hs:(768,22)-(769,42) 4.8 0.0
zonkEvBinds GHC.Tc.Utils.Zonk compiler/GHC/Tc/Utils/Zonk.hs:(1747,5)-(1750,35) 4.6 6.0
occAnalBind.assoc GHC.Core.Opt.OccurAnal compiler/GHC/Core/Opt/OccurAnal.hs:809:13-64 2.3 0.0
substTyWith GHC.Core.TyCo.Subst compiler/GHC/Core/TyCo/Subst.hs:(559,23)-(560,50) 1.8 2.7
checkOldIface GHC.Driver.Main compiler/GHC/Driver/Main.hs:(735,20)-(736,60) 1.2 1.2
tcRnIface GHC.Driver.Main compiler/GHC/Driver/Main.hs:1030:20-67 0.9 1.0
----------------------------------------------------------
with "-fno-opt-coercion":
total time = 2.35 secs (2345 ticks @ 1000 us, 1 processor)
total alloc = 1,559,942,088 bytes (excludes profiling overheads)
COST CENTRE MODULE SRC %time %alloc
rewrite_fam_app GHC.Tc.Solver.Rewrite compiler/GHC/Tc/Solver/Rewrite.hs:(773,7)-(784,49) 55.7 74.4
CoreTidy GHC.Driver.Main compiler/GHC/Driver/Main.hs:877:15-58 10.8 8.8
simplCast-simplCoercion GHC.Core.Opt.Simplify compiler/GHC/Core/Opt/Simplify.hs:1421:57-77 8.7 0.0
OccAnal GHC.Core.Opt.Pipeline compiler/GHC/Core/Opt/Pipeline.hs:(768,22)-(769,42) 5.8 0.0
zonkEvBinds GHC.Tc.Utils.Zonk compiler/GHC/Tc/Utils/Zonk.hs:(1747,5)-(1750,35) 5.8 7.4
occAnalBind.assoc GHC.Core.Opt.OccurAnal compiler/GHC/Core/Opt/OccurAnal.hs:809:13-64 3.1 0.0
deSugar GHC.Driver.Main compiler/GHC/Driver/Main.hs:630:7-44 2.1 0.0
checkOldIface GHC.Driver.Main compiler/GHC/Driver/Main.hs:(735,20)-(736,60) 1.2 1.5
tcRnIface GHC.Driver.Main compiler/GHC/Driver/Main.hs:1030:20-67 1.1 1.3
Raw
1ProfilingWOPatch.txt
Profiling using GHC HEAD without the patch.
without "-fno-opt-coercion":
total time = 5.42 secs (5422 ticks @ 1000 us, 1 processor)
total alloc = 5,254,889,416 bytes (excludes profiling overheads)
COST CENTRE MODULE SRC %time %alloc
deSugar GHC.Driver.Main compiler/GHC/Driver/Main.hs:639:7-44 28.4 29.8
simplCast-simplCoercion GHC.Core.Opt.Simplify compiler/GHC/Core/Opt/Simplify.hs:1384:57-77 26.1 25.9
rewrite_fam_app GHC.Tc.Solver.Rewrite compiler/GHC/Tc/Solver/Rewrite.hs:(771,7)-(782,49) 16.8 18.1
substTyWith GHC.Core.TyCo.Subst compiler/GHC/Core/TyCo/Subst.hs:(556,23)-(557,50) 14.1 18.5
CoreTidy GHC.Driver.Main compiler/GHC/Driver/Main.hs:886:15-58 5.2 2.6
zonkEvBinds GHC.Tc.Utils.Zonk compiler/GHC/Tc/Utils/Zonk.hs:(1740,5)-(1743,35) 2.5 2.4
OccAnal GHC.Core.Opt.Pipeline compiler/GHC/Core/Opt/Pipeline.hs:(767,22)-(768,42) 2.4 0.0
occAnalBind.assoc GHC.Core.Opt.OccurAnal compiler/GHC/Core/Opt/OccurAnal.hs:807:13-64 1.3 0.0
-----------------------------------------------------------
with "-fno-opt-coercion":
total time = 2.00 secs (2003 ticks @ 1000 us, 1 processor)
total alloc = 1,376,910,144 bytes (excludes profiling overheads)
COST CENTRE MODULE SRC %time %alloc
rewrite_fam_app GHC.Tc.Solver.Rewrite compiler/GHC/Tc/Solver/Rewrite.hs:(771,7)-(782,49) 45.6 69.0
CoreTidy GHC.Driver.Main compiler/GHC/Driver/Main.hs:886:15-58 14.2 10.7
simplCast-simplCoercion GHC.Core.Opt.Simplify compiler/GHC/Core/Opt/Simplify.hs:1384:57-77 11.2 0.0
OccAnal GHC.Core.Opt.Pipeline compiler/GHC/Core/Opt/Pipeline.hs:(767,22)-(768,42) 6.9 0.0
zonkEvBinds GHC.Tc.Utils.Zonk compiler/GHC/Tc/Utils/Zonk.hs:(1740,5)-(1743,35) 6.8 9.1
occAnalBind.assoc GHC.Core.Opt.OccurAnal compiler/GHC/Core/Opt/OccurAnal.hs:807:13-64 3.4 0.0
deSugar GHC.Driver.Main compiler/GHC/Driver/Main.hs:639:7-44 2.5 0.0
tcRnIface GHC.Driver.Main compiler/GHC/Driver/Main.hs:1034:20-67 1.5 1.4
checkOldIface GHC.Driver.Main compiler/GHC/Driver/Main.hs:(744,20)-(745,60) 1.1 2.0
bin_tycldecls GHC.Unit.Module.ModIface compiler/GHC/Unit/Module/ModIface.hs:393:52-57 0.8 1.1
Raw
3ExamplesPath.hs
{-# LANGUAGE GADTs #-}
{-# LANGUAGE StandaloneKindSignatures #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE NoStarIsType #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE UndecidableInstances #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE ExplicitForAll #-}
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE DefaultSignatures #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE ExplicitNamespaces #-}
{-# LANGUAGE InstanceSigs #-}
{-# LANGUAGE StandaloneDeriving #-}
{-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ViewPatterns #-}
{-# LANGUAGE TypeFamilyDependencies #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE ConstraintKinds #-}
{-# LANGUAGE PartialTypeSignatures #-}
module ExamplesPath where
import GHC.TypeLits as TL hiding (type (+), type (-),type (*), type (<=))
import qualified GHC.TypeNats as TN
import qualified Data.Text as T
import GHC.Exts
import Data.Kind
import Data.Proxy
import Data.Type.Equality ((:~:)(..))
import Data.Type.Bool (Not, type (&&), type (||))
import Unsafe.Coerce
import Data.List.NonEmpty (NonEmpty(..))
-- From Singletons
type SingFunction1 (f :: a1 ~> b) =
forall t. Sing t -> Sing (f @@ t)
-- of parameters of the function.
singFun1 :: forall f. SingFunction1 f -> Sing f
singFun1 f = SLambda f
type SingFunction2 (f :: a1 ~> a2 ~> b) =
forall t1 t2. Sing t1 -> Sing t2 -> Sing (f @@ t1 @@ t2)
singFun2 :: forall f. SingFunction2 f -> Sing f
singFun2 f = SLambda (\x -> singFun1 (f x))
type SingFunction3 (f :: a1 ~> a2 ~> a3 ~> b) =
forall t1 t2 t3.
Sing t1 -> Sing t2 -> Sing t3
-> Sing (f @@ t1 @@ t2 @@ t3)
singFun3 :: forall f. SingFunction3 f -> Sing f
singFun3 f = SLambda (\x -> singFun2 (f x))
type SingFunction4 (f :: a1 ~> a2 ~> a3 ~> a4 ~> b) =
forall t1 t2 t3 t4.
Sing t1 -> Sing t2 -> Sing t3 -> Sing t4
-> Sing (f @@ t1 @@ t2 @@ t3 @@ t4)
singFun4 :: forall f. SingFunction4 f -> Sing f
singFun4 f = SLambda (\x -> singFun3 (f x))
type SingInstance :: k -> Type
data SingInstance (a :: k) where
SingInstance :: SingI a => SingInstance a
type DI :: k -> Type
newtype DI a = Don'tInstantiate (SingI a => SingInstance a)
singInstance :: forall k (a :: k). Sing a -> SingInstance a
singInstance s = with_sing_i SingInstance
where
with_sing_i :: (SingI a => SingInstance a) -> SingInstance a
with_sing_i si = unsafeCoerce (Don'tInstantiate si) s
type SLambda :: (k1 ~> k2) -> Type
newtype SLambda (f :: k1 ~> k2) =
SLambda { applySing :: forall t. Sing t -> Sing (f @@ t) }
type instance Sing = SLambda
type (@@) :: (k1 ~> k2) -> k1 -> k2
type a @@ b = Apply a b
infixl 9 @@
type KindOf :: k -> Type
type KindOf (a :: k) = k
type family Apply (f :: k1 ~> k2) (x :: k1) :: k2
type SameKind :: k -> k -> Constraint
type SameKind (a :: k) (b :: k) = (() :: Constraint)
type SuppressUnusedWarnings :: k -> Constraint
class SuppressUnusedWarnings (t :: k) where
suppressUnusedWarnings :: ()
type family Sing :: k -> Type
type TyFun :: Type -> Type -> Type
data TyFun :: Type -> Type -> Type
type (~>) :: Type -> Type -> Type
type a ~> b = TyFun a b -> Type
infixr 0 ~>
type SingI :: forall {k}. k -> Constraint
class SingI a where
-- | Produce the singleton explicitly. You will likely need the @ScopedTypeVariables@
-- extension to use this method the way you want.
sing :: Sing a
{-# COMPLETE Sing #-}
pattern Sing :: forall k (a :: k). () => SingI a => Sing a
pattern Sing <- (singInstance -> SingInstance)
where Sing = sing
type SingKind :: Type -> Constraint
class SingKind k where
type Demote k = (r :: Type) | r -> k
-- | Convert a singleton to its unrefined version.
fromSing :: Sing (a :: k) -> Demote k
-- | Convert an unrefined type to an existentially-quantified singleton type.
toSing :: Demote k -> SomeSing k
instance (SingKind k1, SingKind k2) => SingKind (k1 ~> k2) where
type Demote (k1 ~> k2) = Demote k1 -> Demote k2
fromSing sFun x = withSomeSing x (fromSing . applySing sFun)
toSing f = SomeSing slam
where
-- Here, we are essentially "manufacturing" a type-level version of the
-- function f. As long as k1 and k2 obey the SingKind laws, this is a
-- perfectly fine thing to do, since the computational content of Sing f
-- will be isomorphic to that of the function f.
slam :: forall (f :: k1 ~> k2). Sing f
slam = singFun1 @f lam
where
-- Here's the tricky part. We need to demote the argument Sing, apply the
-- term-level function f to it, and promote it back to a Sing. However,
-- we don't have a way to convince the typechecker that for all argument
-- types t, f @@ t should be the same thing as res, which motivates the
-- use of unsafeCoerce.
lam :: forall (t :: k1). Sing t -> Sing (f @@ t)
lam x = withSomeSing (f (fromSing x)) (\(r :: Sing res) -> unsafeCoerce r)
withSomeSing :: forall k r
. SingKind k
=> Demote k -- ^ The original datatype
-> (forall (a :: k). Sing a -> r) -- ^ Function expecting a singleton
-> r
withSomeSing x f =
case toSing x of
SomeSing x' -> f x'
type SomeSing :: Type -> Type
data SomeSing k where
SomeSing :: Sing (a :: k) -> SomeSing k
type DemoteSym0 :: Type ~> Type
type DemoteSym1 :: Type -> Type
data DemoteSym0 :: Type ~> Type
type DemoteSym1 x = Demote x
type instance Apply DemoteSym0 x = Demote x
-----
type SameKindSym0 :: forall k. k ~> k ~> Constraint
type SameKindSym1 :: forall k. k -> k ~> Constraint
type SameKindSym2 :: forall k. k -> k -> Constraint
data SameKindSym0 :: forall k. k ~> k ~> Constraint
data SameKindSym1 :: forall k. k -> k ~> Constraint
type SameKindSym2 (x :: k) (y :: k) = SameKind x y
type instance Apply SameKindSym0 x = SameKindSym1 x
type instance Apply (SameKindSym1 x) y = SameKind x y
-----
type KindOfSym0 :: forall k. k ~> Type
type KindOfSym1 :: forall k. k -> Type
data KindOfSym0 :: forall k. k ~> Type
type KindOfSym1 (x :: k) = KindOf x
type instance Apply KindOfSym0 x = KindOf x
-----
infixr 0 ~>@#@$, ~>@#@$$, ~>@#@$$$
type (~>@#@$) :: Type ~> Type ~> Type
type (~>@#@$$) :: Type -> Type ~> Type
type (~>@#@$$$) :: Type -> Type -> Type
data (~>@#@$) :: Type ~> Type ~> Type
data (~>@#@$$) :: Type -> Type ~> Type
type x ~>@#@$$$ y = x ~> y
type instance Apply (~>@#@$) x = (~>@#@$$) x
type instance Apply ((~>@#@$$) x) y = x ~> y
-----
type ApplySym0 :: forall a b. (a ~> b) ~> a ~> b
type ApplySym1 :: forall a b. (a ~> b) -> a ~> b
type ApplySym2 :: forall a b. (a ~> b) -> a -> b
data ApplySym0 :: forall a b. (a ~> b) ~> a ~> b
data ApplySym1 :: forall a b. (a ~> b) -> a ~> b
type ApplySym2 (f :: a ~> b) (x :: a) = Apply f x
type instance Apply ApplySym0 f = ApplySym1 f
type instance Apply (ApplySym1 f) x = Apply f x
-----
infixl 9 @@@#@$, @@@#@$$, @@@#@$$$
type (@@@#@$) :: forall a b. (a ~> b) ~> a ~> b
type (@@@#@$$) :: forall a b. (a ~> b) -> a ~> b
type (@@@#@$$$) :: forall a b. (a ~> b) -> a -> b
data (@@@#@$) :: forall a b. (a ~> b) ~> a ~> b
data (@@@#@$$) :: forall a b. (a ~> b) -> a ~> b
type (f :: a ~> b) @@@#@$$$ (x :: a) = f @@ x
type instance Apply (@@@#@$) f = (@@@#@$$) f
type instance Apply ((@@@#@$$) f) x = f @@ x
--
-- Internal Parser
data Path = Path PathParam (NonEmpty T.Text)
deriving Show
data PPath = PPath PathParam (NonEmpty Symbol)
data System = Posix | Windows
deriving Show
data FileOrDir = Dir | File
deriving Show
data TypeOfPath = Absolute | Relative
deriving Show
data PathParam = PathParam System FileOrDir TypeOfPath
deriving Show
type DirSym0 :: FileOrDir
type family DirSym0 :: FileOrDir where
DirSym0 = 'Dir
type FileSym0 :: FileOrDir
type family FileSym0 :: FileOrDir where
FileSym0 = 'File
type SFileOrDir :: FileOrDir -> Type
data SFileOrDir :: FileOrDir -> Type
where
SDir :: SFileOrDir ('Dir :: FileOrDir)
SFile :: SFileOrDir ('File :: FileOrDir)
type instance Sing @FileOrDir = SFileOrDir
instance SingKind FileOrDir where
type Demote FileOrDir = FileOrDir
fromSing SDir = Dir
fromSing SFile = File
toSing Dir = SomeSing SDir
toSing File = SomeSing SFile
instance SingI 'Dir where
sing = SDir
instance SingI 'File where
sing = SFile
type AbsoluteSym0 :: TypeOfPath
type family AbsoluteSym0 :: TypeOfPath where
AbsoluteSym0 = 'Absolute
type RelativeSym0 :: TypeOfPath
type family RelativeSym0 :: TypeOfPath where
RelativeSym0 = 'Relative
type STypeOfPath :: TypeOfPath -> Type
data STypeOfPath :: TypeOfPath -> Type
where
SAbsolute :: STypeOfPath ('Absolute :: TypeOfPath)
SRelative :: STypeOfPath ('Relative :: TypeOfPath)
type instance Sing @TypeOfPath = STypeOfPath
instance SingKind TypeOfPath where
type Demote TypeOfPath = TypeOfPath
fromSing SAbsolute = Absolute
fromSing SRelative = Relative
toSing Absolute = SomeSing SAbsolute
toSing Relative = SomeSing SRelative
instance SingI 'Absolute where
sing = SAbsolute
instance SingI 'Relative where
sing = SRelative
type PosixSym0 :: System
type family PosixSym0 :: System where
PosixSym0 = 'Posix
type WindowsSym0 :: System
type family WindowsSym0 :: System where
WindowsSym0 = 'Windows
type SSystem :: System -> Type
data SSystem :: System -> Type
where
SPosix :: SSystem ('Posix :: System)
SWindows :: SSystem ('Windows :: System)
type instance Sing @System = SSystem
instance SingKind System where
type Demote System = System
fromSing SPosix = Posix
fromSing SWindows = Windows
toSing Posix = SomeSing SPosix
toSing Windows = SomeSing SWindows
instance SingI 'Posix where
sing = SPosix
instance SingI 'Windows where
sing = SWindows
type PathParamSym0 :: (~>) System ((~>) FileOrDir ((~>) TypeOfPath PathParam))
data PathParamSym0 :: (~>) System ((~>) FileOrDir ((~>) TypeOfPath PathParam))
where
PathParamSym0KindInference :: SameKind (Apply PathParamSym0 arg_a6gz) (PathParamSym1 arg_a6gz) =>
PathParamSym0 a6989586621679033884
type instance Apply PathParamSym0 a6989586621679033884 = PathParamSym1 a6989586621679033884
instance SuppressUnusedWarnings PathParamSym0 where
suppressUnusedWarnings = snd (((,) PathParamSym0KindInference) ())
type PathParamSym1 :: System
-> (~>) FileOrDir ((~>) TypeOfPath PathParam)
data PathParamSym1 (a6989586621679033884 :: System) :: (~>) FileOrDir ((~>) TypeOfPath PathParam)
where
PathParamSym1KindInference :: SameKind (Apply (PathParamSym1 a6989586621679033884) arg_a6gz) (PathParamSym2 a6989586621679033884 arg_a6gz) =>
PathParamSym1 a6989586621679033884 a6989586621679033885
type instance Apply (PathParamSym1 a6989586621679033884) a6989586621679033885 = PathParamSym2 a6989586621679033884 a6989586621679033885
instance SuppressUnusedWarnings (PathParamSym1 a6989586621679033884) where
suppressUnusedWarnings = snd (((,) PathParamSym1KindInference) ())
type PathParamSym2 :: System
-> FileOrDir -> (~>) TypeOfPath PathParam
data PathParamSym2 (a6989586621679033884 :: System) (a6989586621679033885 :: FileOrDir) :: (~>) TypeOfPath PathParam
where
PathParamSym2KindInference :: SameKind (Apply (PathParamSym2 a6989586621679033884 a6989586621679033885) arg_a6gz) (PathParamSym3 a6989586621679033884 a6989586621679033885 arg_a6gz) =>
PathParamSym2 a6989586621679033884 a6989586621679033885 a6989586621679033886
type instance Apply (PathParamSym2 a6989586621679033884 a6989586621679033885) a6989586621679033886 = 'PathParam a6989586621679033884 a6989586621679033885 a6989586621679033886
instance SuppressUnusedWarnings (PathParamSym2 a6989586621679033884 a6989586621679033885) where
suppressUnusedWarnings = snd (((,) PathParamSym2KindInference) ())
type PathParamSym3 :: System
-> FileOrDir -> TypeOfPath -> PathParam
type family PathParamSym3 (a6989586621679033884 :: System) (a6989586621679033885 :: FileOrDir) (a6989586621679033886 :: TypeOfPath) :: PathParam where
PathParamSym3 a6989586621679033884 a6989586621679033885 a6989586621679033886 = 'PathParam a6989586621679033884 a6989586621679033885 a6989586621679033886
type SPathParam :: PathParam -> Type
data SPathParam :: PathParam -> Type
where
SPathParam :: forall (n_a6gD :: System)
(n_a6gE :: FileOrDir)
(n_a6gF :: TypeOfPath).
(Sing n_a6gD)
-> (Sing n_a6gE)
-> (Sing n_a6gF)
-> SPathParam ('PathParam n_a6gD n_a6gE n_a6gF :: PathParam)
type instance Sing @PathParam = SPathParam
instance SingKind PathParam where
type Demote PathParam = PathParam
fromSing (SPathParam b_a6gJ b_a6gK b_a6gL)
= ((PathParam (fromSing b_a6gJ)) (fromSing b_a6gK))
(fromSing b_a6gL)
toSing
(PathParam (b_a6gN :: Demote System) (b_a6gO :: Demote FileOrDir)
(b_a6gP :: Demote TypeOfPath))
= case
(((,,) (toSing b_a6gN :: SomeSing System))
(toSing b_a6gO :: SomeSing FileOrDir))
(toSing b_a6gP :: SomeSing TypeOfPath)
of {
(,,) (SomeSing c_a6gQ) (SomeSing c_a6gR) (SomeSing c_a6gS)
-> SomeSing (((SPathParam c_a6gQ) c_a6gR) c_a6gS) }
instance (SingI n_a6gD, SingI n_a6gE, SingI n_a6gF) =>
SingI ('PathParam (n_a6gD :: System) (n_a6gE :: FileOrDir) (n_a6gF :: TypeOfPath)) where
sing = ((SPathParam sing) sing) sing
instance SingI (PathParamSym0 :: (~>) System ((~>) FileOrDir ((~>) TypeOfPath PathParam))) where
sing = (singFun3 @PathParamSym0) SPathParam
instance SingI d_a6gG =>
SingI (PathParamSym1 (d_a6gG :: System) :: (~>) FileOrDir ((~>) TypeOfPath PathParam)) where
sing
= (singFun2 @(PathParamSym1 (d_a6gG :: System)))
(SPathParam (sing @d_a6gG))
instance (SingI d_a6gG, SingI d_a6gH) =>
SingI (PathParamSym2 (d_a6gG :: System) (d_a6gH :: FileOrDir) :: (~>) TypeOfPath PathParam) where
sing
= (singFun1
@(PathParamSym2 (d_a6gG :: System) (d_a6gH :: FileOrDir)))
((SPathParam (sing @d_a6gG)) (sing @d_a6gH))
newtype Parser a = P (String -> Either T.Text (String,a))
newtype PParser a = PP (String ~> Either Symbol (String,a))
--
type FalseSym0 :: Bool
type family FalseSym0 :: Bool where
FalseSym0 = 'False
type TrueSym0 :: Bool
type family TrueSym0 :: Bool where
TrueSym0 = 'True
type SBool :: Bool -> Type
data SBool :: Bool -> Type
where
SFalse :: SBool ('False :: Bool)
STrue :: SBool ('True :: Bool)
type instance Sing @Bool = SBool
instance SingKind Bool where
type Demote Bool = Bool
fromSing SFalse = False
fromSing STrue = True
toSing False = SomeSing SFalse
toSing True = SomeSing STrue
instance SingI 'False where
sing = SFalse
instance SingI 'True where
sing = STrue
type LTSym0 :: Ordering
type family LTSym0 :: Ordering where
LTSym0 = 'LT
type EQSym0 :: Ordering
type family EQSym0 :: Ordering where
EQSym0 = 'EQ
type GTSym0 :: Ordering
type family GTSym0 :: Ordering where
GTSym0 = 'GT
type SOrdering :: Ordering -> Type
data SOrdering :: Ordering -> Type
where
SLT :: SOrdering ('LT :: Ordering)
SEQ :: SOrdering ('EQ :: Ordering)
SGT :: SOrdering ('GT :: Ordering)
type instance Sing @Ordering = SOrdering
instance SingKind Ordering where
type Demote Ordering = Ordering
fromSing SLT = LT
fromSing SEQ = EQ
fromSing SGT = GT
toSing LT = SomeSing SLT
toSing EQ = SomeSing SEQ
toSing GT = SomeSing SGT
instance SingI 'LT where
sing = SLT
instance SingI 'EQ where
sing = SEQ
instance SingI 'GT where
sing = SGT
type NilSym0 :: forall (a_11 :: Type). [a_11 :: Type]
type family NilSym0 :: [a_11 :: Type] where
NilSym0 = '[]
type (:@#@$) :: forall (a_11 :: Type). (~>) a_11 ((~>) [a_11] [a_11 :: Type])
data (:@#@$) :: (~>) a_11 ((~>) [a_11] [a_11 :: Type])
where
(::@#@$###) :: SameKind (Apply (:@#@$) arg_a8ae) ((:@#@$$) arg_a8ae) =>
(:@#@$) a6989586621679041179
type instance Apply (:@#@$) a6989586621679041179 = (:@#@$$) a6989586621679041179
instance SuppressUnusedWarnings (:@#@$) where
suppressUnusedWarnings = snd (((,) (::@#@$###)) ())
infixr 5 :@#@$
type (:@#@$$) :: forall (a_11 :: Type). a_11
-> (~>) [a_11] [a_11 :: Type]
data (:@#@$$) (a6989586621679041179 :: a_11) :: (~>) [a_11] [a_11 :: Type]
where
(::@#@$$###) :: SameKind (Apply ((:@#@$$) a6989586621679041179) arg_a8ae) ((:@#@$$$) a6989586621679041179 arg_a8ae) =>
(:@#@$$) a6989586621679041179 a6989586621679041180
type instance Apply ((:@#@$$) a6989586621679041179) a6989586621679041180 = '(:) a6989586621679041179 a6989586621679041180
instance SuppressUnusedWarnings ((:@#@$$) a6989586621679041179) where
suppressUnusedWarnings = snd (((,) (::@#@$$###)) ())
infixr 5 :@#@$$
type (:@#@$$$) :: forall (a_11 :: Type). a_11
-> [a_11] -> [a_11 :: Type]
type family (:@#@$$$) (a6989586621679041179 :: a_11) (a6989586621679041180 :: [a_11]) :: [a_11 :: Type] where
(:@#@$$$) a6989586621679041179 a6989586621679041180 = '(:) a6989586621679041179 a6989586621679041180
infixr 5 :@#@$$$
type SList :: forall (a_11 :: Type). [a_11] -> Type
data SList :: forall (a_11 :: Type). [a_11] -> Type
where
SNil :: forall (a_11 :: Type). SList ('[] :: [a_11 :: Type])
SCons :: forall (a_11 :: Type) (n_a8ah :: a_11) (n_a8ai :: [a_11]).
(Sing n_a8ah)
-> (Sing n_a8ai)
-> SList ('(:) n_a8ah n_a8ai :: [a_11 :: Type])
type instance Sing @[a_11] = SList
instance SingKind a_11 => SingKind [a_11] where
type Demote [a_11] = [Demote a_11]
fromSing SNil = []
fromSing (SCons b_a8al b_a8am)
= ((:) (fromSing b_a8al)) (fromSing b_a8am)
toSing [] = SomeSing SNil
toSing ((:) (b_a8ao :: Demote a_11) (b_a8ap :: Demote [a_11]))
= case
((,) (toSing b_a8ao :: SomeSing a_11))
(toSing b_a8ap :: SomeSing [a_11])
of {
(,) (SomeSing c_a8aq) (SomeSing c_a8ar)
-> SomeSing ((SCons c_a8aq) c_a8ar) }
infixr 5 `SCons`
instance SingI '[] where
sing = SNil
instance (SingI n_a8ah, SingI n_a8ai) =>
SingI ('(:) (n_a8ah :: a_11) (n_a8ai :: [a_11])) where
sing = (SCons sing) sing
instance SingI ((:@#@$) :: (~>) a_11 ((~>) [a_11] [a_11 :: Type])) where
sing = (singFun2 @(:@#@$)) SCons
instance SingI d_a8aj =>
SingI ((:@#@$$) (d_a8aj :: a_11) :: (~>) [a_11] [a_11 :: Type]) where
sing
= (singFun1 @((:@#@$$) (d_a8aj :: a_11))) (SCons (sing @d_a8aj))
type (:|@#@$) :: forall (a_i8at :: Type). (~>) a_i8at ((~>) [a_i8at] (NonEmpty (a_i8at :: Type)))
data (:|@#@$) :: (~>) a_i8at ((~>) [a_i8at] (NonEmpty (a_i8at :: Type)))
where
(::|@#@$###) :: SameKind (Apply (:|@#@$) arg_a8aC) ((:|@#@$$) arg_a8aC) =>
(:|@#@$) a6989586621679041203
type instance Apply (:|@#@$) a6989586621679041203 = (:|@#@$$) a6989586621679041203
instance SuppressUnusedWarnings (:|@#@$) where
suppressUnusedWarnings = snd (((,) (::|@#@$###)) ())
infixr 5 :|@#@$
type (:|@#@$$) :: forall (a_i8at :: Type). a_i8at
-> (~>) [a_i8at] (NonEmpty (a_i8at :: Type))
data (:|@#@$$) (a6989586621679041203 :: a_i8at) :: (~>) [a_i8at] (NonEmpty (a_i8at :: Type))
where
(::|@#@$$###) :: SameKind (Apply ((:|@#@$$) a6989586621679041203) arg_a8aC) ((:|@#@$$$) a6989586621679041203 arg_a8aC) =>
(:|@#@$$) a6989586621679041203 a6989586621679041204
type instance Apply ((:|@#@$$) a6989586621679041203) a6989586621679041204 = '(:|) a6989586621679041203 a6989586621679041204
instance SuppressUnusedWarnings ((:|@#@$$) a6989586621679041203) where
suppressUnusedWarnings = snd (((,) (::|@#@$$###)) ())
infixr 5 :|@#@$$
type (:|@#@$$$) :: forall (a_i8at :: Type). a_i8at
-> [a_i8at] -> NonEmpty (a_i8at :: Type)
type family (:|@#@$$$) (a6989586621679041203 :: a_i8at) (a6989586621679041204 :: [a_i8at]) :: NonEmpty (a_i8at :: Type) where
(:|@#@$$$) a6989586621679041203 a6989586621679041204 = '(:|) a6989586621679041203 a6989586621679041204
infixr 5 :|@#@$$$
type SNonEmpty :: forall (a_i8at :: Type). NonEmpty a_i8at -> Type
data SNonEmpty :: forall (a_i8at :: Type). NonEmpty a_i8at -> Type
where
(:%|) :: forall (a_i8at :: Type)
(n_a8aF :: a_i8at)
(n_a8aG :: [a_i8at]).
(Sing n_a8aF)
-> (Sing n_a8aG)
-> SNonEmpty ('(:|) n_a8aF n_a8aG :: NonEmpty (a_i8at :: Type))
type instance Sing @(NonEmpty a_i8at) = SNonEmpty
instance SingKind a_i8at => SingKind (NonEmpty a_i8at) where
type Demote (NonEmpty a_i8at) = NonEmpty (Demote a_i8at)
fromSing ((:%|) b_a8aJ b_a8aK)
= ((:|) (fromSing b_a8aJ)) (fromSing b_a8aK)
toSing ((:|) (b_a8aM :: Demote a_i8at) (b_a8aN :: Demote [a_i8at]))
= case
((,) (toSing b_a8aM :: SomeSing a_i8at))
(toSing b_a8aN :: SomeSing [a_i8at])
of {
(,) (SomeSing c_a8aO) (SomeSing c_a8aP)
-> SomeSing (((:%|) c_a8aO) c_a8aP) }
infixr 5 :%|
instance (SingI n_a8aF, SingI n_a8aG) =>
SingI ('(:|) (n_a8aF :: a_i8at) (n_a8aG :: [a_i8at])) where
sing = ((:%|) sing) sing
instance SingI ((:|@#@$) :: (~>) a_i8at ((~>) [a_i8at] (NonEmpty (a_i8at :: Type)))) where
sing = (singFun2 @(:|@#@$)) (:%|)
instance SingI d_a8aH =>
SingI ((:|@#@$$) (d_a8aH :: a_i8at) :: (~>) [a_i8at] (NonEmpty (a_i8at :: Type))) where
sing
= (singFun1 @((:|@#@$$) (d_a8aH :: a_i8at))) ((:%|) (sing @d_a8aH))
type Tuple0Sym0 :: ()
type family Tuple0Sym0 :: () where
Tuple0Sym0 = '()
type STuple0 :: () -> Type
data STuple0 :: () -> Type where STuple0 :: STuple0 ('() :: ())
type instance Sing @() = STuple0
instance SingKind () where
type Demote () = ()
fromSing STuple0 = ()
toSing () = SomeSing STuple0
instance SingI '() where
sing = STuple0
type Tuple2Sym0 :: forall (a_11 :: Type)
(b_12 :: Type). (~>) a_11 ((~>) b_12 (a_11 :: Type, b_12 :: Type))
data Tuple2Sym0 :: (~>) a_11 ((~>) b_12 (a_11 :: Type,
b_12 :: Type))
where
Tuple2Sym0KindInference :: SameKind (Apply Tuple2Sym0 arg_a8hm) (Tuple2Sym1 arg_a8hm) =>
Tuple2Sym0 a6989586621679041621
type instance Apply Tuple2Sym0 a6989586621679041621 = Tuple2Sym1 a6989586621679041621
instance SuppressUnusedWarnings Tuple2Sym0 where
suppressUnusedWarnings = snd (((,) Tuple2Sym0KindInference) ())
type Tuple2Sym1 :: forall (a_11 :: Type) (b_12 :: Type). a_11
-> (~>) b_12 (a_11 :: Type,
b_12 :: Type)
data Tuple2Sym1 (a6989586621679041621 :: a_11) :: (~>) b_12 (a_11 :: Type,
b_12 :: Type)
where
Tuple2Sym1KindInference :: SameKind (Apply (Tuple2Sym1 a6989586621679041621) arg_a8hm) (Tuple2Sym2 a6989586621679041621 arg_a8hm) =>
Tuple2Sym1 a6989586621679041621 a6989586621679041622
type instance Apply (Tuple2Sym1 a6989586621679041621) a6989586621679041622 = '(a6989586621679041621,
a6989586621679041622)
instance SuppressUnusedWarnings (Tuple2Sym1 a6989586621679041621) where
suppressUnusedWarnings = snd (((,) Tuple2Sym1KindInference) ())
type Tuple2Sym2 :: forall (a_11 :: Type) (b_12 :: Type). a_11
-> b_12 -> (a_11 :: Type, b_12 :: Type)
type family Tuple2Sym2 (a6989586621679041621 :: a_11) (a6989586621679041622 :: b_12) :: (a_11 :: Type,
b_12 :: Type) where
Tuple2Sym2 a6989586621679041621 a6989586621679041622 = '(a6989586621679041621,
a6989586621679041622)
type STuple2 :: forall (a_11 :: Type) (b_12 :: Type). (a_11, b_12)
-> Type
data STuple2 :: forall (a_11 :: Type) (b_12 :: Type).
(a_11, b_12) -> Type
where
STuple2 :: forall (a_11 :: Type)
(b_12 :: Type)
(n_a8hp :: a_11)
(n_a8hq :: b_12).
(Sing n_a8hp)
-> (Sing n_a8hq)
-> STuple2 ('(n_a8hp, n_a8hq) :: (a_11 :: Type, b_12 :: Type))
type instance Sing @(a_11, b_12) = STuple2
instance (SingKind a_11, SingKind b_12) =>
SingKind (a_11, b_12) where
type Demote (a_11, b_12) = (Demote a_11, Demote b_12)
fromSing (STuple2 b_a8ht b_a8hu)
= ((,) (fromSing b_a8ht)) (fromSing b_a8hu)
toSing ((,) (b_a8hw :: Demote a_11) (b_a8hx :: Demote b_12))
= case
((,) (toSing b_a8hw :: SomeSing a_11))
(toSing b_a8hx :: SomeSing b_12)
of {
(,) (SomeSing c_a8hy) (SomeSing c_a8hz)
-> SomeSing ((STuple2 c_a8hy) c_a8hz) }
instance (SingI n_a8hp, SingI n_a8hq) =>
SingI '(n_a8hp :: a_11, n_a8hq :: b_12) where
sing = (STuple2 sing) sing
instance SingI (Tuple2Sym0 :: (~>) a_11 ((~>) b_12 (a_11 :: Type,
b_12 :: Type))) where
sing = (singFun2 @Tuple2Sym0) STuple2
instance SingI d_a8hr =>
SingI (Tuple2Sym1 (d_a8hr :: a_11) :: (~>) b_12 (a_11 :: Type,
b_12 :: Type)) where
sing
= (singFun1 @(Tuple2Sym1 (d_a8hr :: a_11)))
(STuple2 (sing @d_a8hr))
type LeftSym0 :: forall (a_i8hB :: Type)
(b_i8hC :: Type). (~>) a_i8hB (Either (a_i8hB :: Type) (b_i8hC :: Type))
data LeftSym0 :: (~>) a_i8hB (Either (a_i8hB :: Type) (b_i8hC :: Type))
where
LeftSym0KindInference :: SameKind (Apply LeftSym0 arg_a8i7) (LeftSym1 arg_a8i7) =>
LeftSym0 a6989586621679041668
type instance Apply LeftSym0 a6989586621679041668 = 'Left a6989586621679041668
instance SuppressUnusedWarnings LeftSym0 where
suppressUnusedWarnings = snd (((,) LeftSym0KindInference) ())
type LeftSym1 :: forall (a_i8hB :: Type) (b_i8hC :: Type). a_i8hB
-> Either (a_i8hB :: Type) (b_i8hC :: Type)
type family LeftSym1 (a6989586621679041668 :: a_i8hB) :: Either (a_i8hB :: Type) (b_i8hC :: Type) where
LeftSym1 a6989586621679041668 = 'Left a6989586621679041668
type RightSym0 :: forall (a_i8hB :: Type)
(b_i8hC :: Type). (~>) b_i8hC (Either (a_i8hB :: Type) (b_i8hC :: Type))
data RightSym0 :: (~>) b_i8hC (Either (a_i8hB :: Type) (b_i8hC :: Type))
where
RightSym0KindInference :: SameKind (Apply RightSym0 arg_a8i9) (RightSym1 arg_a8i9) =>
RightSym0 a6989586621679041670
type instance Apply RightSym0 a6989586621679041670 = 'Right a6989586621679041670
instance SuppressUnusedWarnings RightSym0 where
suppressUnusedWarnings = snd (((,) RightSym0KindInference) ())
type RightSym1 :: forall (a_i8hB :: Type) (b_i8hC :: Type). b_i8hC
-> Either (a_i8hB :: Type) (b_i8hC :: Type)
type family RightSym1 (a6989586621679041670 :: b_i8hC) :: Either (a_i8hB :: Type) (b_i8hC :: Type) where
RightSym1 a6989586621679041670 = 'Right a6989586621679041670
type SEither :: forall (a_i8hB :: Type)
(b_i8hC :: Type). Either a_i8hB b_i8hC -> Type
data SEither :: forall (a_i8hB :: Type) (b_i8hC :: Type).
Either a_i8hB b_i8hC -> Type
where
SLeft :: forall (a_i8hB :: Type)
(b_i8hC :: Type)
(n_a8ib :: a_i8hB).
(Sing n_a8ib)
-> SEither ('Left n_a8ib :: Either (a_i8hB :: Type) (b_i8hC :: Type))
SRight :: forall (a_i8hB :: Type)
(b_i8hC :: Type)
(n_a8id :: b_i8hC).
(Sing n_a8id)
-> SEither ('Right n_a8id :: Either (a_i8hB :: Type) (b_i8hC :: Type))
type instance Sing @(Either a_i8hB b_i8hC) = SEither
instance (SingKind a_i8hB, SingKind b_i8hC) =>
SingKind (Either a_i8hB b_i8hC) where
type Demote (Either a_i8hB b_i8hC) = Either (Demote a_i8hB) (Demote b_i8hC)
fromSing (SLeft b_a8if) = Left (fromSing b_a8if)
fromSing (SRight b_a8ig) = Right (fromSing b_a8ig)
toSing (Left (b_a8ii :: Demote a_i8hB))
= case toSing b_a8ii :: SomeSing a_i8hB of {
SomeSing c_a8ij -> SomeSing (SLeft c_a8ij) }
toSing (Right (b_a8ik :: Demote b_i8hC))
= case toSing b_a8ik :: SomeSing b_i8hC of {
SomeSing c_a8il -> SomeSing (SRight c_a8il) }
instance SingI n_a8ib => SingI ('Left (n_a8ib :: a_i8hB)) where
sing = SLeft sing
instance SingI (LeftSym0 :: (~>) a_i8hB (Either (a_i8hB :: Type) (b_i8hC :: Type))) where
sing = (singFun1 @LeftSym0) SLeft
instance SingI n_a8id => SingI ('Right (n_a8id :: b_i8hC)) where
sing = SRight sing
instance SingI (RightSym0 :: (~>) b_i8hC (Either (a_i8hB :: Type) (b_i8hC :: Type))) where
sing = (singFun1 @RightSym0) SRight
-- | Negation of a singleton
sNot :: Sing a -> Sing (Not a)
sNot SFalse = STrue
sNot STrue = SFalse
type NotSym0 :: (~>) Bool Bool
data NotSym0 :: (~>) Bool Bool
where
NotSym0KindInference :: SameKind (Apply NotSym0 arg_ab4T) (NotSym1 arg_ab4T) =>
NotSym0 a6989586621679052380
type instance Apply NotSym0 a6989586621679052380 = Not a6989586621679052380
instance SuppressUnusedWarnings NotSym0 where
suppressUnusedWarnings = snd (((,) NotSym0KindInference) ())
type NotSym1 :: Bool -> Bool
type family NotSym1 (a6989586621679052380 :: Bool) :: Bool where
NotSym1 a6989586621679052380 = Not a6989586621679052380
instance SingI NotSym0 where
sing = singFun1 sNot
type SNat :: Nat -> Type
data SNat (n :: Nat) = KnownNat n => SNat
type instance Sing = SNat
instance KnownNat n => SingI n where
sing = SNat
instance SingKind Nat where
type Demote Nat = Natural
fromSing (SNat :: Sing n) = TN.natVal (Proxy :: Proxy n)
toSing n = case TN.someNatVal n of
SomeNat (_ :: Proxy n) -> SomeSing (SNat :: Sing n)
type SSymbol :: Symbol -> Type
data SSymbol (n :: Symbol) = KnownSymbol n => SSym
type instance Sing = SSymbol
instance KnownSymbol n => SingI n where
sing = SSym
instance SingKind Symbol where
type Demote Symbol = T.Text
fromSing (SSym :: Sing n) = T.pack (symbolVal (Proxy :: Proxy n))
toSing s = case someSymbolVal (T.unpack s) of
SomeSymbol (_ :: Proxy n) -> SomeSing (SSym :: Sing n)
type SChar :: Char -> Type
data SChar (c :: Char) = KnownChar c => SChar
type instance Sing = SChar
instance KnownChar c => SingI c where
sing = SChar
instance SingKind Char where
type Demote Char = Char
fromSing (SChar :: Sing c) = charVal (Proxy :: Proxy c)
toSing c = case someCharVal c of
SomeChar (_ :: Proxy c) -> SomeSing (SChar :: Sing c)
-- | Conjunction of singletons
(%&&) :: Sing a -> Sing b -> Sing (a && b)
SFalse %&& _ = SFalse
STrue %&& a = a
infixr 3 %&&
type (&&@#@$) :: (~>) Bool ((~>) Bool Bool)
data (&&@#@$) :: (~>) Bool ((~>) Bool Bool)
where
(:&&@#@$###) :: SameKind (Apply (&&@#@$) arg_abfT) ((&&@#@$$) arg_abfT) =>
(&&@#@$) a6989586621679053062
type instance Apply (&&@#@$) a6989586621679053062 = (&&@#@$$) a6989586621679053062
instance SuppressUnusedWarnings (&&@#@$) where
suppressUnusedWarnings = snd (((,) (:&&@#@$###)) ())
infixr 3 &&@#@$
type (&&@#@$$) :: Bool -> (~>) Bool Bool
data (&&@#@$$) (a6989586621679053062 :: Bool) :: (~>) Bool Bool
where
(:&&@#@$$###) :: SameKind (Apply ((&&@#@$$) a6989586621679053062) arg_abfT) ((&&@#@$$$) a6989586621679053062 arg_abfT) =>
(&&@#@$$) a6989586621679053062 a6989586621679053063
type instance Apply ((&&@#@$$) a6989586621679053062) a6989586621679053063 = (&&) a6989586621679053062 a6989586621679053063
instance SuppressUnusedWarnings ((&&@#@$$) a6989586621679053062) where
suppressUnusedWarnings = snd (((,) (:&&@#@$$###)) ())
infixr 3 &&@#@$$
type (&&@#@$$$) :: Bool -> Bool -> Bool
type family (&&@#@$$$) (a6989586621679053062 :: Bool) (a6989586621679053063 :: Bool) :: Bool where
(&&@#@$$$) a6989586621679053062 a6989586621679053063 = (&&) a6989586621679053062 a6989586621679053063
infixr 3 &&@#@$$$
instance SingI (&&@#@$) where
sing = singFun2 (%&&)
instance SingI x => SingI ((&&@#@$$) x) where
sing = singFun1 (sing @x %&&)
infix 4 /=
infix 4 ==
type (==@#@$) :: forall a_abwD. (~>) a_abwD ((~>) a_abwD Bool)
data (==@#@$) :: (~>) a_abwD ((~>) a_abwD Bool)
where
(:==@#@$###) :: SameKind (Apply (==@#@$) arg_abwZ) ((==@#@$$) arg_abwZ) =>
(==@#@$) a6989586621679054122
type instance Apply (==@#@$) a6989586621679054122 = (==@#@$$) a6989586621679054122
instance SuppressUnusedWarnings (==@#@$) where
suppressUnusedWarnings = snd (((,) (:==@#@$###)) ())
infix 4 ==@#@$
type (==@#@$$) :: forall a_abwD. a_abwD -> (~>) a_abwD Bool
data (==@#@$$) (a6989586621679054122 :: a_abwD) :: (~>) a_abwD Bool
where
(:==@#@$$###) :: SameKind (Apply ((==@#@$$) a6989586621679054122) arg_abwZ) ((==@#@$$$) a6989586621679054122 arg_abwZ) =>
(==@#@$$) a6989586621679054122 a6989586621679054123
type instance Apply ((==@#@$$) a6989586621679054122) a6989586621679054123 = (==) a6989586621679054122 a6989586621679054123
instance SuppressUnusedWarnings ((==@#@$$) a6989586621679054122) where
suppressUnusedWarnings = snd (((,) (:==@#@$$###)) ())
infix 4 ==@#@$$
type (==@#@$$$) :: forall a_abwD. a_abwD -> a_abwD -> Bool
type family (==@#@$$$) (a6989586621679054122 :: a_abwD) (a6989586621679054123 :: a_abwD) :: Bool where
(==@#@$$$) a6989586621679054122 a6989586621679054123 = (==) a6989586621679054122 a6989586621679054123
infix 4 ==@#@$$$
type (/=@#@$) :: forall a_abwD. (~>) a_abwD ((~>) a_abwD Bool)
data (/=@#@$) :: (~>) a_abwD ((~>) a_abwD Bool)
where
(:/=@#@$###) :: SameKind (Apply (/=@#@$) arg_abx4) ((/=@#@$$) arg_abx4) =>
(/=@#@$) a6989586621679054127
type instance Apply (/=@#@$) a6989586621679054127 = (/=@#@$$) a6989586621679054127
instance SuppressUnusedWarnings (/=@#@$) where
suppressUnusedWarnings = snd (((,) (:/=@#@$###)) ())
infix 4 /=@#@$
type (/=@#@$$) :: forall a_abwD. a_abwD -> (~>) a_abwD Bool
data (/=@#@$$) (a6989586621679054127 :: a_abwD) :: (~>) a_abwD Bool
where
(:/=@#@$$###) :: SameKind (Apply ((/=@#@$$) a6989586621679054127) arg_abx4) ((/=@#@$$$) a6989586621679054127 arg_abx4) =>
(/=@#@$$) a6989586621679054127 a6989586621679054128
type instance Apply ((/=@#@$$) a6989586621679054127) a6989586621679054128 = (/=) a6989586621679054127 a6989586621679054128
instance SuppressUnusedWarnings ((/=@#@$$) a6989586621679054127) where
suppressUnusedWarnings = snd (((,) (:/=@#@$$###)) ())
infix 4 /=@#@$$
type (/=@#@$$$) :: forall a_abwD. a_abwD -> a_abwD -> Bool
type family (/=@#@$$$) (a6989586621679054127 :: a_abwD) (a6989586621679054128 :: a_abwD) :: Bool where
(/=@#@$$$) a6989586621679054127 a6989586621679054128 = (/=) a6989586621679054127 a6989586621679054128
infix 4 /=@#@$$$
type TFHelper_6989586621679054131 :: a_abwD -> a_abwD -> Bool
type family TFHelper_6989586621679054131 (a_abxb :: a_abwD) (a_abxc :: a_abwD) :: Bool where
TFHelper_6989586621679054131 x_abxg y_abxh = Apply NotSym0 (Apply (Apply (==@#@$) x_abxg) y_abxh)
type TFHelper_6989586621679054131Sym0 :: (~>) a_abwD ((~>) a_abwD Bool)
data TFHelper_6989586621679054131Sym0 :: (~>) a_abwD ((~>) a_abwD Bool)
where
TFHelper_6989586621679054131Sym0KindInference :: SameKind (Apply TFHelper_6989586621679054131Sym0 arg_abxd) (TFHelper_6989586621679054131Sym1 arg_abxd) =>
TFHelper_6989586621679054131Sym0 a6989586621679054136
type instance Apply TFHelper_6989586621679054131Sym0 a6989586621679054136 = TFHelper_6989586621679054131Sym1 a6989586621679054136
instance SuppressUnusedWarnings TFHelper_6989586621679054131Sym0 where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679054131Sym0KindInference) ())
type TFHelper_6989586621679054131Sym1 :: a_abwD -> (~>) a_abwD Bool
data TFHelper_6989586621679054131Sym1 (a6989586621679054136 :: a_abwD) :: (~>) a_abwD Bool
where
TFHelper_6989586621679054131Sym1KindInference :: SameKind (Apply (TFHelper_6989586621679054131Sym1 a6989586621679054136) arg_abxd) (TFHelper_6989586621679054131Sym2 a6989586621679054136 arg_abxd) =>
TFHelper_6989586621679054131Sym1 a6989586621679054136 a6989586621679054137
type instance Apply (TFHelper_6989586621679054131Sym1 a6989586621679054136) a6989586621679054137 = TFHelper_6989586621679054131 a6989586621679054136 a6989586621679054137
instance SuppressUnusedWarnings (TFHelper_6989586621679054131Sym1 a6989586621679054136) where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679054131Sym1KindInference) ())
type TFHelper_6989586621679054131Sym2 :: a_abwD -> a_abwD -> Bool
type family TFHelper_6989586621679054131Sym2 (a6989586621679054136 :: a_abwD) (a6989586621679054137 :: a_abwD) :: Bool where
TFHelper_6989586621679054131Sym2 a6989586621679054136 a6989586621679054137 = TFHelper_6989586621679054131 a6989586621679054136 a6989586621679054137
type TFHelper_6989586621679054142 :: a_abwD -> a_abwD -> Bool
type family TFHelper_6989586621679054142 (a_abxm :: a_abwD) (a_abxn :: a_abwD) :: Bool where
TFHelper_6989586621679054142 x_abxr y_abxs = Apply NotSym0 (Apply (Apply (/=@#@$) x_abxr) y_abxs)
type TFHelper_6989586621679054142Sym0 :: (~>) a_abwD ((~>) a_abwD Bool)
data TFHelper_6989586621679054142Sym0 :: (~>) a_abwD ((~>) a_abwD Bool)
where
TFHelper_6989586621679054142Sym0KindInference :: SameKind (Apply TFHelper_6989586621679054142Sym0 arg_abxo) (TFHelper_6989586621679054142Sym1 arg_abxo) =>
TFHelper_6989586621679054142Sym0 a6989586621679054147
type instance Apply TFHelper_6989586621679054142Sym0 a6989586621679054147 = TFHelper_6989586621679054142Sym1 a6989586621679054147
instance SuppressUnusedWarnings TFHelper_6989586621679054142Sym0 where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679054142Sym0KindInference) ())
type TFHelper_6989586621679054142Sym1 :: a_abwD -> (~>) a_abwD Bool
data TFHelper_6989586621679054142Sym1 (a6989586621679054147 :: a_abwD) :: (~>) a_abwD Bool
where
TFHelper_6989586621679054142Sym1KindInference :: SameKind (Apply (TFHelper_6989586621679054142Sym1 a6989586621679054147) arg_abxo) (TFHelper_6989586621679054142Sym2 a6989586621679054147 arg_abxo) =>
TFHelper_6989586621679054142Sym1 a6989586621679054147 a6989586621679054148
type instance Apply (TFHelper_6989586621679054142Sym1 a6989586621679054147) a6989586621679054148 = TFHelper_6989586621679054142 a6989586621679054147 a6989586621679054148
instance SuppressUnusedWarnings (TFHelper_6989586621679054142Sym1 a6989586621679054147) where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679054142Sym1KindInference) ())
type TFHelper_6989586621679054142Sym2 :: a_abwD -> a_abwD -> Bool
type family TFHelper_6989586621679054142Sym2 (a6989586621679054147 :: a_abwD) (a6989586621679054148 :: a_abwD) :: Bool where
TFHelper_6989586621679054142Sym2 a6989586621679054147 a6989586621679054148 = TFHelper_6989586621679054142 a6989586621679054147 a6989586621679054148
class PEq a_abwD where
type (==) (arg_abwX :: a_abwD) (arg_abwY :: a_abwD) :: Bool
type (/=) (arg_abx2 :: a_abwD) (arg_abx3 :: a_abwD) :: Bool
type (/=) a_abx7 a_abx8 = Apply (Apply TFHelper_6989586621679054131Sym0 a_abx7) a_abx8
type (==) a_abxi a_abxj = Apply (Apply TFHelper_6989586621679054142Sym0 a_abxi) a_abxj
type TFHelper_6989586621679054153 :: [a_abwI] -> [a_abwI] -> Bool
type family TFHelper_6989586621679054153 (a_abxx :: [a_abwI]) (a_abxy :: [a_abwI]) :: Bool where
TFHelper_6989586621679054153 '[] '[] = TrueSym0
TFHelper_6989586621679054153 ('(:) a_abxC _) '[] = FalseSym0
TFHelper_6989586621679054153 '[] ('(:) a_abxD _) = FalseSym0
TFHelper_6989586621679054153 ('(:) a_abxE as_abxF) ('(:) b_abxG bs_abxH) = Apply (Apply (&&@#@$) (Apply (Apply (==@#@$) a_abxE) b_abxG)) (Apply (Apply (==@#@$) as_abxF) bs_abxH)
type TFHelper_6989586621679054153Sym0 :: (~>) [a_abwI] ((~>) [a_abwI] Bool)
data TFHelper_6989586621679054153Sym0 :: (~>) [a_abwI] ((~>) [a_abwI] Bool)
where
TFHelper_6989586621679054153Sym0KindInference :: SameKind (Apply TFHelper_6989586621679054153Sym0 arg_abxz) (TFHelper_6989586621679054153Sym1 arg_abxz) =>
TFHelper_6989586621679054153Sym0 a6989586621679054158
type instance Apply TFHelper_6989586621679054153Sym0 a6989586621679054158 = TFHelper_6989586621679054153Sym1 a6989586621679054158
instance SuppressUnusedWarnings TFHelper_6989586621679054153Sym0 where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679054153Sym0KindInference) ())
type TFHelper_6989586621679054153Sym1 :: [a_abwI]
-> (~>) [a_abwI] Bool
data TFHelper_6989586621679054153Sym1 (a6989586621679054158 :: [a_abwI]) :: (~>) [a_abwI] Bool
where
TFHelper_6989586621679054153Sym1KindInference :: SameKind (Apply (TFHelper_6989586621679054153Sym1 a6989586621679054158) arg_abxz) (TFHelper_6989586621679054153Sym2 a6989586621679054158 arg_abxz) =>
TFHelper_6989586621679054153Sym1 a6989586621679054158 a6989586621679054159
type instance Apply (TFHelper_6989586621679054153Sym1 a6989586621679054158) a6989586621679054159 = TFHelper_6989586621679054153 a6989586621679054158 a6989586621679054159
instance SuppressUnusedWarnings (TFHelper_6989586621679054153Sym1 a6989586621679054158) where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679054153Sym1KindInference) ())
type TFHelper_6989586621679054153Sym2 :: [a_abwI]
-> [a_abwI] -> Bool
type family TFHelper_6989586621679054153Sym2 (a6989586621679054158 :: [a_abwI]) (a6989586621679054159 :: [a_abwI]) :: Bool where
TFHelper_6989586621679054153Sym2 a6989586621679054158 a6989586621679054159 = TFHelper_6989586621679054153 a6989586621679054158 a6989586621679054159
instance PEq [a_abwI] where
type (==) a_abxt a_abxu = Apply (Apply TFHelper_6989586621679054153Sym0 a_abxt) a_abxu
infix 4 %/=
infix 4 %==
class SEq a_abwD where
(%==) ::
forall (t_abxI :: a_abwD) (t_abxJ :: a_abwD). Sing t_abxI
-> Sing t_abxJ
-> Sing (Apply (Apply (==@#@$) t_abxI) t_abxJ :: Bool)
(%/=) ::
forall (t_abxM :: a_abwD) (t_abxN :: a_abwD). Sing t_abxM
-> Sing t_abxN
-> Sing (Apply (Apply (/=@#@$) t_abxM) t_abxN :: Bool)
default (%==) ::
forall (t_abxI :: a_abwD)
(t_abxJ :: a_abwD). ((Apply (Apply (==@#@$) t_abxI) t_abxJ :: Bool)
~
Apply (Apply TFHelper_6989586621679054142Sym0 t_abxI) t_abxJ) =>
Sing t_abxI
-> Sing t_abxJ
-> Sing (Apply (Apply (==@#@$) t_abxI) t_abxJ :: Bool)
default (%/=) ::
forall (t_abxM :: a_abwD)
(t_abxN :: a_abwD). ((Apply (Apply (/=@#@$) t_abxM) t_abxN :: Bool)
~
Apply (Apply TFHelper_6989586621679054131Sym0 t_abxM) t_abxN) =>
Sing t_abxM
-> Sing t_abxN
-> Sing (Apply (Apply (/=@#@$) t_abxM) t_abxN :: Bool)
(%/=) (sX :: Sing x_abxg) (sY :: Sing y_abxh)
= (applySing ((singFun1 @NotSym0) sNot))
((applySing ((applySing ((singFun2 @(==@#@$)) (%==))) sX)) sY)
(%==) (sX :: Sing x_abxr) (sY :: Sing y_abxs)
= (applySing ((singFun1 @NotSym0) sNot))
((applySing ((applySing ((singFun2 @(/=@#@$)) (%/=))) sX)) sY)
instance SEq a_abwI => SEq [a_abwI] where
(%==) ::
forall (t_abxS :: [a_abwI]) (t_abxT :: [a_abwI]). Sing t_abxS
-> Sing t_abxT
-> Sing (Apply (Apply (==@#@$) t_abxS) t_abxT :: Bool)
(%==) SNil SNil = STrue
(%==) (SCons (sA :: Sing a_abxC) _) SNil = SFalse
(%==) SNil (SCons (sA :: Sing a_abxD) _) = SFalse
(%==)
(SCons (sA :: Sing a_abxE) (sAs :: Sing as_abxF))
(SCons (sB :: Sing b_abxG) (sBs :: Sing bs_abxH))
= (applySing
((applySing ((singFun2 @(&&@#@$)) (%&&)))
((applySing ((applySing ((singFun2 @(==@#@$)) (%==))) sA)) sB)))
((applySing ((applySing ((singFun2 @(==@#@$)) (%==))) sAs)) sBs)
instance SEq a_abwD =>
SingI ((==@#@$) :: (~>) a_abwD ((~>) a_abwD Bool)) where
sing = (singFun2 @(==@#@$)) (%==)
instance (SEq a_abwD, SingI d_abxK) =>
SingI ((==@#@$$) (d_abxK :: a_abwD) :: (~>) a_abwD Bool) where
sing
= (singFun1 @((==@#@$$) (d_abxK :: a_abwD))) ((%==) (sing @d_abxK))
instance SEq a_abwD =>
SingI ((/=@#@$) :: (~>) a_abwD ((~>) a_abwD Bool)) where
sing = (singFun2 @(/=@#@$)) (%/=)
instance (SEq a_abwD, SingI d_abxO) =>
SingI ((/=@#@$$) (d_abxO :: a_abwD) :: (~>) a_abwD Bool) where
sing
= (singFun1 @((/=@#@$$) (d_abxO :: a_abwD))) ((%/=) (sing @d_abxO))
data Let6989586621679056743Z'Sym0 f6989586621679056739
where
Let6989586621679056743Z'Sym0KindInference :: SameKind (Apply Let6989586621679056743Z'Sym0 arg_acdi) (Let6989586621679056743Z'Sym1 arg_acdi) =>
Let6989586621679056743Z'Sym0 f6989586621679056739
type instance Apply Let6989586621679056743Z'Sym0 f6989586621679056739 = Let6989586621679056743Z'Sym1 f6989586621679056739
instance SuppressUnusedWarnings Let6989586621679056743Z'Sym0 where
suppressUnusedWarnings
= snd (((,) Let6989586621679056743Z'Sym0KindInference) ())
data Let6989586621679056743Z'Sym1 f6989586621679056739 z6989586621679056740
where
Let6989586621679056743Z'Sym1KindInference :: SameKind (Apply (Let6989586621679056743Z'Sym1 f6989586621679056739) arg_acdi) (Let6989586621679056743Z'Sym2 f6989586621679056739 arg_acdi) =>
Let6989586621679056743Z'Sym1 f6989586621679056739 z6989586621679056740
type instance Apply (Let6989586621679056743Z'Sym1 f6989586621679056739) z6989586621679056740 = Let6989586621679056743Z'Sym2 f6989586621679056739 z6989586621679056740
instance SuppressUnusedWarnings (Let6989586621679056743Z'Sym1 f6989586621679056739) where
suppressUnusedWarnings
= snd (((,) Let6989586621679056743Z'Sym1KindInference) ())
data Let6989586621679056743Z'Sym2 f6989586621679056739 z6989586621679056740 x6989586621679056741
where
Let6989586621679056743Z'Sym2KindInference :: SameKind (Apply (Let6989586621679056743Z'Sym2 f6989586621679056739 z6989586621679056740) arg_acdi) (Let6989586621679056743Z'Sym3 f6989586621679056739 z6989586621679056740 arg_acdi) =>
Let6989586621679056743Z'Sym2 f6989586621679056739 z6989586621679056740 x6989586621679056741
type instance Apply (Let6989586621679056743Z'Sym2 f6989586621679056739 z6989586621679056740) x6989586621679056741 = Let6989586621679056743Z'Sym3 f6989586621679056739 z6989586621679056740 x6989586621679056741
instance SuppressUnusedWarnings (Let6989586621679056743Z'Sym2 f6989586621679056739 z6989586621679056740) where
suppressUnusedWarnings
= snd (((,) Let6989586621679056743Z'Sym2KindInference) ())
data Let6989586621679056743Z'Sym3 f6989586621679056739 z6989586621679056740 x6989586621679056741 xs6989586621679056742
where
Let6989586621679056743Z'Sym3KindInference :: SameKind (Apply (Let6989586621679056743Z'Sym3 f6989586621679056739 z6989586621679056740 x6989586621679056741) arg_acdi) (Let6989586621679056743Z'Sym4 f6989586621679056739 z6989586621679056740 x6989586621679056741 arg_acdi) =>
Let6989586621679056743Z'Sym3 f6989586621679056739 z6989586621679056740 x6989586621679056741 xs6989586621679056742
type instance Apply (Let6989586621679056743Z'Sym3 f6989586621679056739 z6989586621679056740 x6989586621679056741) xs6989586621679056742 = Let6989586621679056743Z' f6989586621679056739 z6989586621679056740 x6989586621679056741 xs6989586621679056742
instance SuppressUnusedWarnings (Let6989586621679056743Z'Sym3 f6989586621679056739 z6989586621679056740 x6989586621679056741) where
suppressUnusedWarnings
= snd (((,) Let6989586621679056743Z'Sym3KindInference) ())
type family Let6989586621679056743Z'Sym4 f6989586621679056739 z6989586621679056740 x6989586621679056741 xs6989586621679056742 where
Let6989586621679056743Z'Sym4 f6989586621679056739 z6989586621679056740 x6989586621679056741 xs6989586621679056742 = Let6989586621679056743Z' f6989586621679056739 z6989586621679056740 x6989586621679056741 xs6989586621679056742
type family Let6989586621679056743Z' f_acdd z_acde x_acdf xs_acdg where
Let6989586621679056743Z' f_acdd z_acde x_acdf xs_acdg = Apply (Apply f_acdd z_acde) x_acdf
data FoldlSym0 a6989586621679056733
where
FoldlSym0KindInference :: SameKind (Apply FoldlSym0 arg_acda) (FoldlSym1 arg_acda) =>
FoldlSym0 a6989586621679056733
type instance Apply FoldlSym0 a6989586621679056733 = FoldlSym1 a6989586621679056733
instance SuppressUnusedWarnings FoldlSym0 where
suppressUnusedWarnings = snd (((,) FoldlSym0KindInference) ())
data FoldlSym1 a6989586621679056733 a6989586621679056734
where
FoldlSym1KindInference :: SameKind (Apply (FoldlSym1 a6989586621679056733) arg_acda) (FoldlSym2 a6989586621679056733 arg_acda) =>
FoldlSym1 a6989586621679056733 a6989586621679056734
type instance Apply (FoldlSym1 a6989586621679056733) a6989586621679056734 = FoldlSym2 a6989586621679056733 a6989586621679056734
instance SuppressUnusedWarnings (FoldlSym1 a6989586621679056733) where
suppressUnusedWarnings = snd (((,) FoldlSym1KindInference) ())
data FoldlSym2 a6989586621679056733 a6989586621679056734 a6989586621679056735
where
FoldlSym2KindInference :: SameKind (Apply (FoldlSym2 a6989586621679056733 a6989586621679056734) arg_acda) (FoldlSym3 a6989586621679056733 a6989586621679056734 arg_acda) =>
FoldlSym2 a6989586621679056733 a6989586621679056734 a6989586621679056735
type instance Apply (FoldlSym2 a6989586621679056733 a6989586621679056734) a6989586621679056735 = Foldl a6989586621679056733 a6989586621679056734 a6989586621679056735
instance SuppressUnusedWarnings (FoldlSym2 a6989586621679056733 a6989586621679056734) where
suppressUnusedWarnings = snd (((,) FoldlSym2KindInference) ())
type family FoldlSym3 a6989586621679056733 a6989586621679056734 a6989586621679056735 where
FoldlSym3 a6989586621679056733 a6989586621679056734 a6989586621679056735 = Foldl a6989586621679056733 a6989586621679056734 a6989586621679056735
type family Foldl a_acd7 a_acd8 a_acd9 where
Foldl f_acdb z_acdc '[] = z_acdc
Foldl f_acdd z_acde ('(:) x_acdf xs_acdg) = Apply (Apply (Apply FoldlSym0 f_acdd) (Let6989586621679056743Z'Sym4 f_acdd z_acde x_acdf xs_acdg)) xs_acdg
sFoldl ::
forall arg_acdj arg_acdk arg_acdl. Sing arg_acdj
-> Sing arg_acdk
-> Sing arg_acdl
-> Sing (Apply (Apply (Apply FoldlSym0 arg_acdj) arg_acdk) arg_acdl)
sFoldl (sF :: Sing f_acdb) (sZ :: Sing z_acdc) SNil = sZ
sFoldl
(sF :: Sing f_acdd)
(sZ :: Sing z_acde)
(SCons (sX :: Sing x_acdf) (sXs :: Sing xs_acdg))
= let
sZ' ::
Sing @_ (Let6989586621679056743Z'Sym4 f_acdd z_acde x_acdf xs_acdg)
sZ' = (applySing ((applySing sF) sZ)) sX
in
(applySing
((applySing ((applySing ((singFun3 @FoldlSym0) sFoldl)) sF)) sZ'))
sXs
instance SingI FoldlSym0 where
sing = (singFun3 @FoldlSym0) sFoldl
instance SingI d_acdm => SingI (FoldlSym1 d_acdm) where
sing = (singFun2 @(FoldlSym1 d_acdm)) (sFoldl (sing @d_acdm))
instance (SingI d_acdm, SingI d_acdn) =>
SingI (FoldlSym2 d_acdm d_acdn) where
sing
= (singFun1 @(FoldlSym2 d_acdm d_acdn))
((sFoldl (sing @d_acdm)) (sing @d_acdn))
type ThenCmpSym0 :: (~>) Ordering ((~>) Ordering Ordering)
data ThenCmpSym0 :: (~>) Ordering ((~>) Ordering Ordering)
where
ThenCmpSym0KindInference :: SameKind (Apply ThenCmpSym0 arg_adur) (ThenCmpSym1 arg_adur) =>
ThenCmpSym0 a6989586621679061652
type instance Apply ThenCmpSym0 a6989586621679061652 = ThenCmpSym1 a6989586621679061652
instance SuppressUnusedWarnings ThenCmpSym0 where
suppressUnusedWarnings = snd (((,) ThenCmpSym0KindInference) ())
type ThenCmpSym1 :: Ordering -> (~>) Ordering Ordering
data ThenCmpSym1 (a6989586621679061652 :: Ordering) :: (~>) Ordering Ordering
where
ThenCmpSym1KindInference :: SameKind (Apply (ThenCmpSym1 a6989586621679061652) arg_adur) (ThenCmpSym2 a6989586621679061652 arg_adur) =>
ThenCmpSym1 a6989586621679061652 a6989586621679061653
type instance Apply (ThenCmpSym1 a6989586621679061652) a6989586621679061653 = ThenCmp a6989586621679061652 a6989586621679061653
instance SuppressUnusedWarnings (ThenCmpSym1 a6989586621679061652) where
suppressUnusedWarnings = snd (((,) ThenCmpSym1KindInference) ())
type ThenCmpSym2 :: Ordering -> Ordering -> Ordering
type family ThenCmpSym2 (a6989586621679061652 :: Ordering) (a6989586621679061653 :: Ordering) :: Ordering where
ThenCmpSym2 a6989586621679061652 a6989586621679061653 = ThenCmp a6989586621679061652 a6989586621679061653
type ComparingSym0 :: (~>) ((~>) b_acQo a_acQn) ((~>) b_acQo ((~>) b_acQo Ordering))
data ComparingSym0 :: (~>) ((~>) b_acQo a_acQn) ((~>) b_acQo ((~>) b_acQo Ordering))
where
ComparingSym0KindInference :: SameKind (Apply ComparingSym0 arg_aduy) (ComparingSym1 arg_aduy) =>
ComparingSym0 a6989586621679061659
type instance Apply ComparingSym0 a6989586621679061659 = ComparingSym1 a6989586621679061659
instance SuppressUnusedWarnings ComparingSym0 where
suppressUnusedWarnings = snd (((,) ComparingSym0KindInference) ())
type ComparingSym1 :: (~>) b_acQo a_acQn
-> (~>) b_acQo ((~>) b_acQo Ordering)
data ComparingSym1 (a6989586621679061659 :: (~>) b_acQo a_acQn) :: (~>) b_acQo ((~>) b_acQo Ordering)
where
ComparingSym1KindInference :: SameKind (Apply (ComparingSym1 a6989586621679061659) arg_aduy) (ComparingSym2 a6989586621679061659 arg_aduy) =>
ComparingSym1 a6989586621679061659 a6989586621679061660
type instance Apply (ComparingSym1 a6989586621679061659) a6989586621679061660 = ComparingSym2 a6989586621679061659 a6989586621679061660
instance SuppressUnusedWarnings (ComparingSym1 a6989586621679061659) where
suppressUnusedWarnings = snd (((,) ComparingSym1KindInference) ())
type ComparingSym2 :: (~>) b_acQo a_acQn
-> b_acQo -> (~>) b_acQo Ordering
data ComparingSym2 (a6989586621679061659 :: (~>) b_acQo a_acQn) (a6989586621679061660 :: b_acQo) :: (~>) b_acQo Ordering
where
ComparingSym2KindInference :: SameKind (Apply (ComparingSym2 a6989586621679061659 a6989586621679061660) arg_aduy) (ComparingSym3 a6989586621679061659 a6989586621679061660 arg_aduy) =>
ComparingSym2 a6989586621679061659 a6989586621679061660 a6989586621679061661
type instance Apply (ComparingSym2 a6989586621679061659 a6989586621679061660) a6989586621679061661 = Comparing a6989586621679061659 a6989586621679061660 a6989586621679061661
instance SuppressUnusedWarnings (ComparingSym2 a6989586621679061659 a6989586621679061660) where
suppressUnusedWarnings = snd (((,) ComparingSym2KindInference) ())
type ComparingSym3 :: (~>) b_acQo a_acQn
-> b_acQo -> b_acQo -> Ordering
type family ComparingSym3 (a6989586621679061659 :: (~>) b_acQo a_acQn) (a6989586621679061660 :: b_acQo) (a6989586621679061661 :: b_acQo) :: Ordering where
ComparingSym3 a6989586621679061659 a6989586621679061660 a6989586621679061661 = Comparing a6989586621679061659 a6989586621679061660 a6989586621679061661
type ThenCmp :: Ordering -> Ordering -> Ordering
type family ThenCmp (a_adup :: Ordering) (a_aduq :: Ordering) :: Ordering where
ThenCmp 'EQ x_aduu = x_aduu
ThenCmp 'LT _ = LTSym0
ThenCmp 'GT _ = GTSym0
type Comparing :: (~>) b_acQo a_acQn
-> b_acQo -> b_acQo -> Ordering
type family Comparing (a_aduv :: (~>) b_acQo a_acQn) (a_aduw :: b_acQo) (a_adux :: b_acQo) :: Ordering where
Comparing p_aduC x_aduD y_aduE = Apply (Apply CompareSym0 (Apply p_aduC x_aduD)) (Apply p_aduC y_aduE)
type CompareSym0 :: forall a_acQz. (~>) a_acQz ((~>) a_acQz Ordering)
data CompareSym0 :: (~>) a_acQz ((~>) a_acQz Ordering)
where
CompareSym0KindInference :: SameKind (Apply CompareSym0 arg_aduH) (CompareSym1 arg_aduH) =>
CompareSym0 a6989586621679061668
type instance Apply CompareSym0 a6989586621679061668 = CompareSym1 a6989586621679061668
instance SuppressUnusedWarnings CompareSym0 where
suppressUnusedWarnings = snd (((,) CompareSym0KindInference) ())
type CompareSym1 :: forall a_acQz. a_acQz -> (~>) a_acQz Ordering
data CompareSym1 (a6989586621679061668 :: a_acQz) :: (~>) a_acQz Ordering
where
CompareSym1KindInference :: SameKind (Apply (CompareSym1 a6989586621679061668) arg_aduH) (CompareSym2 a6989586621679061668 arg_aduH) =>
CompareSym1 a6989586621679061668 a6989586621679061669
type instance Apply (CompareSym1 a6989586621679061668) a6989586621679061669 = Compare a6989586621679061668 a6989586621679061669
instance SuppressUnusedWarnings (CompareSym1 a6989586621679061668) where
suppressUnusedWarnings = snd (((,) CompareSym1KindInference) ())
type CompareSym2 :: forall a_acQz. a_acQz -> a_acQz -> Ordering
type family CompareSym2 (a6989586621679061668 :: a_acQz) (a6989586621679061669 :: a_acQz) :: Ordering where
CompareSym2 a6989586621679061668 a6989586621679061669 = Compare a6989586621679061668 a6989586621679061669
type (<@#@$) :: forall a_acQz. (~>) a_acQz ((~>) a_acQz Bool)
data (<@#@$) :: (~>) a_acQz ((~>) a_acQz Bool)
where
(:<@#@$###) :: SameKind (Apply (<@#@$) arg_aduM) ((<@#@$$) arg_aduM) =>
(<@#@$) a6989586621679061673
type instance Apply (<@#@$) a6989586621679061673 = (<@#@$$) a6989586621679061673
instance SuppressUnusedWarnings (<@#@$) where
suppressUnusedWarnings = snd (((,) (:<@#@$###)) ())
infix 4 <@#@$
type (<@#@$$) :: forall a_acQz. a_acQz -> (~>) a_acQz Bool
data (<@#@$$) (a6989586621679061673 :: a_acQz) :: (~>) a_acQz Bool
where
(:<@#@$$###) :: SameKind (Apply ((<@#@$$) a6989586621679061673) arg_aduM) ((<@#@$$$) a6989586621679061673 arg_aduM) =>
(<@#@$$) a6989586621679061673 a6989586621679061674
type instance Apply ((<@#@$$) a6989586621679061673) a6989586621679061674 = (<) a6989586621679061673 a6989586621679061674
instance SuppressUnusedWarnings ((<@#@$$) a6989586621679061673) where
suppressUnusedWarnings = snd (((,) (:<@#@$$###)) ())
infix 4 <@#@$$
type (<@#@$$$) :: forall a_acQz. a_acQz -> a_acQz -> Bool
type family (<@#@$$$) (a6989586621679061673 :: a_acQz) (a6989586621679061674 :: a_acQz) :: Bool where
(<@#@$$$) a6989586621679061673 a6989586621679061674 = (<) a6989586621679061673 a6989586621679061674
infix 4 <@#@$$$
type (<=@#@$) :: forall a_acQz. (~>) a_acQz ((~>) a_acQz Bool)
data (<=@#@$) :: (~>) a_acQz ((~>) a_acQz Bool)
where
(:<=@#@$###) :: SameKind (Apply (<=@#@$) arg_aduR) ((<=@#@$$) arg_aduR) =>
(<=@#@$) a6989586621679061678
type instance Apply (<=@#@$) a6989586621679061678 = (<=@#@$$) a6989586621679061678
instance SuppressUnusedWarnings (<=@#@$) where
suppressUnusedWarnings = snd (((,) (:<=@#@$###)) ())
infix 4 <=@#@$
type (<=@#@$$) :: forall a_acQz. a_acQz -> (~>) a_acQz Bool
data (<=@#@$$) (a6989586621679061678 :: a_acQz) :: (~>) a_acQz Bool
where
(:<=@#@$$###) :: SameKind (Apply ((<=@#@$$) a6989586621679061678) arg_aduR) ((<=@#@$$$) a6989586621679061678 arg_aduR) =>
(<=@#@$$) a6989586621679061678 a6989586621679061679
type instance Apply ((<=@#@$$) a6989586621679061678) a6989586621679061679 = (<=) a6989586621679061678 a6989586621679061679
instance SuppressUnusedWarnings ((<=@#@$$) a6989586621679061678) where
suppressUnusedWarnings = snd (((,) (:<=@#@$$###)) ())
infix 4 <=@#@$$
type (<=@#@$$$) :: forall a_acQz. a_acQz -> a_acQz -> Bool
type family (<=@#@$$$) (a6989586621679061678 :: a_acQz) (a6989586621679061679 :: a_acQz) :: Bool where
(<=@#@$$$) a6989586621679061678 a6989586621679061679 = (<=) a6989586621679061678 a6989586621679061679
infix 4 <=@#@$$$
type (>@#@$) :: forall a_acQz. (~>) a_acQz ((~>) a_acQz Bool)
data (>@#@$) :: (~>) a_acQz ((~>) a_acQz Bool)
where
(:>@#@$###) :: SameKind (Apply (>@#@$) arg_aduW) ((>@#@$$) arg_aduW) =>
(>@#@$) a6989586621679061683
type instance Apply (>@#@$) a6989586621679061683 = (>@#@$$) a6989586621679061683
instance SuppressUnusedWarnings (>@#@$) where
suppressUnusedWarnings = snd (((,) (:>@#@$###)) ())
infix 4 >@#@$
type (>@#@$$) :: forall a_acQz. a_acQz -> (~>) a_acQz Bool
data (>@#@$$) (a6989586621679061683 :: a_acQz) :: (~>) a_acQz Bool
where
(:>@#@$$###) :: SameKind (Apply ((>@#@$$) a6989586621679061683) arg_aduW) ((>@#@$$$) a6989586621679061683 arg_aduW) =>
(>@#@$$) a6989586621679061683 a6989586621679061684
type instance Apply ((>@#@$$) a6989586621679061683) a6989586621679061684 = (>) a6989586621679061683 a6989586621679061684
instance SuppressUnusedWarnings ((>@#@$$) a6989586621679061683) where
suppressUnusedWarnings = snd (((,) (:>@#@$$###)) ())
infix 4 >@#@$$
type (>@#@$$$) :: forall a_acQz. a_acQz -> a_acQz -> Bool
type family (>@#@$$$) (a6989586621679061683 :: a_acQz) (a6989586621679061684 :: a_acQz) :: Bool where
(>@#@$$$) a6989586621679061683 a6989586621679061684 = (>) a6989586621679061683 a6989586621679061684
infix 4 >@#@$$$
type (>=@#@$) :: forall a_acQz. (~>) a_acQz ((~>) a_acQz Bool)
data (>=@#@$) :: (~>) a_acQz ((~>) a_acQz Bool)
where
(:>=@#@$###) :: SameKind (Apply (>=@#@$) arg_adv1) ((>=@#@$$) arg_adv1) =>
(>=@#@$) a6989586621679061688
type instance Apply (>=@#@$) a6989586621679061688 = (>=@#@$$) a6989586621679061688
instance SuppressUnusedWarnings (>=@#@$) where
suppressUnusedWarnings = snd (((,) (:>=@#@$###)) ())
infix 4 >=@#@$
type (>=@#@$$) :: forall a_acQz. a_acQz -> (~>) a_acQz Bool
data (>=@#@$$) (a6989586621679061688 :: a_acQz) :: (~>) a_acQz Bool
where
(:>=@#@$$###) :: SameKind (Apply ((>=@#@$$) a6989586621679061688) arg_adv1) ((>=@#@$$$) a6989586621679061688 arg_adv1) =>
(>=@#@$$) a6989586621679061688 a6989586621679061689
type instance Apply ((>=@#@$$) a6989586621679061688) a6989586621679061689 = (>=) a6989586621679061688 a6989586621679061689
instance SuppressUnusedWarnings ((>=@#@$$) a6989586621679061688) where
suppressUnusedWarnings = snd (((,) (:>=@#@$$###)) ())
infix 4 >=@#@$$
type (>=@#@$$$) :: forall a_acQz. a_acQz -> a_acQz -> Bool
type family (>=@#@$$$) (a6989586621679061688 :: a_acQz) (a6989586621679061689 :: a_acQz) :: Bool where
(>=@#@$$$) a6989586621679061688 a6989586621679061689 = (>=) a6989586621679061688 a6989586621679061689
infix 4 >=@#@$$$
type MaxSym0 :: forall a_acQz. (~>) a_acQz ((~>) a_acQz a_acQz)
data MaxSym0 :: (~>) a_acQz ((~>) a_acQz a_acQz)
where
MaxSym0KindInference :: SameKind (Apply MaxSym0 arg_adv6) (MaxSym1 arg_adv6) =>
MaxSym0 a6989586621679061693
type instance Apply MaxSym0 a6989586621679061693 = MaxSym1 a6989586621679061693
instance SuppressUnusedWarnings MaxSym0 where
suppressUnusedWarnings = snd (((,) MaxSym0KindInference) ())
type MaxSym1 :: forall a_acQz. a_acQz -> (~>) a_acQz a_acQz
data MaxSym1 (a6989586621679061693 :: a_acQz) :: (~>) a_acQz a_acQz
where
MaxSym1KindInference :: SameKind (Apply (MaxSym1 a6989586621679061693) arg_adv6) (MaxSym2 a6989586621679061693 arg_adv6) =>
MaxSym1 a6989586621679061693 a6989586621679061694
type instance Apply (MaxSym1 a6989586621679061693) a6989586621679061694 = Max a6989586621679061693 a6989586621679061694
instance SuppressUnusedWarnings (MaxSym1 a6989586621679061693) where
suppressUnusedWarnings = snd (((,) MaxSym1KindInference) ())
type MaxSym2 :: forall a_acQz. a_acQz -> a_acQz -> a_acQz
type family MaxSym2 (a6989586621679061693 :: a_acQz) (a6989586621679061694 :: a_acQz) :: a_acQz where
MaxSym2 a6989586621679061693 a6989586621679061694 = Max a6989586621679061693 a6989586621679061694
type MinSym0 :: forall a_acQz. (~>) a_acQz ((~>) a_acQz a_acQz)
data MinSym0 :: (~>) a_acQz ((~>) a_acQz a_acQz)
where
MinSym0KindInference :: SameKind (Apply MinSym0 arg_advb) (MinSym1 arg_advb) =>
MinSym0 a6989586621679061698
type instance Apply MinSym0 a6989586621679061698 = MinSym1 a6989586621679061698
instance SuppressUnusedWarnings MinSym0 where
suppressUnusedWarnings = snd (((,) MinSym0KindInference) ())
type MinSym1 :: forall a_acQz. a_acQz -> (~>) a_acQz a_acQz
data MinSym1 (a6989586621679061698 :: a_acQz) :: (~>) a_acQz a_acQz
where
MinSym1KindInference :: SameKind (Apply (MinSym1 a6989586621679061698) arg_advb) (MinSym2 a6989586621679061698 arg_advb) =>
MinSym1 a6989586621679061698 a6989586621679061699
type instance Apply (MinSym1 a6989586621679061698) a6989586621679061699 = Min a6989586621679061698 a6989586621679061699
instance SuppressUnusedWarnings (MinSym1 a6989586621679061698) where
suppressUnusedWarnings = snd (((,) MinSym1KindInference) ())
type MinSym2 :: forall a_acQz. a_acQz -> a_acQz -> a_acQz
type family MinSym2 (a6989586621679061698 :: a_acQz) (a6989586621679061699 :: a_acQz) :: a_acQz where
MinSym2 a6989586621679061698 a6989586621679061699 = Min a6989586621679061698 a6989586621679061699
data Let6989586621679061711Scrutinee_6989586621679059198Sym0 x6989586621679061709
where
Let6989586621679061711Scrutinee_6989586621679059198Sym0KindInference :: SameKind (Apply Let6989586621679061711Scrutinee_6989586621679059198Sym0 arg_advq) (Let6989586621679061711Scrutinee_6989586621679059198Sym1 arg_advq) =>
Let6989586621679061711Scrutinee_6989586621679059198Sym0 x6989586621679061709
type instance Apply Let6989586621679061711Scrutinee_6989586621679059198Sym0 x6989586621679061709 = Let6989586621679061711Scrutinee_6989586621679059198Sym1 x6989586621679061709
instance SuppressUnusedWarnings Let6989586621679061711Scrutinee_6989586621679059198Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679061711Scrutinee_6989586621679059198Sym0KindInference)
())
data Let6989586621679061711Scrutinee_6989586621679059198Sym1 x6989586621679061709 y6989586621679061710
where
Let6989586621679061711Scrutinee_6989586621679059198Sym1KindInference :: SameKind (Apply (Let6989586621679061711Scrutinee_6989586621679059198Sym1 x6989586621679061709) arg_advq) (Let6989586621679061711Scrutinee_6989586621679059198Sym2 x6989586621679061709 arg_advq) =>
Let6989586621679061711Scrutinee_6989586621679059198Sym1 x6989586621679061709 y6989586621679061710
type instance Apply (Let6989586621679061711Scrutinee_6989586621679059198Sym1 x6989586621679061709) y6989586621679061710 = Let6989586621679061711Scrutinee_6989586621679059198 x6989586621679061709 y6989586621679061710
instance SuppressUnusedWarnings (Let6989586621679061711Scrutinee_6989586621679059198Sym1 x6989586621679061709) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679061711Scrutinee_6989586621679059198Sym1KindInference)
())
type family Let6989586621679061711Scrutinee_6989586621679059198Sym2 x6989586621679061709 y6989586621679061710 where
Let6989586621679061711Scrutinee_6989586621679059198Sym2 x6989586621679061709 y6989586621679061710 = Let6989586621679061711Scrutinee_6989586621679059198 x6989586621679061709 y6989586621679061710
type family Let6989586621679061711Scrutinee_6989586621679059198 x_advn y_advo where
Let6989586621679061711Scrutinee_6989586621679059198 x_advn y_advo = Apply (Apply (==@#@$) x_advn) y_advo
data Let6989586621679061715Scrutinee_6989586621679059200Sym0 x6989586621679061709
where
Let6989586621679061715Scrutinee_6989586621679059200Sym0KindInference :: SameKind (Apply Let6989586621679061715Scrutinee_6989586621679059200Sym0 arg_advu) (Let6989586621679061715Scrutinee_6989586621679059200Sym1 arg_advu) =>
Let6989586621679061715Scrutinee_6989586621679059200Sym0 x6989586621679061709
type instance Apply Let6989586621679061715Scrutinee_6989586621679059200Sym0 x6989586621679061709 = Let6989586621679061715Scrutinee_6989586621679059200Sym1 x6989586621679061709
instance SuppressUnusedWarnings Let6989586621679061715Scrutinee_6989586621679059200Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679061715Scrutinee_6989586621679059200Sym0KindInference)
())
data Let6989586621679061715Scrutinee_6989586621679059200Sym1 x6989586621679061709 y6989586621679061710
where
Let6989586621679061715Scrutinee_6989586621679059200Sym1KindInference :: SameKind (Apply (Let6989586621679061715Scrutinee_6989586621679059200Sym1 x6989586621679061709) arg_advu) (Let6989586621679061715Scrutinee_6989586621679059200Sym2 x6989586621679061709 arg_advu) =>
Let6989586621679061715Scrutinee_6989586621679059200Sym1 x6989586621679061709 y6989586621679061710
type instance Apply (Let6989586621679061715Scrutinee_6989586621679059200Sym1 x6989586621679061709) y6989586621679061710 = Let6989586621679061715Scrutinee_6989586621679059200 x6989586621679061709 y6989586621679061710
instance SuppressUnusedWarnings (Let6989586621679061715Scrutinee_6989586621679059200Sym1 x6989586621679061709) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679061715Scrutinee_6989586621679059200Sym1KindInference)
())
type family Let6989586621679061715Scrutinee_6989586621679059200Sym2 x6989586621679061709 y6989586621679061710 where
Let6989586621679061715Scrutinee_6989586621679059200Sym2 x6989586621679061709 y6989586621679061710 = Let6989586621679061715Scrutinee_6989586621679059200 x6989586621679061709 y6989586621679061710
type family Let6989586621679061715Scrutinee_6989586621679059200 x_advn y_advo where
Let6989586621679061715Scrutinee_6989586621679059200 x_advn y_advo = Apply (Apply (<=@#@$) x_advn) y_advo
type family Case_6989586621679061717_advw x_advn y_advo t_advx where
Case_6989586621679061717_advw x_advn y_advo 'True = LTSym0
Case_6989586621679061717_advw x_advn y_advo 'False = GTSym0
type family Case_6989586621679061713_advs x_advn y_advo t_advy where
Case_6989586621679061713_advs x_advn y_advo 'True = EQSym0
Case_6989586621679061713_advs x_advn y_advo 'False = Case_6989586621679061717_advw x_advn y_advo (Let6989586621679061715Scrutinee_6989586621679059200Sym2 x_advn y_advo)
type Compare_6989586621679061702 :: a_acQz -> a_acQz -> Ordering
type family Compare_6989586621679061702 (a_advi :: a_acQz) (a_advj :: a_acQz) :: Ordering where
Compare_6989586621679061702 x_advn y_advo = Case_6989586621679061713_advs x_advn y_advo (Let6989586621679061711Scrutinee_6989586621679059198Sym2 x_advn y_advo)
type Compare_6989586621679061702Sym0 :: (~>) a_acQz ((~>) a_acQz Ordering)
data Compare_6989586621679061702Sym0 :: (~>) a_acQz ((~>) a_acQz Ordering)
where
Compare_6989586621679061702Sym0KindInference :: SameKind (Apply Compare_6989586621679061702Sym0 arg_advk) (Compare_6989586621679061702Sym1 arg_advk) =>
Compare_6989586621679061702Sym0 a6989586621679061707
type instance Apply Compare_6989586621679061702Sym0 a6989586621679061707 = Compare_6989586621679061702Sym1 a6989586621679061707
instance SuppressUnusedWarnings Compare_6989586621679061702Sym0 where
suppressUnusedWarnings
= snd (((,) Compare_6989586621679061702Sym0KindInference) ())
type Compare_6989586621679061702Sym1 :: a_acQz
-> (~>) a_acQz Ordering
data Compare_6989586621679061702Sym1 (a6989586621679061707 :: a_acQz) :: (~>) a_acQz Ordering
where
Compare_6989586621679061702Sym1KindInference :: SameKind (Apply (Compare_6989586621679061702Sym1 a6989586621679061707) arg_advk) (Compare_6989586621679061702Sym2 a6989586621679061707 arg_advk) =>
Compare_6989586621679061702Sym1 a6989586621679061707 a6989586621679061708
type instance Apply (Compare_6989586621679061702Sym1 a6989586621679061707) a6989586621679061708 = Compare_6989586621679061702 a6989586621679061707 a6989586621679061708
instance SuppressUnusedWarnings (Compare_6989586621679061702Sym1 a6989586621679061707) where
suppressUnusedWarnings
= snd (((,) Compare_6989586621679061702Sym1KindInference) ())
type Compare_6989586621679061702Sym2 :: a_acQz
-> a_acQz -> Ordering
type family Compare_6989586621679061702Sym2 (a6989586621679061707 :: a_acQz) (a6989586621679061708 :: a_acQz) :: Ordering where
Compare_6989586621679061702Sym2 a6989586621679061707 a6989586621679061708 = Compare_6989586621679061702 a6989586621679061707 a6989586621679061708
data Let6989586621679061732Scrutinee_6989586621679059202Sym0 x6989586621679061730
where
Let6989586621679061732Scrutinee_6989586621679059202Sym0KindInference :: SameKind (Apply Let6989586621679061732Scrutinee_6989586621679059202Sym0 arg_advL) (Let6989586621679061732Scrutinee_6989586621679059202Sym1 arg_advL) =>
Let6989586621679061732Scrutinee_6989586621679059202Sym0 x6989586621679061730
type instance Apply Let6989586621679061732Scrutinee_6989586621679059202Sym0 x6989586621679061730 = Let6989586621679061732Scrutinee_6989586621679059202Sym1 x6989586621679061730
instance SuppressUnusedWarnings Let6989586621679061732Scrutinee_6989586621679059202Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679061732Scrutinee_6989586621679059202Sym0KindInference)
())
data Let6989586621679061732Scrutinee_6989586621679059202Sym1 x6989586621679061730 y6989586621679061731
where
Let6989586621679061732Scrutinee_6989586621679059202Sym1KindInference :: SameKind (Apply (Let6989586621679061732Scrutinee_6989586621679059202Sym1 x6989586621679061730) arg_advL) (Let6989586621679061732Scrutinee_6989586621679059202Sym2 x6989586621679061730 arg_advL) =>
Let6989586621679061732Scrutinee_6989586621679059202Sym1 x6989586621679061730 y6989586621679061731
type instance Apply (Let6989586621679061732Scrutinee_6989586621679059202Sym1 x6989586621679061730) y6989586621679061731 = Let6989586621679061732Scrutinee_6989586621679059202 x6989586621679061730 y6989586621679061731
instance SuppressUnusedWarnings (Let6989586621679061732Scrutinee_6989586621679059202Sym1 x6989586621679061730) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679061732Scrutinee_6989586621679059202Sym1KindInference)
())
type family Let6989586621679061732Scrutinee_6989586621679059202Sym2 x6989586621679061730 y6989586621679061731 where
Let6989586621679061732Scrutinee_6989586621679059202Sym2 x6989586621679061730 y6989586621679061731 = Let6989586621679061732Scrutinee_6989586621679059202 x6989586621679061730 y6989586621679061731
type family Let6989586621679061732Scrutinee_6989586621679059202 x_advI y_advJ where
Let6989586621679061732Scrutinee_6989586621679059202 x_advI y_advJ = Apply (Apply CompareSym0 x_advI) y_advJ
type family Case_6989586621679061734_advN x_advI y_advJ t_advO where
Case_6989586621679061734_advN x_advI y_advJ 'LT = TrueSym0
Case_6989586621679061734_advN x_advI y_advJ 'EQ = FalseSym0
Case_6989586621679061734_advN x_advI y_advJ 'GT = FalseSym0
type TFHelper_6989586621679061723 :: a_acQz -> a_acQz -> Bool
type family TFHelper_6989586621679061723 (a_advD :: a_acQz) (a_advE :: a_acQz) :: Bool where
TFHelper_6989586621679061723 x_advI y_advJ = Case_6989586621679061734_advN x_advI y_advJ (Let6989586621679061732Scrutinee_6989586621679059202Sym2 x_advI y_advJ)
type TFHelper_6989586621679061723Sym0 :: (~>) a_acQz ((~>) a_acQz Bool)
data TFHelper_6989586621679061723Sym0 :: (~>) a_acQz ((~>) a_acQz Bool)
where
TFHelper_6989586621679061723Sym0KindInference :: SameKind (Apply TFHelper_6989586621679061723Sym0 arg_advF) (TFHelper_6989586621679061723Sym1 arg_advF) =>
TFHelper_6989586621679061723Sym0 a6989586621679061728
type instance Apply TFHelper_6989586621679061723Sym0 a6989586621679061728 = TFHelper_6989586621679061723Sym1 a6989586621679061728
instance SuppressUnusedWarnings TFHelper_6989586621679061723Sym0 where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679061723Sym0KindInference) ())
type TFHelper_6989586621679061723Sym1 :: a_acQz -> (~>) a_acQz Bool
data TFHelper_6989586621679061723Sym1 (a6989586621679061728 :: a_acQz) :: (~>) a_acQz Bool
where
TFHelper_6989586621679061723Sym1KindInference :: SameKind (Apply (TFHelper_6989586621679061723Sym1 a6989586621679061728) arg_advF) (TFHelper_6989586621679061723Sym2 a6989586621679061728 arg_advF) =>
TFHelper_6989586621679061723Sym1 a6989586621679061728 a6989586621679061729
type instance Apply (TFHelper_6989586621679061723Sym1 a6989586621679061728) a6989586621679061729 = TFHelper_6989586621679061723 a6989586621679061728 a6989586621679061729
instance SuppressUnusedWarnings (TFHelper_6989586621679061723Sym1 a6989586621679061728) where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679061723Sym1KindInference) ())
type TFHelper_6989586621679061723Sym2 :: a_acQz -> a_acQz -> Bool
type family TFHelper_6989586621679061723Sym2 (a6989586621679061728 :: a_acQz) (a6989586621679061729 :: a_acQz) :: Bool where
TFHelper_6989586621679061723Sym2 a6989586621679061728 a6989586621679061729 = TFHelper_6989586621679061723 a6989586621679061728 a6989586621679061729
data Let6989586621679061748Scrutinee_6989586621679059204Sym0 x6989586621679061746
where
Let6989586621679061748Scrutinee_6989586621679059204Sym0KindInference :: SameKind (Apply Let6989586621679061748Scrutinee_6989586621679059204Sym0 arg_adw1) (Let6989586621679061748Scrutinee_6989586621679059204Sym1 arg_adw1) =>
Let6989586621679061748Scrutinee_6989586621679059204Sym0 x6989586621679061746
type instance Apply Let6989586621679061748Scrutinee_6989586621679059204Sym0 x6989586621679061746 = Let6989586621679061748Scrutinee_6989586621679059204Sym1 x6989586621679061746
instance SuppressUnusedWarnings Let6989586621679061748Scrutinee_6989586621679059204Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679061748Scrutinee_6989586621679059204Sym0KindInference)
())
data Let6989586621679061748Scrutinee_6989586621679059204Sym1 x6989586621679061746 y6989586621679061747
where
Let6989586621679061748Scrutinee_6989586621679059204Sym1KindInference :: SameKind (Apply (Let6989586621679061748Scrutinee_6989586621679059204Sym1 x6989586621679061746) arg_adw1) (Let6989586621679061748Scrutinee_6989586621679059204Sym2 x6989586621679061746 arg_adw1) =>
Let6989586621679061748Scrutinee_6989586621679059204Sym1 x6989586621679061746 y6989586621679061747
type instance Apply (Let6989586621679061748Scrutinee_6989586621679059204Sym1 x6989586621679061746) y6989586621679061747 = Let6989586621679061748Scrutinee_6989586621679059204 x6989586621679061746 y6989586621679061747
instance SuppressUnusedWarnings (Let6989586621679061748Scrutinee_6989586621679059204Sym1 x6989586621679061746) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679061748Scrutinee_6989586621679059204Sym1KindInference)
())
type family Let6989586621679061748Scrutinee_6989586621679059204Sym2 x6989586621679061746 y6989586621679061747 where
Let6989586621679061748Scrutinee_6989586621679059204Sym2 x6989586621679061746 y6989586621679061747 = Let6989586621679061748Scrutinee_6989586621679059204 x6989586621679061746 y6989586621679061747
type family Let6989586621679061748Scrutinee_6989586621679059204 x_advY y_advZ where
Let6989586621679061748Scrutinee_6989586621679059204 x_advY y_advZ = Apply (Apply CompareSym0 x_advY) y_advZ
type family Case_6989586621679061750_adw3 x_advY y_advZ t_adw4 where
Case_6989586621679061750_adw3 x_advY y_advZ 'LT = TrueSym0
Case_6989586621679061750_adw3 x_advY y_advZ 'EQ = TrueSym0
Case_6989586621679061750_adw3 x_advY y_advZ 'GT = FalseSym0
type TFHelper_6989586621679061739 :: a_acQz -> a_acQz -> Bool
type family TFHelper_6989586621679061739 (a_advT :: a_acQz) (a_advU :: a_acQz) :: Bool where
TFHelper_6989586621679061739 x_advY y_advZ = Case_6989586621679061750_adw3 x_advY y_advZ (Let6989586621679061748Scrutinee_6989586621679059204Sym2 x_advY y_advZ)
type TFHelper_6989586621679061739Sym0 :: (~>) a_acQz ((~>) a_acQz Bool)
data TFHelper_6989586621679061739Sym0 :: (~>) a_acQz ((~>) a_acQz Bool)
where
TFHelper_6989586621679061739Sym0KindInference :: SameKind (Apply TFHelper_6989586621679061739Sym0 arg_advV) (TFHelper_6989586621679061739Sym1 arg_advV) =>
TFHelper_6989586621679061739Sym0 a6989586621679061744
type instance Apply TFHelper_6989586621679061739Sym0 a6989586621679061744 = TFHelper_6989586621679061739Sym1 a6989586621679061744
instance SuppressUnusedWarnings TFHelper_6989586621679061739Sym0 where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679061739Sym0KindInference) ())
type TFHelper_6989586621679061739Sym1 :: a_acQz -> (~>) a_acQz Bool
data TFHelper_6989586621679061739Sym1 (a6989586621679061744 :: a_acQz) :: (~>) a_acQz Bool
where
TFHelper_6989586621679061739Sym1KindInference :: SameKind (Apply (TFHelper_6989586621679061739Sym1 a6989586621679061744) arg_advV) (TFHelper_6989586621679061739Sym2 a6989586621679061744 arg_advV) =>
TFHelper_6989586621679061739Sym1 a6989586621679061744 a6989586621679061745
type instance Apply (TFHelper_6989586621679061739Sym1 a6989586621679061744) a6989586621679061745 = TFHelper_6989586621679061739 a6989586621679061744 a6989586621679061745
instance SuppressUnusedWarnings (TFHelper_6989586621679061739Sym1 a6989586621679061744) where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679061739Sym1KindInference) ())
type TFHelper_6989586621679061739Sym2 :: a_acQz -> a_acQz -> Bool
type family TFHelper_6989586621679061739Sym2 (a6989586621679061744 :: a_acQz) (a6989586621679061745 :: a_acQz) :: Bool where
TFHelper_6989586621679061739Sym2 a6989586621679061744 a6989586621679061745 = TFHelper_6989586621679061739 a6989586621679061744 a6989586621679061745
data Let6989586621679061764Scrutinee_6989586621679059206Sym0 x6989586621679061762
where
Let6989586621679061764Scrutinee_6989586621679059206Sym0KindInference :: SameKind (Apply Let6989586621679061764Scrutinee_6989586621679059206Sym0 arg_adwh) (Let6989586621679061764Scrutinee_6989586621679059206Sym1 arg_adwh) =>
Let6989586621679061764Scrutinee_6989586621679059206Sym0 x6989586621679061762
type instance Apply Let6989586621679061764Scrutinee_6989586621679059206Sym0 x6989586621679061762 = Let6989586621679061764Scrutinee_6989586621679059206Sym1 x6989586621679061762
instance SuppressUnusedWarnings Let6989586621679061764Scrutinee_6989586621679059206Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679061764Scrutinee_6989586621679059206Sym0KindInference)
())
data Let6989586621679061764Scrutinee_6989586621679059206Sym1 x6989586621679061762 y6989586621679061763
where
Let6989586621679061764Scrutinee_6989586621679059206Sym1KindInference :: SameKind (Apply (Let6989586621679061764Scrutinee_6989586621679059206Sym1 x6989586621679061762) arg_adwh) (Let6989586621679061764Scrutinee_6989586621679059206Sym2 x6989586621679061762 arg_adwh) =>
Let6989586621679061764Scrutinee_6989586621679059206Sym1 x6989586621679061762 y6989586621679061763
type instance Apply (Let6989586621679061764Scrutinee_6989586621679059206Sym1 x6989586621679061762) y6989586621679061763 = Let6989586621679061764Scrutinee_6989586621679059206 x6989586621679061762 y6989586621679061763
instance SuppressUnusedWarnings (Let6989586621679061764Scrutinee_6989586621679059206Sym1 x6989586621679061762) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679061764Scrutinee_6989586621679059206Sym1KindInference)
())
type family Let6989586621679061764Scrutinee_6989586621679059206Sym2 x6989586621679061762 y6989586621679061763 where
Let6989586621679061764Scrutinee_6989586621679059206Sym2 x6989586621679061762 y6989586621679061763 = Let6989586621679061764Scrutinee_6989586621679059206 x6989586621679061762 y6989586621679061763
type family Let6989586621679061764Scrutinee_6989586621679059206 x_adwe y_adwf where
Let6989586621679061764Scrutinee_6989586621679059206 x_adwe y_adwf = Apply (Apply CompareSym0 x_adwe) y_adwf
type family Case_6989586621679061766_adwj x_adwe y_adwf t_adwk where
Case_6989586621679061766_adwj x_adwe y_adwf 'LT = FalseSym0
Case_6989586621679061766_adwj x_adwe y_adwf 'EQ = FalseSym0
Case_6989586621679061766_adwj x_adwe y_adwf 'GT = TrueSym0
type TFHelper_6989586621679061755 :: a_acQz -> a_acQz -> Bool
type family TFHelper_6989586621679061755 (a_adw9 :: a_acQz) (a_adwa :: a_acQz) :: Bool where
TFHelper_6989586621679061755 x_adwe y_adwf = Case_6989586621679061766_adwj x_adwe y_adwf (Let6989586621679061764Scrutinee_6989586621679059206Sym2 x_adwe y_adwf)
type TFHelper_6989586621679061755Sym0 :: (~>) a_acQz ((~>) a_acQz Bool)
data TFHelper_6989586621679061755Sym0 :: (~>) a_acQz ((~>) a_acQz Bool)
where
TFHelper_6989586621679061755Sym0KindInference :: SameKind (Apply TFHelper_6989586621679061755Sym0 arg_adwb) (TFHelper_6989586621679061755Sym1 arg_adwb) =>
TFHelper_6989586621679061755Sym0 a6989586621679061760
type instance Apply TFHelper_6989586621679061755Sym0 a6989586621679061760 = TFHelper_6989586621679061755Sym1 a6989586621679061760
instance SuppressUnusedWarnings TFHelper_6989586621679061755Sym0 where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679061755Sym0KindInference) ())
type TFHelper_6989586621679061755Sym1 :: a_acQz -> (~>) a_acQz Bool
data TFHelper_6989586621679061755Sym1 (a6989586621679061760 :: a_acQz) :: (~>) a_acQz Bool
where
TFHelper_6989586621679061755Sym1KindInference :: SameKind (Apply (TFHelper_6989586621679061755Sym1 a6989586621679061760) arg_adwb) (TFHelper_6989586621679061755Sym2 a6989586621679061760 arg_adwb) =>
TFHelper_6989586621679061755Sym1 a6989586621679061760 a6989586621679061761
type instance Apply (TFHelper_6989586621679061755Sym1 a6989586621679061760) a6989586621679061761 = TFHelper_6989586621679061755 a6989586621679061760 a6989586621679061761
instance SuppressUnusedWarnings (TFHelper_6989586621679061755Sym1 a6989586621679061760) where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679061755Sym1KindInference) ())
type TFHelper_6989586621679061755Sym2 :: a_acQz -> a_acQz -> Bool
type family TFHelper_6989586621679061755Sym2 (a6989586621679061760 :: a_acQz) (a6989586621679061761 :: a_acQz) :: Bool where
TFHelper_6989586621679061755Sym2 a6989586621679061760 a6989586621679061761 = TFHelper_6989586621679061755 a6989586621679061760 a6989586621679061761
data Let6989586621679061780Scrutinee_6989586621679059208Sym0 x6989586621679061778
where
Let6989586621679061780Scrutinee_6989586621679059208Sym0KindInference :: SameKind (Apply Let6989586621679061780Scrutinee_6989586621679059208Sym0 arg_adwx) (Let6989586621679061780Scrutinee_6989586621679059208Sym1 arg_adwx) =>
Let6989586621679061780Scrutinee_6989586621679059208Sym0 x6989586621679061778
type instance Apply Let6989586621679061780Scrutinee_6989586621679059208Sym0 x6989586621679061778 = Let6989586621679061780Scrutinee_6989586621679059208Sym1 x6989586621679061778
instance SuppressUnusedWarnings Let6989586621679061780Scrutinee_6989586621679059208Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679061780Scrutinee_6989586621679059208Sym0KindInference)
())
data Let6989586621679061780Scrutinee_6989586621679059208Sym1 x6989586621679061778 y6989586621679061779
where
Let6989586621679061780Scrutinee_6989586621679059208Sym1KindInference :: SameKind (Apply (Let6989586621679061780Scrutinee_6989586621679059208Sym1 x6989586621679061778) arg_adwx) (Let6989586621679061780Scrutinee_6989586621679059208Sym2 x6989586621679061778 arg_adwx) =>
Let6989586621679061780Scrutinee_6989586621679059208Sym1 x6989586621679061778 y6989586621679061779
type instance Apply (Let6989586621679061780Scrutinee_6989586621679059208Sym1 x6989586621679061778) y6989586621679061779 = Let6989586621679061780Scrutinee_6989586621679059208 x6989586621679061778 y6989586621679061779
instance SuppressUnusedWarnings (Let6989586621679061780Scrutinee_6989586621679059208Sym1 x6989586621679061778) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679061780Scrutinee_6989586621679059208Sym1KindInference)
())
type family Let6989586621679061780Scrutinee_6989586621679059208Sym2 x6989586621679061778 y6989586621679061779 where
Let6989586621679061780Scrutinee_6989586621679059208Sym2 x6989586621679061778 y6989586621679061779 = Let6989586621679061780Scrutinee_6989586621679059208 x6989586621679061778 y6989586621679061779
type family Let6989586621679061780Scrutinee_6989586621679059208 x_adwu y_adwv where
Let6989586621679061780Scrutinee_6989586621679059208 x_adwu y_adwv = Apply (Apply CompareSym0 x_adwu) y_adwv
type family Case_6989586621679061782_adwz x_adwu y_adwv t_adwA where
Case_6989586621679061782_adwz x_adwu y_adwv 'LT = FalseSym0
Case_6989586621679061782_adwz x_adwu y_adwv 'EQ = TrueSym0
Case_6989586621679061782_adwz x_adwu y_adwv 'GT = TrueSym0
type TFHelper_6989586621679061771 :: a_acQz -> a_acQz -> Bool
type family TFHelper_6989586621679061771 (a_adwp :: a_acQz) (a_adwq :: a_acQz) :: Bool where
TFHelper_6989586621679061771 x_adwu y_adwv = Case_6989586621679061782_adwz x_adwu y_adwv (Let6989586621679061780Scrutinee_6989586621679059208Sym2 x_adwu y_adwv)
type TFHelper_6989586621679061771Sym0 :: (~>) a_acQz ((~>) a_acQz Bool)
data TFHelper_6989586621679061771Sym0 :: (~>) a_acQz ((~>) a_acQz Bool)
where
TFHelper_6989586621679061771Sym0KindInference :: SameKind (Apply TFHelper_6989586621679061771Sym0 arg_adwr) (TFHelper_6989586621679061771Sym1 arg_adwr) =>
TFHelper_6989586621679061771Sym0 a6989586621679061776
type instance Apply TFHelper_6989586621679061771Sym0 a6989586621679061776 = TFHelper_6989586621679061771Sym1 a6989586621679061776
instance SuppressUnusedWarnings TFHelper_6989586621679061771Sym0 where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679061771Sym0KindInference) ())
type TFHelper_6989586621679061771Sym1 :: a_acQz -> (~>) a_acQz Bool
data TFHelper_6989586621679061771Sym1 (a6989586621679061776 :: a_acQz) :: (~>) a_acQz Bool
where
TFHelper_6989586621679061771Sym1KindInference :: SameKind (Apply (TFHelper_6989586621679061771Sym1 a6989586621679061776) arg_adwr) (TFHelper_6989586621679061771Sym2 a6989586621679061776 arg_adwr) =>
TFHelper_6989586621679061771Sym1 a6989586621679061776 a6989586621679061777
type instance Apply (TFHelper_6989586621679061771Sym1 a6989586621679061776) a6989586621679061777 = TFHelper_6989586621679061771 a6989586621679061776 a6989586621679061777
instance SuppressUnusedWarnings (TFHelper_6989586621679061771Sym1 a6989586621679061776) where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679061771Sym1KindInference) ())
type TFHelper_6989586621679061771Sym2 :: a_acQz -> a_acQz -> Bool
type family TFHelper_6989586621679061771Sym2 (a6989586621679061776 :: a_acQz) (a6989586621679061777 :: a_acQz) :: Bool where
TFHelper_6989586621679061771Sym2 a6989586621679061776 a6989586621679061777 = TFHelper_6989586621679061771 a6989586621679061776 a6989586621679061777
data Let6989586621679061796Scrutinee_6989586621679059210Sym0 x6989586621679061794
where
Let6989586621679061796Scrutinee_6989586621679059210Sym0KindInference :: SameKind (Apply Let6989586621679061796Scrutinee_6989586621679059210Sym0 arg_adwN) (Let6989586621679061796Scrutinee_6989586621679059210Sym1 arg_adwN) =>
Let6989586621679061796Scrutinee_6989586621679059210Sym0 x6989586621679061794
type instance Apply Let6989586621679061796Scrutinee_6989586621679059210Sym0 x6989586621679061794 = Let6989586621679061796Scrutinee_6989586621679059210Sym1 x6989586621679061794
instance SuppressUnusedWarnings Let6989586621679061796Scrutinee_6989586621679059210Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679061796Scrutinee_6989586621679059210Sym0KindInference)
())
data Let6989586621679061796Scrutinee_6989586621679059210Sym1 x6989586621679061794 y6989586621679061795
where
Let6989586621679061796Scrutinee_6989586621679059210Sym1KindInference :: SameKind (Apply (Let6989586621679061796Scrutinee_6989586621679059210Sym1 x6989586621679061794) arg_adwN) (Let6989586621679061796Scrutinee_6989586621679059210Sym2 x6989586621679061794 arg_adwN) =>
Let6989586621679061796Scrutinee_6989586621679059210Sym1 x6989586621679061794 y6989586621679061795
type instance Apply (Let6989586621679061796Scrutinee_6989586621679059210Sym1 x6989586621679061794) y6989586621679061795 = Let6989586621679061796Scrutinee_6989586621679059210 x6989586621679061794 y6989586621679061795
instance SuppressUnusedWarnings (Let6989586621679061796Scrutinee_6989586621679059210Sym1 x6989586621679061794) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679061796Scrutinee_6989586621679059210Sym1KindInference)
())
type family Let6989586621679061796Scrutinee_6989586621679059210Sym2 x6989586621679061794 y6989586621679061795 where
Let6989586621679061796Scrutinee_6989586621679059210Sym2 x6989586621679061794 y6989586621679061795 = Let6989586621679061796Scrutinee_6989586621679059210 x6989586621679061794 y6989586621679061795
type family Let6989586621679061796Scrutinee_6989586621679059210 x_adwK y_adwL where
Let6989586621679061796Scrutinee_6989586621679059210 x_adwK y_adwL = Apply (Apply (<=@#@$) x_adwK) y_adwL
type family Case_6989586621679061798_adwP x_adwK y_adwL t_adwQ where
Case_6989586621679061798_adwP x_adwK y_adwL 'True = y_adwL
Case_6989586621679061798_adwP x_adwK y_adwL 'False = x_adwK
type Max_6989586621679061787 :: a_acQz -> a_acQz -> a_acQz
type family Max_6989586621679061787 (a_adwF :: a_acQz) (a_adwG :: a_acQz) :: a_acQz where
Max_6989586621679061787 x_adwK y_adwL = Case_6989586621679061798_adwP x_adwK y_adwL (Let6989586621679061796Scrutinee_6989586621679059210Sym2 x_adwK y_adwL)
type Max_6989586621679061787Sym0 :: (~>) a_acQz ((~>) a_acQz a_acQz)
data Max_6989586621679061787Sym0 :: (~>) a_acQz ((~>) a_acQz a_acQz)
where
Max_6989586621679061787Sym0KindInference :: SameKind (Apply Max_6989586621679061787Sym0 arg_adwH) (Max_6989586621679061787Sym1 arg_adwH) =>
Max_6989586621679061787Sym0 a6989586621679061792
type instance Apply Max_6989586621679061787Sym0 a6989586621679061792 = Max_6989586621679061787Sym1 a6989586621679061792
instance SuppressUnusedWarnings Max_6989586621679061787Sym0 where
suppressUnusedWarnings
= snd (((,) Max_6989586621679061787Sym0KindInference) ())
type Max_6989586621679061787Sym1 :: a_acQz -> (~>) a_acQz a_acQz
data Max_6989586621679061787Sym1 (a6989586621679061792 :: a_acQz) :: (~>) a_acQz a_acQz
where
Max_6989586621679061787Sym1KindInference :: SameKind (Apply (Max_6989586621679061787Sym1 a6989586621679061792) arg_adwH) (Max_6989586621679061787Sym2 a6989586621679061792 arg_adwH) =>
Max_6989586621679061787Sym1 a6989586621679061792 a6989586621679061793
type instance Apply (Max_6989586621679061787Sym1 a6989586621679061792) a6989586621679061793 = Max_6989586621679061787 a6989586621679061792 a6989586621679061793
instance SuppressUnusedWarnings (Max_6989586621679061787Sym1 a6989586621679061792) where
suppressUnusedWarnings
= snd (((,) Max_6989586621679061787Sym1KindInference) ())
type Max_6989586621679061787Sym2 :: a_acQz -> a_acQz -> a_acQz
type family Max_6989586621679061787Sym2 (a6989586621679061792 :: a_acQz) (a6989586621679061793 :: a_acQz) :: a_acQz where
Max_6989586621679061787Sym2 a6989586621679061792 a6989586621679061793 = Max_6989586621679061787 a6989586621679061792 a6989586621679061793
data Let6989586621679061812Scrutinee_6989586621679059212Sym0 x6989586621679061810
where
Let6989586621679061812Scrutinee_6989586621679059212Sym0KindInference :: SameKind (Apply Let6989586621679061812Scrutinee_6989586621679059212Sym0 arg_adx3) (Let6989586621679061812Scrutinee_6989586621679059212Sym1 arg_adx3) =>
Let6989586621679061812Scrutinee_6989586621679059212Sym0 x6989586621679061810
type instance Apply Let6989586621679061812Scrutinee_6989586621679059212Sym0 x6989586621679061810 = Let6989586621679061812Scrutinee_6989586621679059212Sym1 x6989586621679061810
instance SuppressUnusedWarnings Let6989586621679061812Scrutinee_6989586621679059212Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679061812Scrutinee_6989586621679059212Sym0KindInference)
())
data Let6989586621679061812Scrutinee_6989586621679059212Sym1 x6989586621679061810 y6989586621679061811
where
Let6989586621679061812Scrutinee_6989586621679059212Sym1KindInference :: SameKind (Apply (Let6989586621679061812Scrutinee_6989586621679059212Sym1 x6989586621679061810) arg_adx3) (Let6989586621679061812Scrutinee_6989586621679059212Sym2 x6989586621679061810 arg_adx3) =>
Let6989586621679061812Scrutinee_6989586621679059212Sym1 x6989586621679061810 y6989586621679061811
type instance Apply (Let6989586621679061812Scrutinee_6989586621679059212Sym1 x6989586621679061810) y6989586621679061811 = Let6989586621679061812Scrutinee_6989586621679059212 x6989586621679061810 y6989586621679061811
instance SuppressUnusedWarnings (Let6989586621679061812Scrutinee_6989586621679059212Sym1 x6989586621679061810) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679061812Scrutinee_6989586621679059212Sym1KindInference)
())
type family Let6989586621679061812Scrutinee_6989586621679059212Sym2 x6989586621679061810 y6989586621679061811 where
Let6989586621679061812Scrutinee_6989586621679059212Sym2 x6989586621679061810 y6989586621679061811 = Let6989586621679061812Scrutinee_6989586621679059212 x6989586621679061810 y6989586621679061811
type family Let6989586621679061812Scrutinee_6989586621679059212 x_adx0 y_adx1 where
Let6989586621679061812Scrutinee_6989586621679059212 x_adx0 y_adx1 = Apply (Apply (<=@#@$) x_adx0) y_adx1
type family Case_6989586621679061814_adx5 x_adx0 y_adx1 t_adx6 where
Case_6989586621679061814_adx5 x_adx0 y_adx1 'True = x_adx0
Case_6989586621679061814_adx5 x_adx0 y_adx1 'False = y_adx1
type Min_6989586621679061803 :: a_acQz -> a_acQz -> a_acQz
type family Min_6989586621679061803 (a_adwV :: a_acQz) (a_adwW :: a_acQz) :: a_acQz where
Min_6989586621679061803 x_adx0 y_adx1 = Case_6989586621679061814_adx5 x_adx0 y_adx1 (Let6989586621679061812Scrutinee_6989586621679059212Sym2 x_adx0 y_adx1)
type Min_6989586621679061803Sym0 :: (~>) a_acQz ((~>) a_acQz a_acQz)
data Min_6989586621679061803Sym0 :: (~>) a_acQz ((~>) a_acQz a_acQz)
where
Min_6989586621679061803Sym0KindInference :: SameKind (Apply Min_6989586621679061803Sym0 arg_adwX) (Min_6989586621679061803Sym1 arg_adwX) =>
Min_6989586621679061803Sym0 a6989586621679061808
type instance Apply Min_6989586621679061803Sym0 a6989586621679061808 = Min_6989586621679061803Sym1 a6989586621679061808
instance SuppressUnusedWarnings Min_6989586621679061803Sym0 where
suppressUnusedWarnings
= snd (((,) Min_6989586621679061803Sym0KindInference) ())
type Min_6989586621679061803Sym1 :: a_acQz -> (~>) a_acQz a_acQz
data Min_6989586621679061803Sym1 (a6989586621679061808 :: a_acQz) :: (~>) a_acQz a_acQz
where
Min_6989586621679061803Sym1KindInference :: SameKind (Apply (Min_6989586621679061803Sym1 a6989586621679061808) arg_adwX) (Min_6989586621679061803Sym2 a6989586621679061808 arg_adwX) =>
Min_6989586621679061803Sym1 a6989586621679061808 a6989586621679061809
type instance Apply (Min_6989586621679061803Sym1 a6989586621679061808) a6989586621679061809 = Min_6989586621679061803 a6989586621679061808 a6989586621679061809
instance SuppressUnusedWarnings (Min_6989586621679061803Sym1 a6989586621679061808) where
suppressUnusedWarnings
= snd (((,) Min_6989586621679061803Sym1KindInference) ())
type Min_6989586621679061803Sym2 :: a_acQz -> a_acQz -> a_acQz
type family Min_6989586621679061803Sym2 (a6989586621679061808 :: a_acQz) (a6989586621679061809 :: a_acQz) :: a_acQz where
Min_6989586621679061803Sym2 a6989586621679061808 a6989586621679061809 = Min_6989586621679061803 a6989586621679061808 a6989586621679061809
class POrd a_acQz where
type Compare (arg_aduF :: a_acQz) (arg_aduG :: a_acQz) :: Ordering
type (<) (arg_aduK :: a_acQz) (arg_aduL :: a_acQz) :: Bool
type (<=) (arg_aduP :: a_acQz) (arg_aduQ :: a_acQz) :: Bool
type (>) (arg_aduU :: a_acQz) (arg_aduV :: a_acQz) :: Bool
type (>=) (arg_aduZ :: a_acQz) (arg_adv0 :: a_acQz) :: Bool
type Max (arg_adv4 :: a_acQz) (arg_adv5 :: a_acQz) :: a_acQz
type Min (arg_adv9 :: a_acQz) (arg_adva :: a_acQz) :: a_acQz
type Compare a_adve a_advf = Apply (Apply Compare_6989586621679061702Sym0 a_adve) a_advf
type (<) a_advz a_advA = Apply (Apply TFHelper_6989586621679061723Sym0 a_advz) a_advA
type (<=) a_advP a_advQ = Apply (Apply TFHelper_6989586621679061739Sym0 a_advP) a_advQ
type (>) a_adw5 a_adw6 = Apply (Apply TFHelper_6989586621679061755Sym0 a_adw5) a_adw6
type (>=) a_adwl a_adwm = Apply (Apply TFHelper_6989586621679061771Sym0 a_adwl) a_adwm
type Max a_adwB a_adwC = Apply (Apply Max_6989586621679061787Sym0 a_adwB) a_adwC
type Min a_adwR a_adwS = Apply (Apply Min_6989586621679061803Sym0 a_adwR) a_adwS
infix 4 <=
infix 4 <
infix 4 >
infix 4 >=
sThenCmp ::
forall (t_adx7 :: Ordering) (t_adx8 :: Ordering). Sing t_adx7
-> Sing t_adx8
-> Sing (Apply (Apply ThenCmpSym0 t_adx7) t_adx8 :: Ordering)
sComparing ::
forall b_acQo
a_acQn
(t_adxb :: (~>) b_acQo a_acQn)
(t_adxc :: b_acQo)
(t_adxd :: b_acQo). SOrd a_acQn =>
Sing t_adxb
-> Sing t_adxc
-> Sing t_adxd
-> Sing (Apply (Apply (Apply ComparingSym0 t_adxb) t_adxc) t_adxd :: Ordering)
sThenCmp SEQ (sX :: Sing x_aduu) = sX
sThenCmp SLT _ = SLT
sThenCmp SGT _ = SGT
sComparing
(sP :: Sing p_aduC)
(sX :: Sing x_aduD)
(sY :: Sing y_aduE)
= (applySing
((applySing ((singFun2 @CompareSym0) sCompare))
((applySing sP) sX)))
((applySing sP) sY)
instance SingI (ThenCmpSym0 :: (~>) Ordering ((~>) Ordering Ordering)) where
sing = (singFun2 @ThenCmpSym0) sThenCmp
instance SingI d_adx9 =>
SingI (ThenCmpSym1 (d_adx9 :: Ordering) :: (~>) Ordering Ordering) where
sing
= (singFun1 @(ThenCmpSym1 (d_adx9 :: Ordering)))
(sThenCmp (sing @d_adx9))
instance SOrd a_acQn =>
SingI (ComparingSym0 :: (~>) ((~>) b_acQo a_acQn) ((~>) b_acQo ((~>) b_acQo Ordering))) where
sing = (singFun3 @ComparingSym0) sComparing
instance (SOrd a_acQn, SingI d_adxe) =>
SingI (ComparingSym1 (d_adxe :: (~>) b_acQo a_acQn) :: (~>) b_acQo ((~>) b_acQo Ordering)) where
sing
= (singFun2 @(ComparingSym1 (d_adxe :: (~>) b_acQo a_acQn)))
(sComparing (sing @d_adxe))
instance (SOrd a_acQn, SingI d_adxe, SingI d_adxf) =>
SingI (ComparingSym2 (d_adxe :: (~>) b_acQo a_acQn) (d_adxf :: b_acQo) :: (~>) b_acQo Ordering) where
sing
= (singFun1
@(ComparingSym2 (d_adxe :: (~>) b_acQo a_acQn) (d_adxf :: b_acQo)))
((sComparing (sing @d_adxe)) (sing @d_adxf))
class SEq a_acQz => SOrd a_acQz where
sCompare ::
forall (t_adxi :: a_acQz) (t_adxj :: a_acQz). Sing t_adxi
-> Sing t_adxj
-> Sing (Apply (Apply CompareSym0 t_adxi) t_adxj :: Ordering)
(%<) ::
forall (t_adxm :: a_acQz) (t_adxn :: a_acQz). Sing t_adxm
-> Sing t_adxn
-> Sing (Apply (Apply (<@#@$) t_adxm) t_adxn :: Bool)
(%<=) ::
forall (t_adxq :: a_acQz) (t_adxr :: a_acQz). Sing t_adxq
-> Sing t_adxr
-> Sing (Apply (Apply (<=@#@$) t_adxq) t_adxr :: Bool)
(%>) ::
forall (t_adxu :: a_acQz) (t_adxv :: a_acQz). Sing t_adxu
-> Sing t_adxv
-> Sing (Apply (Apply (>@#@$) t_adxu) t_adxv :: Bool)
(%>=) ::
forall (t_adxy :: a_acQz) (t_adxz :: a_acQz). Sing t_adxy
-> Sing t_adxz
-> Sing (Apply (Apply (>=@#@$) t_adxy) t_adxz :: Bool)
sMax ::
forall (t_adxC :: a_acQz) (t_adxD :: a_acQz). Sing t_adxC
-> Sing t_adxD
-> Sing (Apply (Apply MaxSym0 t_adxC) t_adxD :: a_acQz)
sMin ::
forall (t_adxG :: a_acQz) (t_adxH :: a_acQz). Sing t_adxG
-> Sing t_adxH
-> Sing (Apply (Apply MinSym0 t_adxG) t_adxH :: a_acQz)
infix 4 %<=
infix 4 %<
infix 4 %>
infix 4 %>=
default sCompare ::
forall (t_adxi :: a_acQz)
(t_adxj :: a_acQz). ((Apply (Apply CompareSym0 t_adxi) t_adxj :: Ordering)
~
Apply (Apply Compare_6989586621679061702Sym0 t_adxi) t_adxj) =>
Sing t_adxi
-> Sing t_adxj
-> Sing (Apply (Apply CompareSym0 t_adxi) t_adxj :: Ordering)
default (%<) ::
forall (t_adxm :: a_acQz)
(t_adxn :: a_acQz). ((Apply (Apply (<@#@$) t_adxm) t_adxn :: Bool)
~
Apply (Apply TFHelper_6989586621679061723Sym0 t_adxm) t_adxn) =>
Sing t_adxm
-> Sing t_adxn
-> Sing (Apply (Apply (<@#@$) t_adxm) t_adxn :: Bool)
default (%<=) ::
forall (t_adxq :: a_acQz)
(t_adxr :: a_acQz). ((Apply (Apply (<=@#@$) t_adxq) t_adxr :: Bool)
~
Apply (Apply TFHelper_6989586621679061739Sym0 t_adxq) t_adxr) =>
Sing t_adxq
-> Sing t_adxr
-> Sing (Apply (Apply (<=@#@$) t_adxq) t_adxr :: Bool)
default (%>) ::
forall (t_adxu :: a_acQz)
(t_adxv :: a_acQz). ((Apply (Apply (>@#@$) t_adxu) t_adxv :: Bool)
~
Apply (Apply TFHelper_6989586621679061755Sym0 t_adxu) t_adxv) =>
Sing t_adxu
-> Sing t_adxv
-> Sing (Apply (Apply (>@#@$) t_adxu) t_adxv :: Bool)
default (%>=) ::
forall (t_adxy :: a_acQz)
(t_adxz :: a_acQz). ((Apply (Apply (>=@#@$) t_adxy) t_adxz :: Bool)
~
Apply (Apply TFHelper_6989586621679061771Sym0 t_adxy) t_adxz) =>
Sing t_adxy
-> Sing t_adxz
-> Sing (Apply (Apply (>=@#@$) t_adxy) t_adxz :: Bool)
default sMax ::
forall (t_adxC :: a_acQz)
(t_adxD :: a_acQz). ((Apply (Apply MaxSym0 t_adxC) t_adxD :: a_acQz)
~
Apply (Apply Max_6989586621679061787Sym0 t_adxC) t_adxD) =>
Sing t_adxC
-> Sing t_adxD
-> Sing (Apply (Apply MaxSym0 t_adxC) t_adxD :: a_acQz)
default sMin ::
forall (t_adxG :: a_acQz)
(t_adxH :: a_acQz). ((Apply (Apply MinSym0 t_adxG) t_adxH :: a_acQz)
~
Apply (Apply Min_6989586621679061803Sym0 t_adxG) t_adxH) =>
Sing t_adxG
-> Sing t_adxH
-> Sing (Apply (Apply MinSym0 t_adxG) t_adxH :: a_acQz)
sCompare (sX :: Sing x_advn) (sY :: Sing y_advo)
= let
sScrutinee_6989586621679059198 ::
Sing @_ (Let6989586621679061711Scrutinee_6989586621679059198Sym2 x_advn y_advo)
sScrutinee_6989586621679059198
= (applySing ((applySing ((singFun2 @(==@#@$)) (%==))) sX)) sY
in
(id
@(Sing (Case_6989586621679061713_advs x_advn y_advo (Let6989586621679061711Scrutinee_6989586621679059198Sym2 x_advn y_advo) :: Ordering)))
(case sScrutinee_6989586621679059198 of
STrue -> SEQ
SFalse
-> let
sScrutinee_6989586621679059200 ::
Sing @_ (Let6989586621679061715Scrutinee_6989586621679059200Sym2 x_advn y_advo)
sScrutinee_6989586621679059200
= (applySing ((applySing ((singFun2 @(<=@#@$)) (%<=))) sX)) sY
in
(id
@(Sing (Case_6989586621679061717_advw x_advn y_advo (Let6989586621679061715Scrutinee_6989586621679059200Sym2 x_advn y_advo) :: Ordering)))
(case sScrutinee_6989586621679059200 of
STrue -> SLT
SFalse -> SGT))
(%<) (sX :: Sing x_advI) (sY :: Sing y_advJ)
= let
sScrutinee_6989586621679059202 ::
Sing @_ (Let6989586621679061732Scrutinee_6989586621679059202Sym2 x_advI y_advJ)
sScrutinee_6989586621679059202
= (applySing ((applySing ((singFun2 @CompareSym0) sCompare)) sX))
sY
in
(id
@(Sing (Case_6989586621679061734_advN x_advI y_advJ (Let6989586621679061732Scrutinee_6989586621679059202Sym2 x_advI y_advJ) :: Bool)))
(case sScrutinee_6989586621679059202 of
SLT -> STrue
SEQ -> SFalse
SGT -> SFalse)
(%<=) (sX :: Sing x_advY) (sY :: Sing y_advZ)
= let
sScrutinee_6989586621679059204 ::
Sing @_ (Let6989586621679061748Scrutinee_6989586621679059204Sym2 x_advY y_advZ)
sScrutinee_6989586621679059204
= (applySing ((applySing ((singFun2 @CompareSym0) sCompare)) sX))
sY
in
(id
@(Sing (Case_6989586621679061750_adw3 x_advY y_advZ (Let6989586621679061748Scrutinee_6989586621679059204Sym2 x_advY y_advZ) :: Bool)))
(case sScrutinee_6989586621679059204 of
SLT -> STrue
SEQ -> STrue
SGT -> SFalse)
(%>) (sX :: Sing x_adwe) (sY :: Sing y_adwf)
= let
sScrutinee_6989586621679059206 ::
Sing @_ (Let6989586621679061764Scrutinee_6989586621679059206Sym2 x_adwe y_adwf)
sScrutinee_6989586621679059206
= (applySing ((applySing ((singFun2 @CompareSym0) sCompare)) sX))
sY
in
(id
@(Sing (Case_6989586621679061766_adwj x_adwe y_adwf (Let6989586621679061764Scrutinee_6989586621679059206Sym2 x_adwe y_adwf) :: Bool)))
(case sScrutinee_6989586621679059206 of
SLT -> SFalse
SEQ -> SFalse
SGT -> STrue)
(%>=) (sX :: Sing x_adwu) (sY :: Sing y_adwv)
= let
sScrutinee_6989586621679059208 ::
Sing @_ (Let6989586621679061780Scrutinee_6989586621679059208Sym2 x_adwu y_adwv)
sScrutinee_6989586621679059208
= (applySing ((applySing ((singFun2 @CompareSym0) sCompare)) sX))
sY
in
(id
@(Sing (Case_6989586621679061782_adwz x_adwu y_adwv (Let6989586621679061780Scrutinee_6989586621679059208Sym2 x_adwu y_adwv) :: Bool)))
(case sScrutinee_6989586621679059208 of
SLT -> SFalse
SEQ -> STrue
SGT -> STrue)
sMax (sX :: Sing x_adwK) (sY :: Sing y_adwL)
= let
sScrutinee_6989586621679059210 ::
Sing @_ (Let6989586621679061796Scrutinee_6989586621679059210Sym2 x_adwK y_adwL)
sScrutinee_6989586621679059210
= (applySing ((applySing ((singFun2 @(<=@#@$)) (%<=))) sX)) sY
in
(id
@(Sing (Case_6989586621679061798_adwP x_adwK y_adwL (Let6989586621679061796Scrutinee_6989586621679059210Sym2 x_adwK y_adwL) :: a_acQz)))
(case sScrutinee_6989586621679059210 of
STrue -> sY
SFalse -> sX)
sMin (sX :: Sing x_adx0) (sY :: Sing y_adx1)
= let
sScrutinee_6989586621679059212 ::
Sing @_ (Let6989586621679061812Scrutinee_6989586621679059212Sym2 x_adx0 y_adx1)
sScrutinee_6989586621679059212
= (applySing ((applySing ((singFun2 @(<=@#@$)) (%<=))) sX)) sY
in
(id
@(Sing (Case_6989586621679061814_adx5 x_adx0 y_adx1 (Let6989586621679061812Scrutinee_6989586621679059212Sym2 x_adx0 y_adx1) :: a_acQz)))
(case sScrutinee_6989586621679059212 of
STrue -> sX
SFalse -> sY)
instance SOrd a_acQz =>
SingI (CompareSym0 :: (~>) a_acQz ((~>) a_acQz Ordering)) where
sing = (singFun2 @CompareSym0) sCompare
instance (SOrd a_acQz, SingI d_adxk) =>
SingI (CompareSym1 (d_adxk :: a_acQz) :: (~>) a_acQz Ordering) where
sing
= (singFun1 @(CompareSym1 (d_adxk :: a_acQz)))
(sCompare (sing @d_adxk))
instance SOrd a_acQz =>
SingI ((<@#@$) :: (~>) a_acQz ((~>) a_acQz Bool)) where
sing = (singFun2 @(<@#@$)) (%<)
instance (SOrd a_acQz, SingI d_adxo) =>
SingI ((<@#@$$) (d_adxo :: a_acQz) :: (~>) a_acQz Bool) where
sing
= (singFun1 @((<@#@$$) (d_adxo :: a_acQz))) ((%<) (sing @d_adxo))
instance SOrd a_acQz =>
SingI ((<=@#@$) :: (~>) a_acQz ((~>) a_acQz Bool)) where
sing = (singFun2 @(<=@#@$)) (%<=)
instance (SOrd a_acQz, SingI d_adxs) =>
SingI ((<=@#@$$) (d_adxs :: a_acQz) :: (~>) a_acQz Bool) where
sing
= (singFun1 @((<=@#@$$) (d_adxs :: a_acQz))) ((%<=) (sing @d_adxs))
instance SOrd a_acQz =>
SingI ((>@#@$) :: (~>) a_acQz ((~>) a_acQz Bool)) where
sing = (singFun2 @(>@#@$)) (%>)
instance (SOrd a_acQz, SingI d_adxw) =>
SingI ((>@#@$$) (d_adxw :: a_acQz) :: (~>) a_acQz Bool) where
sing
= (singFun1 @((>@#@$$) (d_adxw :: a_acQz))) ((%>) (sing @d_adxw))
instance SOrd a_acQz =>
SingI ((>=@#@$) :: (~>) a_acQz ((~>) a_acQz Bool)) where
sing = (singFun2 @(>=@#@$)) (%>=)
instance (SOrd a_acQz, SingI d_adxA) =>
SingI ((>=@#@$$) (d_adxA :: a_acQz) :: (~>) a_acQz Bool) where
sing
= (singFun1 @((>=@#@$$) (d_adxA :: a_acQz))) ((%>=) (sing @d_adxA))
instance SOrd a_acQz =>
SingI (MaxSym0 :: (~>) a_acQz ((~>) a_acQz a_acQz)) where
sing = (singFun2 @MaxSym0) sMax
instance (SOrd a_acQz, SingI d_adxE) =>
SingI (MaxSym1 (d_adxE :: a_acQz) :: (~>) a_acQz a_acQz) where
sing
= (singFun1 @(MaxSym1 (d_adxE :: a_acQz))) (sMax (sing @d_adxE))
instance SOrd a_acQz =>
SingI (MinSym0 :: (~>) a_acQz ((~>) a_acQz a_acQz)) where
sing = (singFun2 @MinSym0) sMin
instance (SOrd a_acQz, SingI d_adxI) =>
SingI (MinSym1 (d_adxI :: a_acQz) :: (~>) a_acQz a_acQz) where
sing
= (singFun1 @(MinSym1 (d_adxI :: a_acQz))) (sMin (sing @d_adxI))
type Compare_6989586621679070887 :: [a_11] -> [a_11] -> Ordering
type family Compare_6989586621679070887 (a_afTr :: [a_11]) (a_afTs :: [a_11]) :: Ordering where
Compare_6989586621679070887 '[] '[] = Apply (Apply (Apply FoldlSym0 ThenCmpSym0) EQSym0) NilSym0
Compare_6989586621679070887 ('(:) a_6989586621679070877_afTw a_6989586621679070879_afTx) ('(:) b_6989586621679070881_afTy b_6989586621679070883_afTz) = Apply (Apply (Apply FoldlSym0 ThenCmpSym0) EQSym0) (Apply (Apply (:@#@$) (Apply (Apply CompareSym0 a_6989586621679070877_afTw) b_6989586621679070881_afTy)) (Apply (Apply (:@#@$) (Apply (Apply CompareSym0 a_6989586621679070879_afTx) b_6989586621679070883_afTz)) NilSym0))
Compare_6989586621679070887 '[] ('(:) _ _) = LTSym0
Compare_6989586621679070887 ('(:) _ _) '[] = GTSym0
type Compare_6989586621679070887Sym0 :: (~>) [a_11] ((~>) [a_11] Ordering)
data Compare_6989586621679070887Sym0 :: (~>) [a_11] ((~>) [a_11] Ordering)
where
Compare_6989586621679070887Sym0KindInference :: SameKind (Apply Compare_6989586621679070887Sym0 arg_afTt) (Compare_6989586621679070887Sym1 arg_afTt) =>
Compare_6989586621679070887Sym0 a6989586621679070892
type instance Apply Compare_6989586621679070887Sym0 a6989586621679070892 = Compare_6989586621679070887Sym1 a6989586621679070892
instance SuppressUnusedWarnings Compare_6989586621679070887Sym0 where
suppressUnusedWarnings
= snd (((,) Compare_6989586621679070887Sym0KindInference) ())
type Compare_6989586621679070887Sym1 :: [a_11]
-> (~>) [a_11] Ordering
data Compare_6989586621679070887Sym1 (a6989586621679070892 :: [a_11]) :: (~>) [a_11] Ordering
where
Compare_6989586621679070887Sym1KindInference :: SameKind (Apply (Compare_6989586621679070887Sym1 a6989586621679070892) arg_afTt) (Compare_6989586621679070887Sym2 a6989586621679070892 arg_afTt) =>
Compare_6989586621679070887Sym1 a6989586621679070892 a6989586621679070893
type instance Apply (Compare_6989586621679070887Sym1 a6989586621679070892) a6989586621679070893 = Compare_6989586621679070887 a6989586621679070892 a6989586621679070893
instance SuppressUnusedWarnings (Compare_6989586621679070887Sym1 a6989586621679070892) where
suppressUnusedWarnings
= snd (((,) Compare_6989586621679070887Sym1KindInference) ())
type Compare_6989586621679070887Sym2 :: [a_11]
-> [a_11] -> Ordering
type family Compare_6989586621679070887Sym2 (a6989586621679070892 :: [a_11]) (a6989586621679070893 :: [a_11]) :: Ordering where
Compare_6989586621679070887Sym2 a6989586621679070892 a6989586621679070893 = Compare_6989586621679070887 a6989586621679070892 a6989586621679070893
instance POrd [a_11] where
type Compare a_afTn a_afTo = Apply (Apply Compare_6989586621679070887Sym0 a_afTn) a_afTo
instance (SOrd a_11, SOrd [a_11]) => SOrd [a_11] where
sCompare ::
forall (t_adxi :: [a_11]) (t_adxj :: [a_11]). Sing t_adxi
-> Sing t_adxj
-> Sing (Apply (Apply (CompareSym0 :: TyFun [a_11] ((~>) [a_11] Ordering)
-> Type) t_adxi) t_adxj)
sCompare SNil SNil
= (applySing
((applySing
((applySing ((singFun3 @FoldlSym0) sFoldl))
((singFun2 @ThenCmpSym0) sThenCmp)))
SEQ))
SNil
sCompare
(SCons (sA_6989586621679070877 :: Sing a_6989586621679070877_afTw)
(sA_6989586621679070879 :: Sing a_6989586621679070879_afTx))
(SCons (sB_6989586621679070881 :: Sing b_6989586621679070881_afTy)
(sB_6989586621679070883 :: Sing b_6989586621679070883_afTz))
= (applySing
((applySing
((applySing ((singFun3 @FoldlSym0) sFoldl))
((singFun2 @ThenCmpSym0) sThenCmp)))
SEQ))
((applySing
((applySing ((singFun2 @(:@#@$)) SCons))
((applySing
((applySing ((singFun2 @CompareSym0) sCompare))
sA_6989586621679070877))
sB_6989586621679070881)))
((applySing
((applySing ((singFun2 @(:@#@$)) SCons))
((applySing
((applySing ((singFun2 @CompareSym0) sCompare))
sA_6989586621679070879))
sB_6989586621679070883)))
SNil))
sCompare SNil (SCons _ _) = SLT
sCompare (SCons _ _) SNil = SGT
-- | Disjunction of singletons
(%||) :: Sing a -> Sing b -> Sing (a || b)
SFalse %|| a = a
STrue %|| _ = STrue
infixr 2 %||
type (||@#@$) :: (~>) Bool ((~>) Bool Bool)
data (||@#@$) :: (~>) Bool ((~>) Bool Bool)
where
(:||@#@$###) :: SameKind (Apply (||@#@$) arg_agoO) ((||@#@$$) arg_agoO) =>
(||@#@$) a6989586621679072835
type instance Apply (||@#@$) a6989586621679072835 = (||@#@$$) a6989586621679072835
instance SuppressUnusedWarnings (||@#@$) where
suppressUnusedWarnings = snd (((,) (:||@#@$###)) ())
infixr 2 ||@#@$
type (||@#@$$) :: Bool -> (~>) Bool Bool
data (||@#@$$) (a6989586621679072835 :: Bool) :: (~>) Bool Bool
where
(:||@#@$$###) :: SameKind (Apply ((||@#@$$) a6989586621679072835) arg_agoO) ((||@#@$$$) a6989586621679072835 arg_agoO) =>
(||@#@$$) a6989586621679072835 a6989586621679072836
type instance Apply ((||@#@$$) a6989586621679072835) a6989586621679072836 = (||) a6989586621679072835 a6989586621679072836
instance SuppressUnusedWarnings ((||@#@$$) a6989586621679072835) where
suppressUnusedWarnings = snd (((,) (:||@#@$$###)) ())
infixr 2 ||@#@$$
type (||@#@$$$) :: Bool -> Bool -> Bool
type family (||@#@$$$) (a6989586621679072835 :: Bool) (a6989586621679072836 :: Bool) :: Bool where
(||@#@$$$) a6989586621679072835 a6989586621679072836 = (||) a6989586621679072835 a6989586621679072836
infixr 2 ||@#@$$$
instance SingI (||@#@$) where
sing = singFun2 (%||)
instance SingI x => SingI ((||@#@$$) x) where
sing = singFun1 (sing @x %||)
type DefaultEq :: k -> k -> Bool
type family DefaultEq (a :: k) (b :: k) :: Bool where
DefaultEq a a = 'True
DefaultEq a b = 'False
type DefaultEqSym0 :: forall (k_agp5 :: Type). (~>) k_agp5 ((~>) k_agp5 Bool)
data DefaultEqSym0 :: (~>) k_agp5 ((~>) k_agp5 Bool)
where
DefaultEqSym0KindInference :: SameKind (Apply DefaultEqSym0 arg_agtk) (DefaultEqSym1 arg_agtk) =>
DefaultEqSym0 a6989586621679073115
type instance Apply DefaultEqSym0 a6989586621679073115 = DefaultEqSym1 a6989586621679073115
instance SuppressUnusedWarnings DefaultEqSym0 where
suppressUnusedWarnings = snd (((,) DefaultEqSym0KindInference) ())
type DefaultEqSym1 :: forall (k_agp5 :: Type). k_agp5
-> (~>) k_agp5 Bool
data DefaultEqSym1 (a6989586621679073115 :: k_agp5) :: (~>) k_agp5 Bool
where
DefaultEqSym1KindInference :: SameKind (Apply (DefaultEqSym1 a6989586621679073115) arg_agtk) (DefaultEqSym2 a6989586621679073115 arg_agtk) =>
DefaultEqSym1 a6989586621679073115 a6989586621679073116
type instance Apply (DefaultEqSym1 a6989586621679073115) a6989586621679073116 = DefaultEq a6989586621679073115 a6989586621679073116
instance SuppressUnusedWarnings (DefaultEqSym1 a6989586621679073115) where
suppressUnusedWarnings = snd (((,) DefaultEqSym1KindInference) ())
type DefaultEqSym2 :: forall (k_agp5 :: Type). k_agp5
-> k_agp5 -> Bool
type family DefaultEqSym2 (a6989586621679073115 :: k_agp5) (a6989586621679073116 :: k_agp5) :: Bool where
DefaultEqSym2 a6989586621679073115 a6989586621679073116 = DefaultEq a6989586621679073115 a6989586621679073116
-- PEq instances
instance PEq Nat where
type x == y = DefaultEq x y
instance PEq Symbol where
type x == y = DefaultEq x y
instance PEq Char where
type x == y = DefaultEq x y
-- need SEq instances for TypeLits kinds
instance SEq Nat where
(SNat :: Sing n) %== (SNat :: Sing m)
= case sameNat (Proxy :: Proxy n) (Proxy :: Proxy m) of
Just Refl -> STrue
Nothing -> unsafeCoerce SFalse
instance SEq Symbol where
(SSym :: Sing n) %== (SSym :: Sing m)
= case sameSymbol (Proxy :: Proxy n) (Proxy :: Proxy m) of
Just Refl -> STrue
Nothing -> unsafeCoerce SFalse
instance SEq Char where
(SChar :: Sing n) %== (SChar :: Sing m)
= case sameChar (Proxy :: Proxy n) (Proxy :: Proxy m) of
Just Refl -> STrue
Nothing -> unsafeCoerce SFalse
-- POrd instances
instance POrd Nat where
type (a :: Nat) `Compare` (b :: Nat) = a `TN.CmpNat` b
instance POrd Symbol where
type (a :: Symbol) `Compare` (b :: Symbol) = a `TL.CmpSymbol` b
instance POrd Char where
type (a :: Char) `Compare` (b :: Char) = a `TL.CmpChar` b
-- SOrd instances
instance SOrd Nat where
a `sCompare` b = case fromSing a `compare` fromSing b of
LT -> unsafeCoerce SLT
EQ -> unsafeCoerce SEQ
GT -> unsafeCoerce SGT
instance SOrd Symbol where
a `sCompare` b = case fromSing a `compare` fromSing b of
LT -> unsafeCoerce SLT
EQ -> unsafeCoerce SEQ
GT -> unsafeCoerce SGT
instance SOrd Char where
a `sCompare` b = case fromSing a `compare` fromSing b of
LT -> unsafeCoerce SLT
EQ -> unsafeCoerce SEQ
GT -> unsafeCoerce SGT
type SubtractSym0 :: (~>) a_agTG ((~>) a_agTG a_agTG)
data SubtractSym0 :: (~>) a_agTG ((~>) a_agTG a_agTG)
where
SubtractSym0KindInference :: SameKind (Apply SubtractSym0 arg_agTY) (SubtractSym1 arg_agTY) =>
SubtractSym0 a6989586621679074767
type instance Apply SubtractSym0 a6989586621679074767 = SubtractSym1 a6989586621679074767
instance SuppressUnusedWarnings SubtractSym0 where
suppressUnusedWarnings = snd (((,) SubtractSym0KindInference) ())
type SubtractSym1 :: a_agTG -> (~>) a_agTG a_agTG
data SubtractSym1 (a6989586621679074767 :: a_agTG) :: (~>) a_agTG a_agTG
where
SubtractSym1KindInference :: SameKind (Apply (SubtractSym1 a6989586621679074767) arg_agTY) (SubtractSym2 a6989586621679074767 arg_agTY) =>
SubtractSym1 a6989586621679074767 a6989586621679074768
type instance Apply (SubtractSym1 a6989586621679074767) a6989586621679074768 = Subtract a6989586621679074767 a6989586621679074768
instance SuppressUnusedWarnings (SubtractSym1 a6989586621679074767) where
suppressUnusedWarnings = snd (((,) SubtractSym1KindInference) ())
type SubtractSym2 :: a_agTG -> a_agTG -> a_agTG
type family SubtractSym2 (a6989586621679074767 :: a_agTG) (a6989586621679074768 :: a_agTG) :: a_agTG where
SubtractSym2 a6989586621679074767 a6989586621679074768 = Subtract a6989586621679074767 a6989586621679074768
type Subtract :: a_agTG -> a_agTG -> a_agTG
type family Subtract (a_agTW :: a_agTG) (a_agTX :: a_agTG) :: a_agTG where
Subtract x_agU1 y_agU2 = Apply (Apply (-@#@$) y_agU2) x_agU1
type (+@#@$) :: forall a_agTQ. (~>) a_agTQ ((~>) a_agTQ a_agTQ)
data (+@#@$) :: (~>) a_agTQ ((~>) a_agTQ a_agTQ)
where
(:+@#@$###) :: SameKind (Apply (+@#@$) arg_agU5) ((+@#@$$) arg_agU5) =>
(+@#@$) a6989586621679074774
type instance Apply (+@#@$) a6989586621679074774 = (+@#@$$) a6989586621679074774
instance SuppressUnusedWarnings (+@#@$) where
suppressUnusedWarnings = snd (((,) (:+@#@$###)) ())
infixl 6 +@#@$
type (+@#@$$) :: forall a_agTQ. a_agTQ -> (~>) a_agTQ a_agTQ
data (+@#@$$) (a6989586621679074774 :: a_agTQ) :: (~>) a_agTQ a_agTQ
where
(:+@#@$$###) :: SameKind (Apply ((+@#@$$) a6989586621679074774) arg_agU5) ((+@#@$$$) a6989586621679074774 arg_agU5) =>
(+@#@$$) a6989586621679074774 a6989586621679074775
type instance Apply ((+@#@$$) a6989586621679074774) a6989586621679074775 = (+) a6989586621679074774 a6989586621679074775
instance SuppressUnusedWarnings ((+@#@$$) a6989586621679074774) where
suppressUnusedWarnings = snd (((,) (:+@#@$$###)) ())
infixl 6 +@#@$$
type (+@#@$$$) :: forall a_agTQ. a_agTQ -> a_agTQ -> a_agTQ
type family (+@#@$$$) (a6989586621679074774 :: a_agTQ) (a6989586621679074775 :: a_agTQ) :: a_agTQ where
(+@#@$$$) a6989586621679074774 a6989586621679074775 = (+) a6989586621679074774 a6989586621679074775
infixl 6 +@#@$$$
type (-@#@$) :: forall a_agTQ. (~>) a_agTQ ((~>) a_agTQ a_agTQ)
data (-@#@$) :: (~>) a_agTQ ((~>) a_agTQ a_agTQ)
where
(:-@#@$###) :: SameKind (Apply (-@#@$) arg_agUa) ((-@#@$$) arg_agUa) =>
(-@#@$) a6989586621679074779
type instance Apply (-@#@$) a6989586621679074779 = (-@#@$$) a6989586621679074779
instance SuppressUnusedWarnings (-@#@$) where
suppressUnusedWarnings = snd (((,) (:-@#@$###)) ())
infixl 6 -@#@$
type (-@#@$$) :: forall a_agTQ. a_agTQ -> (~>) a_agTQ a_agTQ
data (-@#@$$) (a6989586621679074779 :: a_agTQ) :: (~>) a_agTQ a_agTQ
where
(:-@#@$$###) :: SameKind (Apply ((-@#@$$) a6989586621679074779) arg_agUa) ((-@#@$$$) a6989586621679074779 arg_agUa) =>
(-@#@$$) a6989586621679074779 a6989586621679074780
type instance Apply ((-@#@$$) a6989586621679074779) a6989586621679074780 = (-) a6989586621679074779 a6989586621679074780
instance SuppressUnusedWarnings ((-@#@$$) a6989586621679074779) where
suppressUnusedWarnings = snd (((,) (:-@#@$$###)) ())
infixl 6 -@#@$$
type (-@#@$$$) :: forall a_agTQ. a_agTQ -> a_agTQ -> a_agTQ
type family (-@#@$$$) (a6989586621679074779 :: a_agTQ) (a6989586621679074780 :: a_agTQ) :: a_agTQ where
(-@#@$$$) a6989586621679074779 a6989586621679074780 = (-) a6989586621679074779 a6989586621679074780
infixl 6 -@#@$$$
type (*@#@$) :: forall a_agTQ. (~>) a_agTQ ((~>) a_agTQ a_agTQ)
data (*@#@$) :: (~>) a_agTQ ((~>) a_agTQ a_agTQ)
where
(:*@#@$###) :: SameKind (Apply (*@#@$) arg_agUf) ((*@#@$$) arg_agUf) =>
(*@#@$) a6989586621679074784
type instance Apply (*@#@$) a6989586621679074784 = (*@#@$$) a6989586621679074784
instance SuppressUnusedWarnings (*@#@$) where
suppressUnusedWarnings = snd (((,) (:*@#@$###)) ())
infixl 7 *@#@$
type (*@#@$$) :: forall a_agTQ. a_agTQ -> (~>) a_agTQ a_agTQ
data (*@#@$$) (a6989586621679074784 :: a_agTQ) :: (~>) a_agTQ a_agTQ
where
(:*@#@$$###) :: SameKind (Apply ((*@#@$$) a6989586621679074784) arg_agUf) ((*@#@$$$) a6989586621679074784 arg_agUf) =>
(*@#@$$) a6989586621679074784 a6989586621679074785
type instance Apply ((*@#@$$) a6989586621679074784) a6989586621679074785 = (*) a6989586621679074784 a6989586621679074785
instance SuppressUnusedWarnings ((*@#@$$) a6989586621679074784) where
suppressUnusedWarnings = snd (((,) (:*@#@$$###)) ())
infixl 7 *@#@$$
type (*@#@$$$) :: forall a_agTQ. a_agTQ -> a_agTQ -> a_agTQ
type family (*@#@$$$) (a6989586621679074784 :: a_agTQ) (a6989586621679074785 :: a_agTQ) :: a_agTQ where
(*@#@$$$) a6989586621679074784 a6989586621679074785 = (*) a6989586621679074784 a6989586621679074785
infixl 7 *@#@$$$
type NegateSym0 :: forall a_agTQ. (~>) a_agTQ a_agTQ
data NegateSym0 :: (~>) a_agTQ a_agTQ
where
NegateSym0KindInference :: SameKind (Apply NegateSym0 arg_agUj) (NegateSym1 arg_agUj) =>
NegateSym0 a6989586621679074788
type instance Apply NegateSym0 a6989586621679074788 = Negate a6989586621679074788
instance SuppressUnusedWarnings NegateSym0 where
suppressUnusedWarnings = snd (((,) NegateSym0KindInference) ())
type NegateSym1 :: forall a_agTQ. a_agTQ -> a_agTQ
type family NegateSym1 (a6989586621679074788 :: a_agTQ) :: a_agTQ where
NegateSym1 a6989586621679074788 = Negate a6989586621679074788
type AbsSym0 :: forall a_agTQ. (~>) a_agTQ a_agTQ
data AbsSym0 :: (~>) a_agTQ a_agTQ
where
AbsSym0KindInference :: SameKind (Apply AbsSym0 arg_agUm) (AbsSym1 arg_agUm) =>
AbsSym0 a6989586621679074791
type instance Apply AbsSym0 a6989586621679074791 = Abs a6989586621679074791
instance SuppressUnusedWarnings AbsSym0 where
suppressUnusedWarnings = snd (((,) AbsSym0KindInference) ())
type AbsSym1 :: forall a_agTQ. a_agTQ -> a_agTQ
type family AbsSym1 (a6989586621679074791 :: a_agTQ) :: a_agTQ where
AbsSym1 a6989586621679074791 = Abs a6989586621679074791
type SignumSym0 :: forall a_agTQ. (~>) a_agTQ a_agTQ
data SignumSym0 :: (~>) a_agTQ a_agTQ
where
SignumSym0KindInference :: SameKind (Apply SignumSym0 arg_agUp) (SignumSym1 arg_agUp) =>
SignumSym0 a6989586621679074794
type instance Apply SignumSym0 a6989586621679074794 = Signum a6989586621679074794
instance SuppressUnusedWarnings SignumSym0 where
suppressUnusedWarnings = snd (((,) SignumSym0KindInference) ())
type SignumSym1 :: forall a_agTQ. a_agTQ -> a_agTQ
type family SignumSym1 (a6989586621679074794 :: a_agTQ) :: a_agTQ where
SignumSym1 a6989586621679074794 = Signum a6989586621679074794
type FromIntegerSym0 :: forall a_agTQ. (~>) Natural a_agTQ
data FromIntegerSym0 :: (~>) Natural a_agTQ
where
FromIntegerSym0KindInference :: SameKind (Apply FromIntegerSym0 arg_agUs) (FromIntegerSym1 arg_agUs) =>
FromIntegerSym0 a6989586621679074797
type instance Apply FromIntegerSym0 a6989586621679074797 = FromInteger a6989586621679074797
instance SuppressUnusedWarnings FromIntegerSym0 where
suppressUnusedWarnings
= snd (((,) FromIntegerSym0KindInference) ())
type FromIntegerSym1 :: forall a_agTQ. Natural -> a_agTQ
type family FromIntegerSym1 (a6989586621679074797 :: Natural) :: a_agTQ where
FromIntegerSym1 a6989586621679074797 = FromInteger a6989586621679074797
type TFHelper_6989586621679074800 :: a_agTQ -> a_agTQ -> a_agTQ
type family TFHelper_6989586621679074800 (a_agUy :: a_agTQ) (a_agUz :: a_agTQ) :: a_agTQ where
TFHelper_6989586621679074800 x_agUD y_agUE = Apply (Apply (+@#@$) x_agUD) (Apply NegateSym0 y_agUE)
type TFHelper_6989586621679074800Sym0 :: (~>) a_agTQ ((~>) a_agTQ a_agTQ)
data TFHelper_6989586621679074800Sym0 :: (~>) a_agTQ ((~>) a_agTQ a_agTQ)
where
TFHelper_6989586621679074800Sym0KindInference :: SameKind (Apply TFHelper_6989586621679074800Sym0 arg_agUA) (TFHelper_6989586621679074800Sym1 arg_agUA) =>
TFHelper_6989586621679074800Sym0 a6989586621679074805
type instance Apply TFHelper_6989586621679074800Sym0 a6989586621679074805 = TFHelper_6989586621679074800Sym1 a6989586621679074805
instance SuppressUnusedWarnings TFHelper_6989586621679074800Sym0 where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679074800Sym0KindInference) ())
type TFHelper_6989586621679074800Sym1 :: a_agTQ
-> (~>) a_agTQ a_agTQ
data TFHelper_6989586621679074800Sym1 (a6989586621679074805 :: a_agTQ) :: (~>) a_agTQ a_agTQ
where
TFHelper_6989586621679074800Sym1KindInference :: SameKind (Apply (TFHelper_6989586621679074800Sym1 a6989586621679074805) arg_agUA) (TFHelper_6989586621679074800Sym2 a6989586621679074805 arg_agUA) =>
TFHelper_6989586621679074800Sym1 a6989586621679074805 a6989586621679074806
type instance Apply (TFHelper_6989586621679074800Sym1 a6989586621679074805) a6989586621679074806 = TFHelper_6989586621679074800 a6989586621679074805 a6989586621679074806
instance SuppressUnusedWarnings (TFHelper_6989586621679074800Sym1 a6989586621679074805) where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679074800Sym1KindInference) ())
type TFHelper_6989586621679074800Sym2 :: a_agTQ -> a_agTQ -> a_agTQ
type family TFHelper_6989586621679074800Sym2 (a6989586621679074805 :: a_agTQ) (a6989586621679074806 :: a_agTQ) :: a_agTQ where
TFHelper_6989586621679074800Sym2 a6989586621679074805 a6989586621679074806 = TFHelper_6989586621679074800 a6989586621679074805 a6989586621679074806
type Negate_6989586621679074810 :: a_agTQ -> a_agTQ
type family Negate_6989586621679074810 (a_agUI :: a_agTQ) :: a_agTQ where
Negate_6989586621679074810 x_agUL = Apply (Apply (-@#@$) (FromInteger 0)) x_agUL
type Negate_6989586621679074810Sym0 :: (~>) a_agTQ a_agTQ
data Negate_6989586621679074810Sym0 :: (~>) a_agTQ a_agTQ
where
Negate_6989586621679074810Sym0KindInference :: SameKind (Apply Negate_6989586621679074810Sym0 arg_agUJ) (Negate_6989586621679074810Sym1 arg_agUJ) =>
Negate_6989586621679074810Sym0 a6989586621679074814
type instance Apply Negate_6989586621679074810Sym0 a6989586621679074814 = Negate_6989586621679074810 a6989586621679074814
instance SuppressUnusedWarnings Negate_6989586621679074810Sym0 where
suppressUnusedWarnings
= snd (((,) Negate_6989586621679074810Sym0KindInference) ())
type Negate_6989586621679074810Sym1 :: a_agTQ -> a_agTQ
type family Negate_6989586621679074810Sym1 (a6989586621679074814 :: a_agTQ) :: a_agTQ where
Negate_6989586621679074810Sym1 a6989586621679074814 = Negate_6989586621679074810 a6989586621679074814
class PNum a_agTQ where
type (+) (arg_agU3 :: a_agTQ) (arg_agU4 :: a_agTQ) :: a_agTQ
type (-) (arg_agU8 :: a_agTQ) (arg_agU9 :: a_agTQ) :: a_agTQ
type (*) (arg_agUd :: a_agTQ) (arg_agUe :: a_agTQ) :: a_agTQ
type Negate (arg_agUi :: a_agTQ) :: a_agTQ
type Abs (arg_agUl :: a_agTQ) :: a_agTQ
type Signum (arg_agUo :: a_agTQ) :: a_agTQ
type FromInteger (arg_agUr :: Natural) :: a_agTQ
type (-) a_agUu a_agUv = Apply (Apply TFHelper_6989586621679074800Sym0 a_agUu) a_agUv
type Negate a_agUF = Apply Negate_6989586621679074810Sym0 a_agUF
infixl 6 +
infixl 6 -
infixl 7 *
sSubtract ::
forall a_agTG (t_agUM :: a_agTG) (t_agUN :: a_agTG). SNum a_agTG =>
Sing t_agUM
-> Sing t_agUN
-> Sing (Apply (Apply SubtractSym0 t_agUM) t_agUN :: a_agTG)
sSubtract (sX :: Sing x_agU1) (sY :: Sing y_agU2)
= (applySing ((applySing ((singFun2 @(-@#@$)) (%-))) sY)) sX
instance SNum a_agTG =>
SingI (SubtractSym0 :: (~>) a_agTG ((~>) a_agTG a_agTG)) where
sing = (singFun2 @SubtractSym0) sSubtract
instance (SNum a_agTG, SingI d_agUO) =>
SingI (SubtractSym1 (d_agUO :: a_agTG) :: (~>) a_agTG a_agTG) where
sing
= (singFun1 @(SubtractSym1 (d_agUO :: a_agTG)))
(sSubtract (sing @d_agUO))
class SNum a_agTQ where
(%+) ::
forall (t_agUQ :: a_agTQ) (t_agUR :: a_agTQ). Sing t_agUQ
-> Sing t_agUR
-> Sing (Apply (Apply (+@#@$) t_agUQ) t_agUR :: a_agTQ)
(%-) ::
forall (t_agUU :: a_agTQ) (t_agUV :: a_agTQ). Sing t_agUU
-> Sing t_agUV
-> Sing (Apply (Apply (-@#@$) t_agUU) t_agUV :: a_agTQ)
(%*) ::
forall (t_agUY :: a_agTQ) (t_agUZ :: a_agTQ). Sing t_agUY
-> Sing t_agUZ
-> Sing (Apply (Apply (*@#@$) t_agUY) t_agUZ :: a_agTQ)
sNegate ::
forall (t_agV2 :: a_agTQ). Sing t_agV2
-> Sing (Apply NegateSym0 t_agV2 :: a_agTQ)
sAbs ::
forall (t_agV4 :: a_agTQ). Sing t_agV4
-> Sing (Apply AbsSym0 t_agV4 :: a_agTQ)
sSignum ::
forall (t_agV6 :: a_agTQ). Sing t_agV6
-> Sing (Apply SignumSym0 t_agV6 :: a_agTQ)
sFromInteger ::
forall (t_agV8 :: Natural). Sing t_agV8
-> Sing (Apply FromIntegerSym0 t_agV8 :: a_agTQ)
infixl 6 %+
infixl 6 %-
infixl 7 %*
default (%-) ::
forall (t_agUU :: a_agTQ)
(t_agUV :: a_agTQ). ((Apply (Apply (-@#@$) t_agUU) t_agUV :: a_agTQ)
~
Apply (Apply TFHelper_6989586621679074800Sym0 t_agUU) t_agUV) =>
Sing t_agUU
-> Sing t_agUV
-> Sing (Apply (Apply (-@#@$) t_agUU) t_agUV :: a_agTQ)
default sNegate ::
forall (t_agV2 :: a_agTQ). ((Apply NegateSym0 t_agV2 :: a_agTQ)
~ Apply Negate_6989586621679074810Sym0 t_agV2) =>
Sing t_agV2 -> Sing (Apply NegateSym0 t_agV2 :: a_agTQ)
(%-) (sX :: Sing x_agUD) (sY :: Sing y_agUE)
= (applySing ((applySing ((singFun2 @(+@#@$)) (%+))) sX))
((applySing ((singFun1 @NegateSym0) sNegate)) sY)
sNegate (sX :: Sing x_agUL)
= (applySing
((applySing ((singFun2 @(-@#@$)) (%-)))
(sFromInteger (sing :: Sing 0))))
sX
instance SNum a_agTQ =>
SingI ((+@#@$) :: (~>) a_agTQ ((~>) a_agTQ a_agTQ)) where
sing = (singFun2 @(+@#@$)) (%+)
instance (SNum a_agTQ, SingI d_agUS) =>
SingI ((+@#@$$) (d_agUS :: a_agTQ) :: (~>) a_agTQ a_agTQ) where
sing
= (singFun1 @((+@#@$$) (d_agUS :: a_agTQ))) ((%+) (sing @d_agUS))
instance SNum a_agTQ =>
SingI ((-@#@$) :: (~>) a_agTQ ((~>) a_agTQ a_agTQ)) where
sing = (singFun2 @(-@#@$)) (%-)
instance (SNum a_agTQ, SingI d_agUW) =>
SingI ((-@#@$$) (d_agUW :: a_agTQ) :: (~>) a_agTQ a_agTQ) where
sing
= (singFun1 @((-@#@$$) (d_agUW :: a_agTQ))) ((%-) (sing @d_agUW))
instance SNum a_agTQ =>
SingI ((*@#@$) :: (~>) a_agTQ ((~>) a_agTQ a_agTQ)) where
sing = (singFun2 @(*@#@$)) (%*)
instance (SNum a_agTQ, SingI d_agV0) =>
SingI ((*@#@$$) (d_agV0 :: a_agTQ) :: (~>) a_agTQ a_agTQ) where
sing
= (singFun1 @((*@#@$$) (d_agV0 :: a_agTQ))) ((%*) (sing @d_agV0))
instance SNum a_agTQ =>
SingI (NegateSym0 :: (~>) a_agTQ a_agTQ) where
sing = (singFun1 @NegateSym0) sNegate
instance SNum a_agTQ => SingI (AbsSym0 :: (~>) a_agTQ a_agTQ) where
sing = (singFun1 @AbsSym0) sAbs
instance SNum a_agTQ =>
SingI (SignumSym0 :: (~>) a_agTQ a_agTQ) where
sing = (singFun1 @SignumSym0) sSignum
instance SNum a_agTQ =>
SingI (FromIntegerSym0 :: (~>) Natural a_agTQ) where
sing = (singFun1 @FromIntegerSym0) sFromInteger
-- | The singleton for 'error'
sError :: Sing (str :: Symbol) -> a
sError sstr = error (T.unpack (fromSing sstr))
type Error :: k0 -> k
type family Error (str :: k0) :: k where {}
type ErrorSym0 :: forall (k0_agWj :: Type)
(k_agWk :: Type). (~>) k0_agWj k_agWk
data ErrorSym0 :: (~>) k0_agWj k_agWk
where
ErrorSym0KindInference :: SameKind (Apply ErrorSym0 arg_ahKF) (ErrorSym1 arg_ahKF) =>
ErrorSym0 a6989586621679078034
type instance Apply ErrorSym0 a6989586621679078034 = Error a6989586621679078034
instance SuppressUnusedWarnings ErrorSym0 where
suppressUnusedWarnings = snd (((,) ErrorSym0KindInference) ())
type ErrorSym1 :: forall (k0_agWj :: Type)
(k_agWk :: Type). k0_agWj -> k_agWk
type family ErrorSym1 (a6989586621679078034 :: k0_agWj) :: k_agWk where
ErrorSym1 a6989586621679078034 = Error a6989586621679078034
instance SingI (ErrorSym0 :: Symbol ~> a) where
sing = singFun1 sError
sConsSymbol :: Sing c -> Sing s -> Sing (ConsSymbol c s)
sConsSymbol c s =
let tc = fromSing c
ts = fromSing s
res = T.unpack $ (T.pack [tc]) <> ts
in case someSymbolVal res of
SomeSymbol (_ :: Proxy res) -> unsafeCoerce (SSym :: Sing res)
type ConsSymbolSym0 :: (~>) Char ((~>) Symbol Symbol)
data ConsSymbolSym0 :: (~>) Char ((~>) Symbol Symbol)
where
ConsSymbolSym0KindInference :: SameKind (Apply ConsSymbolSym0 arg_ahPs) (ConsSymbolSym1 arg_ahPs) =>
ConsSymbolSym0 a6989586621679078331
type instance Apply ConsSymbolSym0 a6989586621679078331 = ConsSymbolSym1 a6989586621679078331
instance SuppressUnusedWarnings ConsSymbolSym0 where
suppressUnusedWarnings = snd (((,) ConsSymbolSym0KindInference) ())
type ConsSymbolSym1 :: Char -> (~>) Symbol Symbol
data ConsSymbolSym1 (a6989586621679078331 :: Char) :: (~>) Symbol Symbol
where
ConsSymbolSym1KindInference :: SameKind (Apply (ConsSymbolSym1 a6989586621679078331) arg_ahPs) (ConsSymbolSym2 a6989586621679078331 arg_ahPs) =>
ConsSymbolSym1 a6989586621679078331 a6989586621679078332
type instance Apply (ConsSymbolSym1 a6989586621679078331) a6989586621679078332 = ConsSymbol a6989586621679078331 a6989586621679078332
instance SuppressUnusedWarnings (ConsSymbolSym1 a6989586621679078331) where
suppressUnusedWarnings = snd (((,) ConsSymbolSym1KindInference) ())
type ConsSymbolSym2 :: Char -> Symbol -> Symbol
type family ConsSymbolSym2 (a6989586621679078331 :: Char) (a6989586621679078332 :: Symbol) :: Symbol where
ConsSymbolSym2 a6989586621679078331 a6989586621679078332 = ConsSymbol a6989586621679078331 a6989586621679078332
instance SingI ConsSymbolSym0 where
sing = singFun2 sConsSymbol
instance SingI x => SingI (ConsSymbolSym1 x) where
sing = singFun1 $ sConsSymbol (sing @x)
type family Lambda_6989586621679079716_aibP f_aibL g_aibM a_6989586621679079704_aibN x_aibQ where
Lambda_6989586621679079716_aibP f_aibL g_aibM a_6989586621679079704_aibN x_aibQ = Apply f_aibL (Apply g_aibM x_aibQ)
data Lambda_6989586621679079716Sym0 f6989586621679079713
where
Lambda_6989586621679079716Sym0KindInference :: SameKind (Apply Lambda_6989586621679079716Sym0 arg_aibR) (Lambda_6989586621679079716Sym1 arg_aibR) =>
Lambda_6989586621679079716Sym0 f6989586621679079713
type instance Apply Lambda_6989586621679079716Sym0 f6989586621679079713 = Lambda_6989586621679079716Sym1 f6989586621679079713
instance SuppressUnusedWarnings Lambda_6989586621679079716Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679079716Sym0KindInference) ())
data Lambda_6989586621679079716Sym1 f6989586621679079713 g6989586621679079714
where
Lambda_6989586621679079716Sym1KindInference :: SameKind (Apply (Lambda_6989586621679079716Sym1 f6989586621679079713) arg_aibR) (Lambda_6989586621679079716Sym2 f6989586621679079713 arg_aibR) =>
Lambda_6989586621679079716Sym1 f6989586621679079713 g6989586621679079714
type instance Apply (Lambda_6989586621679079716Sym1 f6989586621679079713) g6989586621679079714 = Lambda_6989586621679079716Sym2 f6989586621679079713 g6989586621679079714
instance SuppressUnusedWarnings (Lambda_6989586621679079716Sym1 f6989586621679079713) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679079716Sym1KindInference) ())
data Lambda_6989586621679079716Sym2 f6989586621679079713 g6989586621679079714 a_69895866216790797046989586621679079715
where
Lambda_6989586621679079716Sym2KindInference :: SameKind (Apply (Lambda_6989586621679079716Sym2 f6989586621679079713 g6989586621679079714) arg_aibR) (Lambda_6989586621679079716Sym3 f6989586621679079713 g6989586621679079714 arg_aibR) =>
Lambda_6989586621679079716Sym2 f6989586621679079713 g6989586621679079714 a_69895866216790797046989586621679079715
type instance Apply (Lambda_6989586621679079716Sym2 f6989586621679079713 g6989586621679079714) a_69895866216790797046989586621679079715 = Lambda_6989586621679079716Sym3 f6989586621679079713 g6989586621679079714 a_69895866216790797046989586621679079715
instance SuppressUnusedWarnings (Lambda_6989586621679079716Sym2 f6989586621679079713 g6989586621679079714) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679079716Sym2KindInference) ())
data Lambda_6989586621679079716Sym3 f6989586621679079713 g6989586621679079714 a_69895866216790797046989586621679079715 x6989586621679079718
where
Lambda_6989586621679079716Sym3KindInference :: SameKind (Apply (Lambda_6989586621679079716Sym3 f6989586621679079713 g6989586621679079714 a_69895866216790797046989586621679079715) arg_aibR) (Lambda_6989586621679079716Sym4 f6989586621679079713 g6989586621679079714 a_69895866216790797046989586621679079715 arg_aibR) =>
Lambda_6989586621679079716Sym3 f6989586621679079713 g6989586621679079714 a_69895866216790797046989586621679079715 x6989586621679079718
type instance Apply (Lambda_6989586621679079716Sym3 f6989586621679079713 g6989586621679079714 a_69895866216790797046989586621679079715) x6989586621679079718 = Lambda_6989586621679079716_aibP f6989586621679079713 g6989586621679079714 a_69895866216790797046989586621679079715 x6989586621679079718
instance SuppressUnusedWarnings (Lambda_6989586621679079716Sym3 f6989586621679079713 g6989586621679079714 a_69895866216790797046989586621679079715) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679079716Sym3KindInference) ())
type family Lambda_6989586621679079716Sym4 f6989586621679079713 g6989586621679079714 a_69895866216790797046989586621679079715 x6989586621679079718 where
Lambda_6989586621679079716Sym4 f6989586621679079713 g6989586621679079714 a_69895866216790797046989586621679079715 x6989586621679079718 = Lambda_6989586621679079716_aibP f6989586621679079713 g6989586621679079714 a_69895866216790797046989586621679079715 x6989586621679079718
data Let6989586621679079751GoSym0 k6989586621679079748
where
Let6989586621679079751GoSym0KindInference :: SameKind (Apply Let6989586621679079751GoSym0 arg_aicp) (Let6989586621679079751GoSym1 arg_aicp) =>
Let6989586621679079751GoSym0 k6989586621679079748
type instance Apply Let6989586621679079751GoSym0 k6989586621679079748 = Let6989586621679079751GoSym1 k6989586621679079748
instance SuppressUnusedWarnings Let6989586621679079751GoSym0 where
suppressUnusedWarnings
= snd (((,) Let6989586621679079751GoSym0KindInference) ())
data Let6989586621679079751GoSym1 k6989586621679079748 z6989586621679079749
where
Let6989586621679079751GoSym1KindInference :: SameKind (Apply (Let6989586621679079751GoSym1 k6989586621679079748) arg_aicp) (Let6989586621679079751GoSym2 k6989586621679079748 arg_aicp) =>
Let6989586621679079751GoSym1 k6989586621679079748 z6989586621679079749
type instance Apply (Let6989586621679079751GoSym1 k6989586621679079748) z6989586621679079749 = Let6989586621679079751GoSym2 k6989586621679079748 z6989586621679079749
instance SuppressUnusedWarnings (Let6989586621679079751GoSym1 k6989586621679079748) where
suppressUnusedWarnings
= snd (((,) Let6989586621679079751GoSym1KindInference) ())
data Let6989586621679079751GoSym2 k6989586621679079748 z6989586621679079749 a_69895866216790797396989586621679079750
where
Let6989586621679079751GoSym2KindInference :: SameKind (Apply (Let6989586621679079751GoSym2 k6989586621679079748 z6989586621679079749) arg_aicp) (Let6989586621679079751GoSym3 k6989586621679079748 z6989586621679079749 arg_aicp) =>
Let6989586621679079751GoSym2 k6989586621679079748 z6989586621679079749 a_69895866216790797396989586621679079750
type instance Apply (Let6989586621679079751GoSym2 k6989586621679079748 z6989586621679079749) a_69895866216790797396989586621679079750 = Let6989586621679079751GoSym3 k6989586621679079748 z6989586621679079749 a_69895866216790797396989586621679079750
instance SuppressUnusedWarnings (Let6989586621679079751GoSym2 k6989586621679079748 z6989586621679079749) where
suppressUnusedWarnings
= snd (((,) Let6989586621679079751GoSym2KindInference) ())
data Let6989586621679079751GoSym3 k6989586621679079748 z6989586621679079749 a_69895866216790797396989586621679079750 a6989586621679079752
where
Let6989586621679079751GoSym3KindInference :: SameKind (Apply (Let6989586621679079751GoSym3 k6989586621679079748 z6989586621679079749 a_69895866216790797396989586621679079750) arg_aicp) (Let6989586621679079751GoSym4 k6989586621679079748 z6989586621679079749 a_69895866216790797396989586621679079750 arg_aicp) =>
Let6989586621679079751GoSym3 k6989586621679079748 z6989586621679079749 a_69895866216790797396989586621679079750 a6989586621679079752
type instance Apply (Let6989586621679079751GoSym3 k6989586621679079748 z6989586621679079749 a_69895866216790797396989586621679079750) a6989586621679079752 = Let6989586621679079751Go k6989586621679079748 z6989586621679079749 a_69895866216790797396989586621679079750 a6989586621679079752
instance SuppressUnusedWarnings (Let6989586621679079751GoSym3 k6989586621679079748 z6989586621679079749 a_69895866216790797396989586621679079750) where
suppressUnusedWarnings
= snd (((,) Let6989586621679079751GoSym3KindInference) ())
type family Let6989586621679079751GoSym4 k6989586621679079748 z6989586621679079749 a_69895866216790797396989586621679079750 a6989586621679079752 where
Let6989586621679079751GoSym4 k6989586621679079748 z6989586621679079749 a_69895866216790797396989586621679079750 a6989586621679079752 = Let6989586621679079751Go k6989586621679079748 z6989586621679079749 a_69895866216790797396989586621679079750 a6989586621679079752
type family Let6989586621679079751Go k_aick z_aicl a_6989586621679079739_aicm a_aico where
Let6989586621679079751Go k_aick z_aicl a_6989586621679079739_aicm '[] = z_aicl
Let6989586621679079751Go k_aick z_aicl a_6989586621679079739_aicm ('(:) y_aicq ys_aicr) = Apply (Apply k_aick y_aicq) (Apply (Let6989586621679079751GoSym3 k_aick z_aicl a_6989586621679079739_aicm) ys_aicr)
type NotElemSym0 :: (~>) a_ai8g ((~>) [a_ai8g] Bool)
data NotElemSym0 :: (~>) a_ai8g ((~>) [a_ai8g] Bool)
where
NotElemSym0KindInference :: SameKind (Apply NotElemSym0 arg_aib7) (NotElemSym1 arg_aib7) =>
NotElemSym0 a6989586621679079674
type instance Apply NotElemSym0 a6989586621679079674 = NotElemSym1 a6989586621679079674
instance SuppressUnusedWarnings NotElemSym0 where
suppressUnusedWarnings = snd (((,) NotElemSym0KindInference) ())
infix 4 `NotElemSym0`
type NotElemSym1 :: a_ai8g -> (~>) [a_ai8g] Bool
data NotElemSym1 (a6989586621679079674 :: a_ai8g) :: (~>) [a_ai8g] Bool
where
NotElemSym1KindInference :: SameKind (Apply (NotElemSym1 a6989586621679079674) arg_aib7) (NotElemSym2 a6989586621679079674 arg_aib7) =>
NotElemSym1 a6989586621679079674 a6989586621679079675
type instance Apply (NotElemSym1 a6989586621679079674) a6989586621679079675 = NotElem a6989586621679079674 a6989586621679079675
instance SuppressUnusedWarnings (NotElemSym1 a6989586621679079674) where
suppressUnusedWarnings = snd (((,) NotElemSym1KindInference) ())
infix 4 `NotElemSym1`
type NotElemSym2 :: a_ai8g -> [a_ai8g] -> Bool
type family NotElemSym2 (a6989586621679079674 :: a_ai8g) (a6989586621679079675 :: [a_ai8g]) :: Bool where
NotElemSym2 a6989586621679079674 a6989586621679079675 = NotElem a6989586621679079674 a6989586621679079675
infix 4 `NotElemSym2`
type ElemSym0 :: (~>) a_ai8h ((~>) [a_ai8h] Bool)
data ElemSym0 :: (~>) a_ai8h ((~>) [a_ai8h] Bool)
where
ElemSym0KindInference :: SameKind (Apply ElemSym0 arg_aibf) (ElemSym1 arg_aibf) =>
ElemSym0 a6989586621679079682
type instance Apply ElemSym0 a6989586621679079682 = ElemSym1 a6989586621679079682
instance SuppressUnusedWarnings ElemSym0 where
suppressUnusedWarnings = snd (((,) ElemSym0KindInference) ())
infix 4 `ElemSym0`
type ElemSym1 :: a_ai8h -> (~>) [a_ai8h] Bool
data ElemSym1 (a6989586621679079682 :: a_ai8h) :: (~>) [a_ai8h] Bool
where
ElemSym1KindInference :: SameKind (Apply (ElemSym1 a6989586621679079682) arg_aibf) (ElemSym2 a6989586621679079682 arg_aibf) =>
ElemSym1 a6989586621679079682 a6989586621679079683
type instance Apply (ElemSym1 a6989586621679079682) a6989586621679079683 = Elem a6989586621679079682 a6989586621679079683
instance SuppressUnusedWarnings (ElemSym1 a6989586621679079682) where
suppressUnusedWarnings = snd (((,) ElemSym1KindInference) ())
infix 4 `ElemSym1`
type ElemSym2 :: a_ai8h -> [a_ai8h] -> Bool
type family ElemSym2 (a6989586621679079682 :: a_ai8h) (a6989586621679079683 :: [a_ai8h]) :: Bool where
ElemSym2 a6989586621679079682 a6989586621679079683 = Elem a6989586621679079682 a6989586621679079683
infix 4 `ElemSym2`
type ($@#@$) :: (~>) ((~>) a_ai8i b_ai8j) ((~>) a_ai8i b_ai8j)
data ($@#@$) :: (~>) ((~>) a_ai8i b_ai8j) ((~>) a_ai8i b_ai8j)
where
(:$@#@$###) :: SameKind (Apply ($@#@$) arg_aibn) (($@#@$$) arg_aibn) =>
($@#@$) a6989586621679079690
type instance Apply ($@#@$) a6989586621679079690 = ($@#@$$) a6989586621679079690
instance SuppressUnusedWarnings ($@#@$) where
suppressUnusedWarnings = snd (((,) (:$@#@$###)) ())
infixr 0 $@#@$
type ($@#@$$) :: (~>) a_ai8i b_ai8j -> (~>) a_ai8i b_ai8j
data ($@#@$$) (a6989586621679079690 :: (~>) a_ai8i b_ai8j) :: (~>) a_ai8i b_ai8j
where
(:$@#@$$###) :: SameKind (Apply (($@#@$$) a6989586621679079690) arg_aibn) (($@#@$$$) a6989586621679079690 arg_aibn) =>
($@#@$$) a6989586621679079690 a6989586621679079691
type instance Apply (($@#@$$) a6989586621679079690) a6989586621679079691 = ($) a6989586621679079690 a6989586621679079691
instance SuppressUnusedWarnings (($@#@$$) a6989586621679079690) where
suppressUnusedWarnings = snd (((,) (:$@#@$$###)) ())
infixr 0 $@#@$$
type ($@#@$$$) :: (~>) a_ai8i b_ai8j -> a_ai8i -> b_ai8j
type family ($@#@$$$) (a6989586621679079690 :: (~>) a_ai8i b_ai8j) (a6989586621679079691 :: a_ai8i) :: b_ai8j where
($@#@$$$) a6989586621679079690 a6989586621679079691 = ($) a6989586621679079690 a6989586621679079691
infixr 0 $@#@$$$
type FlipSym0 :: (~>) ((~>) a_ai8k ((~>) b_ai8l c_ai8m)) ((~>) b_ai8l ((~>) a_ai8k c_ai8m))
data FlipSym0 :: (~>) ((~>) a_ai8k ((~>) b_ai8l c_ai8m)) ((~>) b_ai8l ((~>) a_ai8k c_ai8m))
where
FlipSym0KindInference :: SameKind (Apply FlipSym0 arg_aibv) (FlipSym1 arg_aibv) =>
FlipSym0 a6989586621679079698
type instance Apply FlipSym0 a6989586621679079698 = FlipSym1 a6989586621679079698
instance SuppressUnusedWarnings FlipSym0 where
suppressUnusedWarnings = snd (((,) FlipSym0KindInference) ())
type FlipSym1 :: (~>) a_ai8k ((~>) b_ai8l c_ai8m)
-> (~>) b_ai8l ((~>) a_ai8k c_ai8m)
data FlipSym1 (a6989586621679079698 :: (~>) a_ai8k ((~>) b_ai8l c_ai8m)) :: (~>) b_ai8l ((~>) a_ai8k c_ai8m)
where
FlipSym1KindInference :: SameKind (Apply (FlipSym1 a6989586621679079698) arg_aibv) (FlipSym2 a6989586621679079698 arg_aibv) =>
FlipSym1 a6989586621679079698 a6989586621679079699
type instance Apply (FlipSym1 a6989586621679079698) a6989586621679079699 = FlipSym2 a6989586621679079698 a6989586621679079699
instance SuppressUnusedWarnings (FlipSym1 a6989586621679079698) where
suppressUnusedWarnings = snd (((,) FlipSym1KindInference) ())
type FlipSym2 :: (~>) a_ai8k ((~>) b_ai8l c_ai8m)
-> b_ai8l -> (~>) a_ai8k c_ai8m
data FlipSym2 (a6989586621679079698 :: (~>) a_ai8k ((~>) b_ai8l c_ai8m)) (a6989586621679079699 :: b_ai8l) :: (~>) a_ai8k c_ai8m
where
FlipSym2KindInference :: SameKind (Apply (FlipSym2 a6989586621679079698 a6989586621679079699) arg_aibv) (FlipSym3 a6989586621679079698 a6989586621679079699 arg_aibv) =>
FlipSym2 a6989586621679079698 a6989586621679079699 a6989586621679079700
type instance Apply (FlipSym2 a6989586621679079698 a6989586621679079699) a6989586621679079700 = Flip a6989586621679079698 a6989586621679079699 a6989586621679079700
instance SuppressUnusedWarnings (FlipSym2 a6989586621679079698 a6989586621679079699) where
suppressUnusedWarnings = snd (((,) FlipSym2KindInference) ())
type FlipSym3 :: (~>) a_ai8k ((~>) b_ai8l c_ai8m)
-> b_ai8l -> a_ai8k -> c_ai8m
type family FlipSym3 (a6989586621679079698 :: (~>) a_ai8k ((~>) b_ai8l c_ai8m)) (a6989586621679079699 :: b_ai8l) (a6989586621679079700 :: a_ai8k) :: c_ai8m where
FlipSym3 a6989586621679079698 a6989586621679079699 a6989586621679079700 = Flip a6989586621679079698 a6989586621679079699 a6989586621679079700
type (.@#@$) :: (~>) ((~>) b_ai8n c_ai8o) ((~>) ((~>) a_ai8p b_ai8n) ((~>) a_ai8p c_ai8o))
data (.@#@$) :: (~>) ((~>) b_ai8n c_ai8o) ((~>) ((~>) a_ai8p b_ai8n) ((~>) a_ai8p c_ai8o))
where
(:.@#@$###) :: SameKind (Apply (.@#@$) arg_aibH) ((.@#@$$) arg_aibH) =>
(.@#@$) a6989586621679079710
type instance Apply (.@#@$) a6989586621679079710 = (.@#@$$) a6989586621679079710
instance SuppressUnusedWarnings (.@#@$) where
suppressUnusedWarnings = snd (((,) (:.@#@$###)) ())
infixr 9 .@#@$
type (.@#@$$) :: (~>) b_ai8n c_ai8o
-> (~>) ((~>) a_ai8p b_ai8n) ((~>) a_ai8p c_ai8o)
data (.@#@$$) (a6989586621679079710 :: (~>) b_ai8n c_ai8o) :: (~>) ((~>) a_ai8p b_ai8n) ((~>) a_ai8p c_ai8o)
where
(:.@#@$$###) :: SameKind (Apply ((.@#@$$) a6989586621679079710) arg_aibH) ((.@#@$$$) a6989586621679079710 arg_aibH) =>
(.@#@$$) a6989586621679079710 a6989586621679079711
type instance Apply ((.@#@$$) a6989586621679079710) a6989586621679079711 = (.@#@$$$) a6989586621679079710 a6989586621679079711
instance SuppressUnusedWarnings ((.@#@$$) a6989586621679079710) where
suppressUnusedWarnings = snd (((,) (:.@#@$$###)) ())
infixr 9 .@#@$$
type (.@#@$$$) :: (~>) b_ai8n c_ai8o
-> (~>) a_ai8p b_ai8n -> (~>) a_ai8p c_ai8o
data (.@#@$$$) (a6989586621679079710 :: (~>) b_ai8n c_ai8o) (a6989586621679079711 :: (~>) a_ai8p b_ai8n) :: (~>) a_ai8p c_ai8o
where
(:.@#@$$$###) :: SameKind (Apply ((.@#@$$$) a6989586621679079710 a6989586621679079711) arg_aibH) ((.@#@$$$$) a6989586621679079710 a6989586621679079711 arg_aibH) =>
(.@#@$$$) a6989586621679079710 a6989586621679079711 a6989586621679079712
type instance Apply ((.@#@$$$) a6989586621679079710 a6989586621679079711) a6989586621679079712 = (.) a6989586621679079710 a6989586621679079711 a6989586621679079712
instance SuppressUnusedWarnings ((.@#@$$$) a6989586621679079710 a6989586621679079711) where
suppressUnusedWarnings = snd (((,) (:.@#@$$$###)) ())
infixr 9 .@#@$$$
type (.@#@$$$$) :: (~>) b_ai8n c_ai8o
-> (~>) a_ai8p b_ai8n -> a_ai8p -> c_ai8o
type family (.@#@$$$$) (a6989586621679079710 :: (~>) b_ai8n c_ai8o) (a6989586621679079711 :: (~>) a_ai8p b_ai8n) (a6989586621679079712 :: a_ai8p) :: c_ai8o where
(.@#@$$$$) a6989586621679079710 a6989586621679079711 a6989586621679079712 = (.) a6989586621679079710 a6989586621679079711 a6989586621679079712
infixr 9 .@#@$$$$
type ConstSym0 :: (~>) a_ai8q ((~>) b_ai8r a_ai8q)
data ConstSym0 :: (~>) a_ai8q ((~>) b_ai8r a_ai8q)
where
ConstSym0KindInference :: SameKind (Apply ConstSym0 arg_aibU) (ConstSym1 arg_aibU) =>
ConstSym0 a6989586621679079723
type instance Apply ConstSym0 a6989586621679079723 = ConstSym1 a6989586621679079723
instance SuppressUnusedWarnings ConstSym0 where
suppressUnusedWarnings = snd (((,) ConstSym0KindInference) ())
type ConstSym1 :: a_ai8q -> (~>) b_ai8r a_ai8q
data ConstSym1 (a6989586621679079723 :: a_ai8q) :: (~>) b_ai8r a_ai8q
where
ConstSym1KindInference :: SameKind (Apply (ConstSym1 a6989586621679079723) arg_aibU) (ConstSym2 a6989586621679079723 arg_aibU) =>
ConstSym1 a6989586621679079723 a6989586621679079724
type instance Apply (ConstSym1 a6989586621679079723) a6989586621679079724 = Const a6989586621679079723 a6989586621679079724
instance SuppressUnusedWarnings (ConstSym1 a6989586621679079723) where
suppressUnusedWarnings = snd (((,) ConstSym1KindInference) ())
type ConstSym2 :: a_ai8q -> b_ai8r -> a_ai8q
type family ConstSym2 (a6989586621679079723 :: a_ai8q) (a6989586621679079724 :: b_ai8r) :: a_ai8q where
ConstSym2 a6989586621679079723 a6989586621679079724 = Const a6989586621679079723 a6989586621679079724
type IdSym0 :: (~>) a_ai8s a_ai8s
data IdSym0 :: (~>) a_ai8s a_ai8s
where
IdSym0KindInference :: SameKind (Apply IdSym0 arg_aibZ) (IdSym1 arg_aibZ) =>
IdSym0 a6989586621679079728
type instance Apply IdSym0 a6989586621679079728 = Id a6989586621679079728
instance SuppressUnusedWarnings IdSym0 where
suppressUnusedWarnings = snd (((,) IdSym0KindInference) ())
type IdSym1 :: a_ai8s -> a_ai8s
type family IdSym1 (a6989586621679079728 :: a_ai8s) :: a_ai8s where
IdSym1 a6989586621679079728 = Id a6989586621679079728
type (++@#@$) :: (~>) [a_ai8t] ((~>) [a_ai8t] [a_ai8t])
data (++@#@$) :: (~>) [a_ai8t] ((~>) [a_ai8t] [a_ai8t])
where
(:++@#@$###) :: SameKind (Apply (++@#@$) arg_aic4) ((++@#@$$) arg_aic4) =>
(++@#@$) a6989586621679079733
type instance Apply (++@#@$) a6989586621679079733 = (++@#@$$) a6989586621679079733
instance SuppressUnusedWarnings (++@#@$) where
suppressUnusedWarnings = snd (((,) (:++@#@$###)) ())
infixr 5 ++@#@$
type (++@#@$$) :: [a_ai8t] -> (~>) [a_ai8t] [a_ai8t]
data (++@#@$$) (a6989586621679079733 :: [a_ai8t]) :: (~>) [a_ai8t] [a_ai8t]
where
(:++@#@$$###) :: SameKind (Apply ((++@#@$$) a6989586621679079733) arg_aic4) ((++@#@$$$) a6989586621679079733 arg_aic4) =>
(++@#@$$) a6989586621679079733 a6989586621679079734
type instance Apply ((++@#@$$) a6989586621679079733) a6989586621679079734 = (++) a6989586621679079733 a6989586621679079734
instance SuppressUnusedWarnings ((++@#@$$) a6989586621679079733) where
suppressUnusedWarnings = snd (((,) (:++@#@$$###)) ())
infixr 5 ++@#@$$
type (++@#@$$$) :: [a_ai8t] -> [a_ai8t] -> [a_ai8t]
type family (++@#@$$$) (a6989586621679079733 :: [a_ai8t]) (a6989586621679079734 :: [a_ai8t]) :: [a_ai8t] where
(++@#@$$$) a6989586621679079733 a6989586621679079734 = (++) a6989586621679079733 a6989586621679079734
infixr 5 ++@#@$$$
type FoldrSym0 :: (~>) ((~>) a_ai8u ((~>) b_ai8v b_ai8v)) ((~>) b_ai8v ((~>) [a_ai8u] b_ai8v))
data FoldrSym0 :: (~>) ((~>) a_ai8u ((~>) b_ai8v b_ai8v)) ((~>) b_ai8v ((~>) [a_ai8u] b_ai8v))
where
FoldrSym0KindInference :: SameKind (Apply FoldrSym0 arg_aicg) (FoldrSym1 arg_aicg) =>
FoldrSym0 a6989586621679079745
type instance Apply FoldrSym0 a6989586621679079745 = FoldrSym1 a6989586621679079745
instance SuppressUnusedWarnings FoldrSym0 where
suppressUnusedWarnings = snd (((,) FoldrSym0KindInference) ())
type FoldrSym1 :: (~>) a_ai8u ((~>) b_ai8v b_ai8v)
-> (~>) b_ai8v ((~>) [a_ai8u] b_ai8v)
data FoldrSym1 (a6989586621679079745 :: (~>) a_ai8u ((~>) b_ai8v b_ai8v)) :: (~>) b_ai8v ((~>) [a_ai8u] b_ai8v)
where
FoldrSym1KindInference :: SameKind (Apply (FoldrSym1 a6989586621679079745) arg_aicg) (FoldrSym2 a6989586621679079745 arg_aicg) =>
FoldrSym1 a6989586621679079745 a6989586621679079746
type instance Apply (FoldrSym1 a6989586621679079745) a6989586621679079746 = FoldrSym2 a6989586621679079745 a6989586621679079746
instance SuppressUnusedWarnings (FoldrSym1 a6989586621679079745) where
suppressUnusedWarnings = snd (((,) FoldrSym1KindInference) ())
type FoldrSym2 :: (~>) a_ai8u ((~>) b_ai8v b_ai8v)
-> b_ai8v -> (~>) [a_ai8u] b_ai8v
data FoldrSym2 (a6989586621679079745 :: (~>) a_ai8u ((~>) b_ai8v b_ai8v)) (a6989586621679079746 :: b_ai8v) :: (~>) [a_ai8u] b_ai8v
where
FoldrSym2KindInference :: SameKind (Apply (FoldrSym2 a6989586621679079745 a6989586621679079746) arg_aicg) (FoldrSym3 a6989586621679079745 a6989586621679079746 arg_aicg) =>
FoldrSym2 a6989586621679079745 a6989586621679079746 a6989586621679079747
type instance Apply (FoldrSym2 a6989586621679079745 a6989586621679079746) a6989586621679079747 = Foldr a6989586621679079745 a6989586621679079746 a6989586621679079747
instance SuppressUnusedWarnings (FoldrSym2 a6989586621679079745 a6989586621679079746) where
suppressUnusedWarnings = snd (((,) FoldrSym2KindInference) ())
type FoldrSym3 :: (~>) a_ai8u ((~>) b_ai8v b_ai8v)
-> b_ai8v -> [a_ai8u] -> b_ai8v
type family FoldrSym3 (a6989586621679079745 :: (~>) a_ai8u ((~>) b_ai8v b_ai8v)) (a6989586621679079746 :: b_ai8v) (a6989586621679079747 :: [a_ai8u]) :: b_ai8v where
FoldrSym3 a6989586621679079745 a6989586621679079746 a6989586621679079747 = Foldr a6989586621679079745 a6989586621679079746 a6989586621679079747
type TailSym0 :: (~>) [a_ai8w] [a_ai8w]
data TailSym0 :: (~>) [a_ai8w] [a_ai8w]
where
TailSym0KindInference :: SameKind (Apply TailSym0 arg_aict) (TailSym1 arg_aict) =>
TailSym0 a6989586621679079758
type instance Apply TailSym0 a6989586621679079758 = Tail a6989586621679079758
instance SuppressUnusedWarnings TailSym0 where
suppressUnusedWarnings = snd (((,) TailSym0KindInference) ())
type TailSym1 :: [a_ai8w] -> [a_ai8w]
type family TailSym1 (a6989586621679079758 :: [a_ai8w]) :: [a_ai8w] where
TailSym1 a6989586621679079758 = Tail a6989586621679079758
type LastSym0 :: (~>) [a_ai8x] a_ai8x
data LastSym0 :: (~>) [a_ai8x] a_ai8x
where
LastSym0KindInference :: SameKind (Apply LastSym0 arg_aicx) (LastSym1 arg_aicx) =>
LastSym0 a6989586621679079762
type instance Apply LastSym0 a6989586621679079762 = Last a6989586621679079762
instance SuppressUnusedWarnings LastSym0 where
suppressUnusedWarnings = snd (((,) LastSym0KindInference) ())
type LastSym1 :: [a_ai8x] -> a_ai8x
type family LastSym1 (a6989586621679079762 :: [a_ai8x]) :: a_ai8x where
LastSym1 a6989586621679079762 = Last a6989586621679079762
type HeadSym0 :: (~>) [a_ai8y] a_ai8y
data HeadSym0 :: (~>) [a_ai8y] a_ai8y
where
HeadSym0KindInference :: SameKind (Apply HeadSym0 arg_aicD) (HeadSym1 arg_aicD) =>
HeadSym0 a6989586621679079768
type instance Apply HeadSym0 a6989586621679079768 = Head a6989586621679079768
instance SuppressUnusedWarnings HeadSym0 where
suppressUnusedWarnings = snd (((,) HeadSym0KindInference) ())
type HeadSym1 :: [a_ai8y] -> a_ai8y
type family HeadSym1 (a6989586621679079768 :: [a_ai8y]) :: a_ai8y where
HeadSym1 a6989586621679079768 = Head a6989586621679079768
type NotElem :: a_ai8g -> [a_ai8g] -> Bool
type family NotElem (a_aib5 :: a_ai8g) (a_aib6 :: [a_ai8g]) :: Bool where
NotElem _ '[] = TrueSym0
NotElem x_aiba ('(:) y_aibb ys_aibc) = Apply (Apply (&&@#@$) (Apply (Apply (/=@#@$) x_aiba) y_aibb)) (Apply (Apply NotElemSym0 x_aiba) ys_aibc)
type Elem :: a_ai8h -> [a_ai8h] -> Bool
type family Elem (a_aibd :: a_ai8h) (a_aibe :: [a_ai8h]) :: Bool where
Elem _ '[] = FalseSym0
Elem x_aibi ('(:) y_aibj ys_aibk) = Apply (Apply (||@#@$) (Apply (Apply (==@#@$) x_aibi) y_aibj)) (Apply (Apply ElemSym0 x_aibi) ys_aibk)
type ($) :: (~>) a_ai8i b_ai8j -> a_ai8i -> b_ai8j
type family ($) (a_aibl :: (~>) a_ai8i b_ai8j) (a_aibm :: a_ai8i) :: b_ai8j where
($) f_aibq x_aibr = Apply f_aibq x_aibr
type Flip :: (~>) a_ai8k ((~>) b_ai8l c_ai8m)
-> b_ai8l -> a_ai8k -> c_ai8m
type family Flip (a_aibs :: (~>) a_ai8k ((~>) b_ai8l c_ai8m)) (a_aibt :: b_ai8l) (a_aibu :: a_ai8k) :: c_ai8m where
Flip f_aibz x_aibA y_aibB = Apply (Apply f_aibz y_aibB) x_aibA
type (.) :: (~>) b_ai8n c_ai8o
-> (~>) a_ai8p b_ai8n -> a_ai8p -> c_ai8o
type family (.) (a_aibE :: (~>) b_ai8n c_ai8o) (a_aibF :: (~>) a_ai8p b_ai8n) (a_aibG :: a_ai8p) :: c_ai8o where
(.) f_aibL g_aibM a_6989586621679079704_aibN = Apply (Apply (Apply (Apply Lambda_6989586621679079716Sym0 f_aibL) g_aibM) a_6989586621679079704_aibN) a_6989586621679079704_aibN
type Const :: a_ai8q -> b_ai8r -> a_ai8q
type family Const (a_aibS :: a_ai8q) (a_aibT :: b_ai8r) :: a_ai8q where
Const x_aibX _ = x_aibX
type Id :: a_ai8s -> a_ai8s
type family Id (a_aibY :: a_ai8s) :: a_ai8s where
Id x_aic1 = x_aic1
type (++) :: [a_ai8t] -> [a_ai8t] -> [a_ai8t]
type family (++) (a_aic2 :: [a_ai8t]) (a_aic3 :: [a_ai8t]) :: [a_ai8t] where
(++) '[] ys_aic7 = ys_aic7
(++) ('(:) x_aic8 xs_aic9) ys_aica = Apply (Apply (:@#@$) x_aic8) (Apply (Apply (++@#@$) xs_aic9) ys_aica)
type Foldr :: (~>) a_ai8u ((~>) b_ai8v b_ai8v)
-> b_ai8v -> [a_ai8u] -> b_ai8v
type family Foldr (a_aicd :: (~>) a_ai8u ((~>) b_ai8v b_ai8v)) (a_aice :: b_ai8v) (a_aicf :: [a_ai8u]) :: b_ai8v where
Foldr k_aick z_aicl a_6989586621679079739_aicm = Apply (Let6989586621679079751GoSym3 k_aick z_aicl a_6989586621679079739_aicm) a_6989586621679079739_aicm
type Tail :: [a_ai8w] -> [a_ai8w]
type family Tail (a_aics :: [a_ai8w]) :: [a_ai8w] where
Tail ('(:) _ t_aicv) = t_aicv
Tail '[] = Apply ErrorSym0 "Data.Singletons.List.tail: empty list"
type Last :: [a_ai8x] -> a_ai8x
type family Last (a_aicw :: [a_ai8x]) :: a_ai8x where
Last '[] = Apply ErrorSym0 "Data.Singletons.List.last: empty list"
Last '[x_aicz] = x_aicz
Last ('(:) _ ('(:) x_aicA xs_aicB)) = Apply LastSym0 (Apply (Apply (:@#@$) x_aicA) xs_aicB)
type Head :: [a_ai8y] -> a_ai8y
type family Head (a_aicC :: [a_ai8y]) :: a_ai8y where
Head ('(:) a_aicF _) = a_aicF
Head '[] = Apply ErrorSym0 "Data.Singletons.List.head: empty list"
infix 4 `NotElem`
infix 4 `Elem`
infixr 0 $
infixr 9 .
infixr 5 ++
infix 4 `sNotElem`
infix 4 `sElem`
infixr 0 %$
infixr 9 %.
infixr 5 %++
sNotElem ::
forall a_ai8g
(t_aicG :: a_ai8g)
(t_aicH :: [a_ai8g]). SEq a_ai8g =>
Sing t_aicG
-> Sing t_aicH
-> Sing (Apply (Apply NotElemSym0 t_aicG) t_aicH :: Bool)
sElem ::
forall a_ai8h
(t_aicK :: a_ai8h)
(t_aicL :: [a_ai8h]). SEq a_ai8h =>
Sing t_aicK
-> Sing t_aicL
-> Sing (Apply (Apply ElemSym0 t_aicK) t_aicL :: Bool)
(%$) ::
forall a_ai8i
b_ai8j
(t_aicO :: (~>) a_ai8i b_ai8j)
(t_aicP :: a_ai8i). Sing t_aicO
-> Sing t_aicP
-> Sing (Apply (Apply ($@#@$) t_aicO) t_aicP :: b_ai8j)
sFlip ::
forall a_ai8k
b_ai8l
c_ai8m
(t_aicS :: (~>) a_ai8k ((~>) b_ai8l c_ai8m))
(t_aicT :: b_ai8l)
(t_aicU :: a_ai8k). Sing t_aicS
-> Sing t_aicT
-> Sing t_aicU
-> Sing (Apply (Apply (Apply FlipSym0 t_aicS) t_aicT) t_aicU :: c_ai8m)
(%.) ::
forall b_ai8n
c_ai8o
a_ai8p
(t_aicY :: (~>) b_ai8n c_ai8o)
(t_aicZ :: (~>) a_ai8p b_ai8n)
(t_aid0 :: a_ai8p). Sing t_aicY
-> Sing t_aicZ
-> Sing t_aid0
-> Sing (Apply (Apply (Apply (.@#@$) t_aicY) t_aicZ) t_aid0 :: c_ai8o)
sConst ::
forall a_ai8q
b_ai8r
(t_aid4 :: a_ai8q)
(t_aid5 :: b_ai8r). Sing t_aid4
-> Sing t_aid5
-> Sing (Apply (Apply ConstSym0 t_aid4) t_aid5 :: a_ai8q)
sId ::
forall a_ai8s (t_aid8 :: a_ai8s). Sing t_aid8
-> Sing (Apply IdSym0 t_aid8 :: a_ai8s)
(%++) ::
forall a_ai8t
(t_aida :: [a_ai8t])
(t_aidb :: [a_ai8t]). Sing t_aida
-> Sing t_aidb
-> Sing (Apply (Apply (++@#@$) t_aida) t_aidb :: [a_ai8t])
sFoldr ::
forall a_ai8u
b_ai8v
(t_aide :: (~>) a_ai8u ((~>) b_ai8v b_ai8v))
(t_aidf :: b_ai8v)
(t_aidg :: [a_ai8u]). Sing t_aide
-> Sing t_aidf
-> Sing t_aidg
-> Sing (Apply (Apply (Apply FoldrSym0 t_aide) t_aidf) t_aidg :: b_ai8v)
sTail ::
forall a_ai8w (t_aidk :: [a_ai8w]). Sing t_aidk
-> Sing (Apply TailSym0 t_aidk :: [a_ai8w])
sLast ::
forall a_ai8x (t_aidm :: [a_ai8x]). Sing t_aidm
-> Sing (Apply LastSym0 t_aidm :: a_ai8x)
sHead ::
forall a_ai8y (t_aido :: [a_ai8y]). Sing t_aido
-> Sing (Apply HeadSym0 t_aido :: a_ai8y)
sNotElem _ SNil = STrue
sNotElem
(sX :: Sing x_aiba)
(SCons (sY :: Sing y_aibb) (sYs :: Sing ys_aibc))
= (applySing
((applySing ((singFun2 @(&&@#@$)) (%&&)))
((applySing ((applySing ((singFun2 @(/=@#@$)) (%/=))) sX)) sY)))
((applySing ((applySing ((singFun2 @NotElemSym0) sNotElem)) sX))
sYs)
sElem _ SNil = SFalse
sElem
(sX :: Sing x_aibi)
(SCons (sY :: Sing y_aibj) (sYs :: Sing ys_aibk))
= (applySing
((applySing ((singFun2 @(||@#@$)) (%||)))
((applySing ((applySing ((singFun2 @(==@#@$)) (%==))) sX)) sY)))
((applySing ((applySing ((singFun2 @ElemSym0) sElem)) sX)) sYs)
(%$) (sF :: Sing f_aibq) (sX :: Sing x_aibr) = (applySing sF) sX
sFlip (sF :: Sing f_aibz) (sX :: Sing x_aibA) (sY :: Sing y_aibB)
= (applySing ((applySing sF) sY)) sX
(%.)
(sF :: Sing f_aibL)
(sG :: Sing g_aibM)
(sA_6989586621679079704 :: Sing a_6989586621679079704_aibN)
= (applySing
((singFun1
@(Apply (Apply (Apply Lambda_6989586621679079716Sym0 f_aibL) g_aibM) a_6989586621679079704_aibN))
(\ sX
-> case sX of {
(_ :: Sing x_aibQ) -> (applySing sF) ((applySing sG) sX) })))
sA_6989586621679079704
sConst (sX :: Sing x_aibX) _ = sX
sId (sX :: Sing x_aic1) = sX
(%++) SNil (sYs :: Sing ys_aic7) = sYs
(%++)
(SCons (sX :: Sing x_aic8) (sXs :: Sing xs_aic9))
(sYs :: Sing ys_aica)
= (applySing ((applySing ((singFun2 @(:@#@$)) SCons)) sX))
((applySing ((applySing ((singFun2 @(++@#@$)) (%++))) sXs)) sYs)
sFoldr
(sK :: Sing k_aick)
(sZ :: Sing z_aicl)
(sA_6989586621679079739 :: Sing a_6989586621679079739_aicm)
= (applySing
(let
sGo ::
forall arg_aidt. Sing arg_aidt
-> Sing (Apply (Let6989586621679079751GoSym3 k_aick z_aicl a_6989586621679079739_aicm) arg_aidt)
sGo SNil = sZ
sGo (SCons (sY :: Sing y_aicq) (sYs :: Sing ys_aicr))
= (applySing ((applySing sK) sY))
((applySing
((singFun1
@(Let6989586621679079751GoSym3 k_aick z_aicl a_6989586621679079739_aicm))
sGo))
sYs)
in
(singFun1
@(Let6989586621679079751GoSym3 k_aick z_aicl a_6989586621679079739_aicm))
sGo))
sA_6989586621679079739
sTail (SCons _ (sT :: Sing t_aicv)) = sT
sTail SNil
= sError (sing :: Sing "Data.Singletons.List.tail: empty list")
sLast SNil
= sError (sing :: Sing "Data.Singletons.List.last: empty list")
sLast (SCons (sX :: Sing x_aicz) SNil) = sX
sLast (SCons _ (SCons (sX :: Sing x_aicA) (sXs :: Sing xs_aicB)))
= (applySing ((singFun1 @LastSym0) sLast))
((applySing ((applySing ((singFun2 @(:@#@$)) SCons)) sX)) sXs)
sHead (SCons (sA :: Sing a_aicF) _) = sA
sHead SNil
= sError (sing :: Sing "Data.Singletons.List.head: empty list")
instance SEq a_ai8g =>
SingI (NotElemSym0 :: (~>) a_ai8g ((~>) [a_ai8g] Bool)) where
sing = (singFun2 @NotElemSym0) sNotElem
instance (SEq a_ai8g, SingI d_aicI) =>
SingI (NotElemSym1 (d_aicI :: a_ai8g) :: (~>) [a_ai8g] Bool) where
sing
= (singFun1 @(NotElemSym1 (d_aicI :: a_ai8g)))
(sNotElem (sing @d_aicI))
instance SEq a_ai8h =>
SingI (ElemSym0 :: (~>) a_ai8h ((~>) [a_ai8h] Bool)) where
sing = (singFun2 @ElemSym0) sElem
instance (SEq a_ai8h, SingI d_aicM) =>
SingI (ElemSym1 (d_aicM :: a_ai8h) :: (~>) [a_ai8h] Bool) where
sing
= (singFun1 @(ElemSym1 (d_aicM :: a_ai8h))) (sElem (sing @d_aicM))
instance SingI (($@#@$) :: (~>) ((~>) a_ai8i b_ai8j) ((~>) a_ai8i b_ai8j)) where
sing = (singFun2 @($@#@$)) (%$)
instance SingI d_aicQ =>
SingI (($@#@$$) (d_aicQ :: (~>) a_ai8i b_ai8j) :: (~>) a_ai8i b_ai8j) where
sing
= (singFun1 @(($@#@$$) (d_aicQ :: (~>) a_ai8i b_ai8j)))
((%$) (sing @d_aicQ))
instance SingI (FlipSym0 :: (~>) ((~>) a_ai8k ((~>) b_ai8l c_ai8m)) ((~>) b_ai8l ((~>) a_ai8k c_ai8m))) where
sing = (singFun3 @FlipSym0) sFlip
instance SingI d_aicV =>
SingI (FlipSym1 (d_aicV :: (~>) a_ai8k ((~>) b_ai8l c_ai8m)) :: (~>) b_ai8l ((~>) a_ai8k c_ai8m)) where
sing
= (singFun2
@(FlipSym1 (d_aicV :: (~>) a_ai8k ((~>) b_ai8l c_ai8m))))
(sFlip (sing @d_aicV))
instance (SingI d_aicV, SingI d_aicW) =>
SingI (FlipSym2 (d_aicV :: (~>) a_ai8k ((~>) b_ai8l c_ai8m)) (d_aicW :: b_ai8l) :: (~>) a_ai8k c_ai8m) where
sing
= (singFun1
@(FlipSym2 (d_aicV :: (~>) a_ai8k ((~>) b_ai8l c_ai8m)) (d_aicW :: b_ai8l)))
((sFlip (sing @d_aicV)) (sing @d_aicW))
instance SingI ((.@#@$) :: (~>) ((~>) b_ai8n c_ai8o) ((~>) ((~>) a_ai8p b_ai8n) ((~>) a_ai8p c_ai8o))) where
sing = (singFun3 @(.@#@$)) (%.)
instance SingI d_aid1 =>
SingI ((.@#@$$) (d_aid1 :: (~>) b_ai8n c_ai8o) :: (~>) ((~>) a_ai8p b_ai8n) ((~>) a_ai8p c_ai8o)) where
sing
= (singFun2 @((.@#@$$) (d_aid1 :: (~>) b_ai8n c_ai8o)))
((%.) (sing @d_aid1))
instance (SingI d_aid1, SingI d_aid2) =>
SingI ((.@#@$$$) (d_aid1 :: (~>) b_ai8n c_ai8o) (d_aid2 :: (~>) a_ai8p b_ai8n) :: (~>) a_ai8p c_ai8o) where
sing
= (singFun1
@((.@#@$$$) (d_aid1 :: (~>) b_ai8n c_ai8o) (d_aid2 :: (~>) a_ai8p b_ai8n)))
(((%.) (sing @d_aid1)) (sing @d_aid2))
instance SingI (ConstSym0 :: (~>) a_ai8q ((~>) b_ai8r a_ai8q)) where
sing = (singFun2 @ConstSym0) sConst
instance SingI d_aid6 =>
SingI (ConstSym1 (d_aid6 :: a_ai8q) :: (~>) b_ai8r a_ai8q) where
sing
= (singFun1 @(ConstSym1 (d_aid6 :: a_ai8q)))
(sConst (sing @d_aid6))
instance SingI (IdSym0 :: (~>) a_ai8s a_ai8s) where
sing = (singFun1 @IdSym0) sId
instance SingI ((++@#@$) :: (~>) [a_ai8t] ((~>) [a_ai8t] [a_ai8t])) where
sing = (singFun2 @(++@#@$)) (%++)
instance SingI d_aidc =>
SingI ((++@#@$$) (d_aidc :: [a_ai8t]) :: (~>) [a_ai8t] [a_ai8t]) where
sing
= (singFun1 @((++@#@$$) (d_aidc :: [a_ai8t])))
((%++) (sing @d_aidc))
instance SingI (FoldrSym0 :: (~>) ((~>) a_ai8u ((~>) b_ai8v b_ai8v)) ((~>) b_ai8v ((~>) [a_ai8u] b_ai8v))) where
sing = (singFun3 @FoldrSym0) sFoldr
instance SingI d_aidh =>
SingI (FoldrSym1 (d_aidh :: (~>) a_ai8u ((~>) b_ai8v b_ai8v)) :: (~>) b_ai8v ((~>) [a_ai8u] b_ai8v)) where
sing
= (singFun2
@(FoldrSym1 (d_aidh :: (~>) a_ai8u ((~>) b_ai8v b_ai8v))))
(sFoldr (sing @d_aidh))
instance (SingI d_aidh, SingI d_aidi) =>
SingI (FoldrSym2 (d_aidh :: (~>) a_ai8u ((~>) b_ai8v b_ai8v)) (d_aidi :: b_ai8v) :: (~>) [a_ai8u] b_ai8v) where
sing
= (singFun1
@(FoldrSym2 (d_aidh :: (~>) a_ai8u ((~>) b_ai8v b_ai8v)) (d_aidi :: b_ai8v)))
((sFoldr (sing @d_aidh)) (sing @d_aidi))
instance SingI (TailSym0 :: (~>) [a_ai8w] [a_ai8w]) where
sing = (singFun1 @TailSym0) sTail
instance SingI (LastSym0 :: (~>) [a_ai8x] a_ai8x) where
sing = (singFun1 @LastSym0) sLast
instance SingI (HeadSym0 :: (~>) [a_ai8y] a_ai8y) where
sing = (singFun1 @HeadSym0) sHead
type (<>@#@$) :: forall a_akld. (~>) a_akld ((~>) a_akld a_akld)
data (<>@#@$) :: (~>) a_akld ((~>) a_akld a_akld)
where
(:<>@#@$###) :: SameKind (Apply (<>@#@$) arg_aklp) ((<>@#@$$) arg_aklp) =>
(<>@#@$) a6989586621679088000
type instance Apply (<>@#@$) a6989586621679088000 = (<>@#@$$) a6989586621679088000
instance SuppressUnusedWarnings (<>@#@$) where
suppressUnusedWarnings = snd (((,) (:<>@#@$###)) ())
infixr 6 <>@#@$
type (<>@#@$$) :: forall a_akld. a_akld -> (~>) a_akld a_akld
data (<>@#@$$) (a6989586621679088000 :: a_akld) :: (~>) a_akld a_akld
where
(:<>@#@$$###) :: SameKind (Apply ((<>@#@$$) a6989586621679088000) arg_aklp) ((<>@#@$$$) a6989586621679088000 arg_aklp) =>
(<>@#@$$) a6989586621679088000 a6989586621679088001
type instance Apply ((<>@#@$$) a6989586621679088000) a6989586621679088001 = (<>) a6989586621679088000 a6989586621679088001
instance SuppressUnusedWarnings ((<>@#@$$) a6989586621679088000) where
suppressUnusedWarnings = snd (((,) (:<>@#@$$###)) ())
infixr 6 <>@#@$$
type (<>@#@$$$) :: forall a_akld. a_akld -> a_akld -> a_akld
type family (<>@#@$$$) (a6989586621679088000 :: a_akld) (a6989586621679088001 :: a_akld) :: a_akld where
(<>@#@$$$) a6989586621679088000 a6989586621679088001 = (<>) a6989586621679088000 a6989586621679088001
infixr 6 <>@#@$$$
class PSemigroup a_akld where
type (<>) (arg_akln :: a_akld) (arg_aklo :: a_akld) :: a_akld
infixr 6 <>
type TFHelper_6989586621679088004 :: [a_akle]
-> [a_akle] -> [a_akle]
type family TFHelper_6989586621679088004 (a_aklA :: [a_akle]) (a_aklB :: [a_akle]) :: [a_akle] where
TFHelper_6989586621679088004 a_6989586621679088006_aklF a_6989586621679088008_aklG = Apply (Apply (++@#@$) a_6989586621679088006_aklF) a_6989586621679088008_aklG
type TFHelper_6989586621679088004Sym0 :: (~>) [a_akle] ((~>) [a_akle] [a_akle])
data TFHelper_6989586621679088004Sym0 :: (~>) [a_akle] ((~>) [a_akle] [a_akle])
where
TFHelper_6989586621679088004Sym0KindInference :: SameKind (Apply TFHelper_6989586621679088004Sym0 arg_aklC) (TFHelper_6989586621679088004Sym1 arg_aklC) =>
TFHelper_6989586621679088004Sym0 a6989586621679088013
type instance Apply TFHelper_6989586621679088004Sym0 a6989586621679088013 = TFHelper_6989586621679088004Sym1 a6989586621679088013
instance SuppressUnusedWarnings TFHelper_6989586621679088004Sym0 where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679088004Sym0KindInference) ())
type TFHelper_6989586621679088004Sym1 :: [a_akle]
-> (~>) [a_akle] [a_akle]
data TFHelper_6989586621679088004Sym1 (a6989586621679088013 :: [a_akle]) :: (~>) [a_akle] [a_akle]
where
TFHelper_6989586621679088004Sym1KindInference :: SameKind (Apply (TFHelper_6989586621679088004Sym1 a6989586621679088013) arg_aklC) (TFHelper_6989586621679088004Sym2 a6989586621679088013 arg_aklC) =>
TFHelper_6989586621679088004Sym1 a6989586621679088013 a6989586621679088014
type instance Apply (TFHelper_6989586621679088004Sym1 a6989586621679088013) a6989586621679088014 = TFHelper_6989586621679088004 a6989586621679088013 a6989586621679088014
instance SuppressUnusedWarnings (TFHelper_6989586621679088004Sym1 a6989586621679088013) where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679088004Sym1KindInference) ())
type TFHelper_6989586621679088004Sym2 :: [a_akle]
-> [a_akle] -> [a_akle]
type family TFHelper_6989586621679088004Sym2 (a6989586621679088013 :: [a_akle]) (a6989586621679088014 :: [a_akle]) :: [a_akle] where
TFHelper_6989586621679088004Sym2 a6989586621679088013 a6989586621679088014 = TFHelper_6989586621679088004 a6989586621679088013 a6989586621679088014
instance PSemigroup [a_akle] where
type (<>) a_akls a_aklt = Apply (Apply TFHelper_6989586621679088004Sym0 a_akls) a_aklt
class SSemigroup a_akld where
(%<>) ::
forall (t_aklH :: a_akld) (t_aklI :: a_akld). Sing t_aklH
-> Sing t_aklI
-> Sing (Apply (Apply (<>@#@$) t_aklH) t_aklI :: a_akld)
infixr 6 %<>
instance SSemigroup [a_akle] where
(%<>) ::
forall (t_aklL :: [a_akle]) (t_aklM :: [a_akle]). Sing t_aklL
-> Sing t_aklM
-> Sing (Apply (Apply (<>@#@$) t_aklL) t_aklM :: [a_akle])
(%<>)
(sA_6989586621679088006 :: Sing a_6989586621679088006_aklF)
(sA_6989586621679088008 :: Sing a_6989586621679088008_aklG)
= (applySing
((applySing ((singFun2 @(++@#@$)) (%++))) sA_6989586621679088006))
sA_6989586621679088008
instance SSemigroup a_akld =>
SingI ((<>@#@$) :: (~>) a_akld ((~>) a_akld a_akld)) where
sing = (singFun2 @(<>@#@$)) (%<>)
instance (SSemigroup a_akld, SingI d_aklJ) =>
SingI ((<>@#@$$) (d_aklJ :: a_akld) :: (~>) a_akld a_akld) where
sing
= (singFun1 @((<>@#@$$) (d_aklJ :: a_akld))) ((%<>) (sing @d_aklJ))
instance PSemigroup Symbol where
type a <> b = AppendSymbol a b
instance SSemigroup Symbol where
sa %<> sb =
let a = fromSing sa
b = fromSing sb
ex = someSymbolVal $ T.unpack $ a <> b
in case ex of
SomeSymbol (_ :: Proxy ab) -> unsafeCoerce (SSym :: Sing ab)
type family Lambda_6989586621679090303_akWA x1_akWy m1_akWu m2_akWv x2_akWB where
Lambda_6989586621679090303_akWA x1_akWy m1_akWu m2_akWv x2_akWB = Apply ReturnSym0 (Apply x1_akWy x2_akWB)
data Lambda_6989586621679090303Sym0 x16989586621679090302
where
Lambda_6989586621679090303Sym0KindInference :: SameKind (Apply Lambda_6989586621679090303Sym0 arg_akWC) (Lambda_6989586621679090303Sym1 arg_akWC) =>
Lambda_6989586621679090303Sym0 x16989586621679090302
type instance Apply Lambda_6989586621679090303Sym0 x16989586621679090302 = Lambda_6989586621679090303Sym1 x16989586621679090302
instance SuppressUnusedWarnings Lambda_6989586621679090303Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679090303Sym0KindInference) ())
data Lambda_6989586621679090303Sym1 x16989586621679090302 m16989586621679090298
where
Lambda_6989586621679090303Sym1KindInference :: SameKind (Apply (Lambda_6989586621679090303Sym1 x16989586621679090302) arg_akWC) (Lambda_6989586621679090303Sym2 x16989586621679090302 arg_akWC) =>
Lambda_6989586621679090303Sym1 x16989586621679090302 m16989586621679090298
type instance Apply (Lambda_6989586621679090303Sym1 x16989586621679090302) m16989586621679090298 = Lambda_6989586621679090303Sym2 x16989586621679090302 m16989586621679090298
instance SuppressUnusedWarnings (Lambda_6989586621679090303Sym1 x16989586621679090302) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679090303Sym1KindInference) ())
data Lambda_6989586621679090303Sym2 x16989586621679090302 m16989586621679090298 m26989586621679090299
where
Lambda_6989586621679090303Sym2KindInference :: SameKind (Apply (Lambda_6989586621679090303Sym2 x16989586621679090302 m16989586621679090298) arg_akWC) (Lambda_6989586621679090303Sym3 x16989586621679090302 m16989586621679090298 arg_akWC) =>
Lambda_6989586621679090303Sym2 x16989586621679090302 m16989586621679090298 m26989586621679090299
type instance Apply (Lambda_6989586621679090303Sym2 x16989586621679090302 m16989586621679090298) m26989586621679090299 = Lambda_6989586621679090303Sym3 x16989586621679090302 m16989586621679090298 m26989586621679090299
instance SuppressUnusedWarnings (Lambda_6989586621679090303Sym2 x16989586621679090302 m16989586621679090298) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679090303Sym2KindInference) ())
data Lambda_6989586621679090303Sym3 x16989586621679090302 m16989586621679090298 m26989586621679090299 x26989586621679090305
where
Lambda_6989586621679090303Sym3KindInference :: SameKind (Apply (Lambda_6989586621679090303Sym3 x16989586621679090302 m16989586621679090298 m26989586621679090299) arg_akWC) (Lambda_6989586621679090303Sym4 x16989586621679090302 m16989586621679090298 m26989586621679090299 arg_akWC) =>
Lambda_6989586621679090303Sym3 x16989586621679090302 m16989586621679090298 m26989586621679090299 x26989586621679090305
type instance Apply (Lambda_6989586621679090303Sym3 x16989586621679090302 m16989586621679090298 m26989586621679090299) x26989586621679090305 = Lambda_6989586621679090303_akWA x16989586621679090302 m16989586621679090298 m26989586621679090299 x26989586621679090305
instance SuppressUnusedWarnings (Lambda_6989586621679090303Sym3 x16989586621679090302 m16989586621679090298 m26989586621679090299) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679090303Sym3KindInference) ())
type family Lambda_6989586621679090303Sym4 x16989586621679090302 m16989586621679090298 m26989586621679090299 x26989586621679090305 where
Lambda_6989586621679090303Sym4 x16989586621679090302 m16989586621679090298 m26989586621679090299 x26989586621679090305 = Lambda_6989586621679090303_akWA x16989586621679090302 m16989586621679090298 m26989586621679090299 x26989586621679090305
type family Lambda_6989586621679090300_akWx m1_akWu m2_akWv x1_akWy where
Lambda_6989586621679090300_akWx m1_akWu m2_akWv x1_akWy = Apply (Apply (>>=@#@$) m2_akWv) (Apply (Apply (Apply Lambda_6989586621679090303Sym0 x1_akWy) m1_akWu) m2_akWv)
data Lambda_6989586621679090300Sym0 m16989586621679090298
where
Lambda_6989586621679090300Sym0KindInference :: SameKind (Apply Lambda_6989586621679090300Sym0 arg_akWD) (Lambda_6989586621679090300Sym1 arg_akWD) =>
Lambda_6989586621679090300Sym0 m16989586621679090298
type instance Apply Lambda_6989586621679090300Sym0 m16989586621679090298 = Lambda_6989586621679090300Sym1 m16989586621679090298
instance SuppressUnusedWarnings Lambda_6989586621679090300Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679090300Sym0KindInference) ())
data Lambda_6989586621679090300Sym1 m16989586621679090298 m26989586621679090299
where
Lambda_6989586621679090300Sym1KindInference :: SameKind (Apply (Lambda_6989586621679090300Sym1 m16989586621679090298) arg_akWD) (Lambda_6989586621679090300Sym2 m16989586621679090298 arg_akWD) =>
Lambda_6989586621679090300Sym1 m16989586621679090298 m26989586621679090299
type instance Apply (Lambda_6989586621679090300Sym1 m16989586621679090298) m26989586621679090299 = Lambda_6989586621679090300Sym2 m16989586621679090298 m26989586621679090299
instance SuppressUnusedWarnings (Lambda_6989586621679090300Sym1 m16989586621679090298) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679090300Sym1KindInference) ())
data Lambda_6989586621679090300Sym2 m16989586621679090298 m26989586621679090299 x16989586621679090302
where
Lambda_6989586621679090300Sym2KindInference :: SameKind (Apply (Lambda_6989586621679090300Sym2 m16989586621679090298 m26989586621679090299) arg_akWD) (Lambda_6989586621679090300Sym3 m16989586621679090298 m26989586621679090299 arg_akWD) =>
Lambda_6989586621679090300Sym2 m16989586621679090298 m26989586621679090299 x16989586621679090302
type instance Apply (Lambda_6989586621679090300Sym2 m16989586621679090298 m26989586621679090299) x16989586621679090302 = Lambda_6989586621679090300_akWx m16989586621679090298 m26989586621679090299 x16989586621679090302
instance SuppressUnusedWarnings (Lambda_6989586621679090300Sym2 m16989586621679090298 m26989586621679090299) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679090300Sym2KindInference) ())
type family Lambda_6989586621679090300Sym3 m16989586621679090298 m26989586621679090299 x16989586621679090302 where
Lambda_6989586621679090300Sym3 m16989586621679090298 m26989586621679090299 x16989586621679090302 = Lambda_6989586621679090300_akWx m16989586621679090298 m26989586621679090299 x16989586621679090302
type family Lambda_6989586621679090315_akWM f_akWJ m1_akWK x1_akWN where
Lambda_6989586621679090315_akWM f_akWJ m1_akWK x1_akWN = Apply ReturnSym0 (Apply f_akWJ x1_akWN)
data Lambda_6989586621679090315Sym0 f6989586621679090313
where
Lambda_6989586621679090315Sym0KindInference :: SameKind (Apply Lambda_6989586621679090315Sym0 arg_akWO) (Lambda_6989586621679090315Sym1 arg_akWO) =>
Lambda_6989586621679090315Sym0 f6989586621679090313
type instance Apply Lambda_6989586621679090315Sym0 f6989586621679090313 = Lambda_6989586621679090315Sym1 f6989586621679090313
instance SuppressUnusedWarnings Lambda_6989586621679090315Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679090315Sym0KindInference) ())
data Lambda_6989586621679090315Sym1 f6989586621679090313 m16989586621679090314
where
Lambda_6989586621679090315Sym1KindInference :: SameKind (Apply (Lambda_6989586621679090315Sym1 f6989586621679090313) arg_akWO) (Lambda_6989586621679090315Sym2 f6989586621679090313 arg_akWO) =>
Lambda_6989586621679090315Sym1 f6989586621679090313 m16989586621679090314
type instance Apply (Lambda_6989586621679090315Sym1 f6989586621679090313) m16989586621679090314 = Lambda_6989586621679090315Sym2 f6989586621679090313 m16989586621679090314
instance SuppressUnusedWarnings (Lambda_6989586621679090315Sym1 f6989586621679090313) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679090315Sym1KindInference) ())
data Lambda_6989586621679090315Sym2 f6989586621679090313 m16989586621679090314 x16989586621679090317
where
Lambda_6989586621679090315Sym2KindInference :: SameKind (Apply (Lambda_6989586621679090315Sym2 f6989586621679090313 m16989586621679090314) arg_akWO) (Lambda_6989586621679090315Sym3 f6989586621679090313 m16989586621679090314 arg_akWO) =>
Lambda_6989586621679090315Sym2 f6989586621679090313 m16989586621679090314 x16989586621679090317
type instance Apply (Lambda_6989586621679090315Sym2 f6989586621679090313 m16989586621679090314) x16989586621679090317 = Lambda_6989586621679090315_akWM f6989586621679090313 m16989586621679090314 x16989586621679090317
instance SuppressUnusedWarnings (Lambda_6989586621679090315Sym2 f6989586621679090313 m16989586621679090314) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679090315Sym2KindInference) ())
type family Lambda_6989586621679090315Sym3 f6989586621679090313 m16989586621679090314 x16989586621679090317 where
Lambda_6989586621679090315Sym3 f6989586621679090313 m16989586621679090314 x16989586621679090317 = Lambda_6989586621679090315_akWM f6989586621679090313 m16989586621679090314 x16989586621679090317
type family Case_6989586621679090326_akWX p_akWU s_akWV t_akWY where
Case_6989586621679090326_akWX p_akWU s_akWV 'True = s_akWV
Case_6989586621679090326_akWX p_akWU s_akWV 'False = Apply PureSym0 Tuple0Sym0
type GuardSym0 :: (~>) Bool (f_akUM ())
data GuardSym0 :: (~>) Bool (f_akUM ())
where
GuardSym0KindInference :: SameKind (Apply GuardSym0 arg_akWn) (GuardSym1 arg_akWn) =>
GuardSym0 a6989586621679090292
type instance Apply GuardSym0 a6989586621679090292 = Guard a6989586621679090292
instance SuppressUnusedWarnings GuardSym0 where
suppressUnusedWarnings = snd (((,) GuardSym0KindInference) ())
type GuardSym1 :: Bool -> f_akUM ()
type family GuardSym1 (a6989586621679090292 :: Bool) :: f_akUM () where
GuardSym1 a6989586621679090292 = Guard a6989586621679090292
type ApSym0 :: (~>) (m_akUN ((~>) a_akUO b_akUP)) ((~>) (m_akUN a_akUO) (m_akUN b_akUP))
data ApSym0 :: (~>) (m_akUN ((~>) a_akUO b_akUP)) ((~>) (m_akUN a_akUO) (m_akUN b_akUP))
where
ApSym0KindInference :: SameKind (Apply ApSym0 arg_akWr) (ApSym1 arg_akWr) =>
ApSym0 a6989586621679090296
type instance Apply ApSym0 a6989586621679090296 = ApSym1 a6989586621679090296
instance SuppressUnusedWarnings ApSym0 where
suppressUnusedWarnings = snd (((,) ApSym0KindInference) ())
type ApSym1 :: m_akUN ((~>) a_akUO b_akUP)
-> (~>) (m_akUN a_akUO) (m_akUN b_akUP)
data ApSym1 (a6989586621679090296 :: m_akUN ((~>) a_akUO b_akUP)) :: (~>) (m_akUN a_akUO) (m_akUN b_akUP)
where
ApSym1KindInference :: SameKind (Apply (ApSym1 a6989586621679090296) arg_akWr) (ApSym2 a6989586621679090296 arg_akWr) =>
ApSym1 a6989586621679090296 a6989586621679090297
type instance Apply (ApSym1 a6989586621679090296) a6989586621679090297 = Ap a6989586621679090296 a6989586621679090297
instance SuppressUnusedWarnings (ApSym1 a6989586621679090296) where
suppressUnusedWarnings = snd (((,) ApSym1KindInference) ())
type ApSym2 :: m_akUN ((~>) a_akUO b_akUP)
-> m_akUN a_akUO -> m_akUN b_akUP
type family ApSym2 (a6989586621679090296 :: m_akUN ((~>) a_akUO b_akUP)) (a6989586621679090297 :: m_akUN a_akUO) :: m_akUN b_akUP where
ApSym2 a6989586621679090296 a6989586621679090297 = Ap a6989586621679090296 a6989586621679090297
type LiftMSym0 :: (~>) ((~>) a1_akUR r_akUS) ((~>) (m_akUQ a1_akUR) (m_akUQ r_akUS))
data LiftMSym0 :: (~>) ((~>) a1_akUR r_akUS) ((~>) (m_akUQ a1_akUR) (m_akUQ r_akUS))
where
LiftMSym0KindInference :: SameKind (Apply LiftMSym0 arg_akWG) (LiftMSym1 arg_akWG) =>
LiftMSym0 a6989586621679090311
type instance Apply LiftMSym0 a6989586621679090311 = LiftMSym1 a6989586621679090311
instance SuppressUnusedWarnings LiftMSym0 where
suppressUnusedWarnings = snd (((,) LiftMSym0KindInference) ())
type LiftMSym1 :: (~>) a1_akUR r_akUS
-> (~>) (m_akUQ a1_akUR) (m_akUQ r_akUS)
data LiftMSym1 (a6989586621679090311 :: (~>) a1_akUR r_akUS) :: (~>) (m_akUQ a1_akUR) (m_akUQ r_akUS)
where
LiftMSym1KindInference :: SameKind (Apply (LiftMSym1 a6989586621679090311) arg_akWG) (LiftMSym2 a6989586621679090311 arg_akWG) =>
LiftMSym1 a6989586621679090311 a6989586621679090312
type instance Apply (LiftMSym1 a6989586621679090311) a6989586621679090312 = LiftM a6989586621679090311 a6989586621679090312
instance SuppressUnusedWarnings (LiftMSym1 a6989586621679090311) where
suppressUnusedWarnings = snd (((,) LiftMSym1KindInference) ())
type LiftMSym2 :: (~>) a1_akUR r_akUS
-> m_akUQ a1_akUR -> m_akUQ r_akUS
type family LiftMSym2 (a6989586621679090311 :: (~>) a1_akUR r_akUS) (a6989586621679090312 :: m_akUQ a1_akUR) :: m_akUQ r_akUS where
LiftMSym2 a6989586621679090311 a6989586621679090312 = LiftM a6989586621679090311 a6989586621679090312
type WhenSym0 :: (~>) Bool ((~>) (f_akUT ()) (f_akUT ()))
data WhenSym0 :: (~>) Bool ((~>) (f_akUT ()) (f_akUT ()))
where
WhenSym0KindInference :: SameKind (Apply WhenSym0 arg_akWR) (WhenSym1 arg_akWR) =>
WhenSym0 a6989586621679090322
type instance Apply WhenSym0 a6989586621679090322 = WhenSym1 a6989586621679090322
instance SuppressUnusedWarnings WhenSym0 where
suppressUnusedWarnings = snd (((,) WhenSym0KindInference) ())
type WhenSym1 :: Bool -> (~>) (f_akUT ()) (f_akUT ())
data WhenSym1 (a6989586621679090322 :: Bool) :: (~>) (f_akUT ()) (f_akUT ())
where
WhenSym1KindInference :: SameKind (Apply (WhenSym1 a6989586621679090322) arg_akWR) (WhenSym2 a6989586621679090322 arg_akWR) =>
WhenSym1 a6989586621679090322 a6989586621679090323
type instance Apply (WhenSym1 a6989586621679090322) a6989586621679090323 = When a6989586621679090322 a6989586621679090323
instance SuppressUnusedWarnings (WhenSym1 a6989586621679090322) where
suppressUnusedWarnings = snd (((,) WhenSym1KindInference) ())
type WhenSym2 :: Bool -> f_akUT () -> f_akUT ()
type family WhenSym2 (a6989586621679090322 :: Bool) (a6989586621679090323 :: f_akUT ()) :: f_akUT () where
WhenSym2 a6989586621679090322 a6989586621679090323 = When a6989586621679090322 a6989586621679090323
type (=<<@#@$) :: (~>) ((~>) a_akUV (m_akUU b_akUW)) ((~>) (m_akUU a_akUV) (m_akUU b_akUW))
data (=<<@#@$) :: (~>) ((~>) a_akUV (m_akUU b_akUW)) ((~>) (m_akUU a_akUV) (m_akUU b_akUW))
where
(:=<<@#@$###) :: SameKind (Apply (=<<@#@$) arg_akX1) ((=<<@#@$$) arg_akX1) =>
(=<<@#@$) a6989586621679090332
type instance Apply (=<<@#@$) a6989586621679090332 = (=<<@#@$$) a6989586621679090332
instance SuppressUnusedWarnings (=<<@#@$) where
suppressUnusedWarnings = snd (((,) (:=<<@#@$###)) ())
infixr 1 =<<@#@$
type (=<<@#@$$) :: (~>) a_akUV (m_akUU b_akUW)
-> (~>) (m_akUU a_akUV) (m_akUU b_akUW)
data (=<<@#@$$) (a6989586621679090332 :: (~>) a_akUV (m_akUU b_akUW)) :: (~>) (m_akUU a_akUV) (m_akUU b_akUW)
where
(:=<<@#@$$###) :: SameKind (Apply ((=<<@#@$$) a6989586621679090332) arg_akX1) ((=<<@#@$$$) a6989586621679090332 arg_akX1) =>
(=<<@#@$$) a6989586621679090332 a6989586621679090333
type instance Apply ((=<<@#@$$) a6989586621679090332) a6989586621679090333 = (=<<) a6989586621679090332 a6989586621679090333
instance SuppressUnusedWarnings ((=<<@#@$$) a6989586621679090332) where
suppressUnusedWarnings = snd (((,) (:=<<@#@$$###)) ())
infixr 1 =<<@#@$$
type (=<<@#@$$$) :: (~>) a_akUV (m_akUU b_akUW)
-> m_akUU a_akUV -> m_akUU b_akUW
type family (=<<@#@$$$) (a6989586621679090332 :: (~>) a_akUV (m_akUU b_akUW)) (a6989586621679090333 :: m_akUU a_akUV) :: m_akUU b_akUW where
(=<<@#@$$$) a6989586621679090332 a6989586621679090333 = (=<<) a6989586621679090332 a6989586621679090333
infixr 1 =<<@#@$$$
type LiftA3Sym0 :: (~>) ((~>) a_akUY ((~>) b_akUZ ((~>) c_akV0 d_akV1))) ((~>) (f_akUX a_akUY) ((~>) (f_akUX b_akUZ) ((~>) (f_akUX c_akV0) (f_akUX d_akV1))))
data LiftA3Sym0 :: (~>) ((~>) a_akUY ((~>) b_akUZ ((~>) c_akV0 d_akV1))) ((~>) (f_akUX a_akUY) ((~>) (f_akUX b_akUZ) ((~>) (f_akUX c_akV0) (f_akUX d_akV1))))
where
LiftA3Sym0KindInference :: SameKind (Apply LiftA3Sym0 arg_akXa) (LiftA3Sym1 arg_akXa) =>
LiftA3Sym0 a6989586621679090341
type instance Apply LiftA3Sym0 a6989586621679090341 = LiftA3Sym1 a6989586621679090341
instance SuppressUnusedWarnings LiftA3Sym0 where
suppressUnusedWarnings = snd (((,) LiftA3Sym0KindInference) ())
type LiftA3Sym1 :: (~>) a_akUY ((~>) b_akUZ ((~>) c_akV0 d_akV1))
-> (~>) (f_akUX a_akUY) ((~>) (f_akUX b_akUZ) ((~>) (f_akUX c_akV0) (f_akUX d_akV1)))
data LiftA3Sym1 (a6989586621679090341 :: (~>) a_akUY ((~>) b_akUZ ((~>) c_akV0 d_akV1))) :: (~>) (f_akUX a_akUY) ((~>) (f_akUX b_akUZ) ((~>) (f_akUX c_akV0) (f_akUX d_akV1)))
where
LiftA3Sym1KindInference :: SameKind (Apply (LiftA3Sym1 a6989586621679090341) arg_akXa) (LiftA3Sym2 a6989586621679090341 arg_akXa) =>
LiftA3Sym1 a6989586621679090341 a6989586621679090342
type instance Apply (LiftA3Sym1 a6989586621679090341) a6989586621679090342 = LiftA3Sym2 a6989586621679090341 a6989586621679090342
instance SuppressUnusedWarnings (LiftA3Sym1 a6989586621679090341) where
suppressUnusedWarnings = snd (((,) LiftA3Sym1KindInference) ())
type LiftA3Sym2 :: (~>) a_akUY ((~>) b_akUZ ((~>) c_akV0 d_akV1))
-> f_akUX a_akUY
-> (~>) (f_akUX b_akUZ) ((~>) (f_akUX c_akV0) (f_akUX d_akV1))
data LiftA3Sym2 (a6989586621679090341 :: (~>) a_akUY ((~>) b_akUZ ((~>) c_akV0 d_akV1))) (a6989586621679090342 :: f_akUX a_akUY) :: (~>) (f_akUX b_akUZ) ((~>) (f_akUX c_akV0) (f_akUX d_akV1))
where
LiftA3Sym2KindInference :: SameKind (Apply (LiftA3Sym2 a6989586621679090341 a6989586621679090342) arg_akXa) (LiftA3Sym3 a6989586621679090341 a6989586621679090342 arg_akXa) =>
LiftA3Sym2 a6989586621679090341 a6989586621679090342 a6989586621679090343
type instance Apply (LiftA3Sym2 a6989586621679090341 a6989586621679090342) a6989586621679090343 = LiftA3Sym3 a6989586621679090341 a6989586621679090342 a6989586621679090343
instance SuppressUnusedWarnings (LiftA3Sym2 a6989586621679090341 a6989586621679090342) where
suppressUnusedWarnings = snd (((,) LiftA3Sym2KindInference) ())
type LiftA3Sym3 :: (~>) a_akUY ((~>) b_akUZ ((~>) c_akV0 d_akV1))
-> f_akUX a_akUY
-> f_akUX b_akUZ -> (~>) (f_akUX c_akV0) (f_akUX d_akV1)
data LiftA3Sym3 (a6989586621679090341 :: (~>) a_akUY ((~>) b_akUZ ((~>) c_akV0 d_akV1))) (a6989586621679090342 :: f_akUX a_akUY) (a6989586621679090343 :: f_akUX b_akUZ) :: (~>) (f_akUX c_akV0) (f_akUX d_akV1)
where
LiftA3Sym3KindInference :: SameKind (Apply (LiftA3Sym3 a6989586621679090341 a6989586621679090342 a6989586621679090343) arg_akXa) (LiftA3Sym4 a6989586621679090341 a6989586621679090342 a6989586621679090343 arg_akXa) =>
LiftA3Sym3 a6989586621679090341 a6989586621679090342 a6989586621679090343 a6989586621679090344
type instance Apply (LiftA3Sym3 a6989586621679090341 a6989586621679090342 a6989586621679090343) a6989586621679090344 = LiftA3 a6989586621679090341 a6989586621679090342 a6989586621679090343 a6989586621679090344
instance SuppressUnusedWarnings (LiftA3Sym3 a6989586621679090341 a6989586621679090342 a6989586621679090343) where
suppressUnusedWarnings = snd (((,) LiftA3Sym3KindInference) ())
type LiftA3Sym4 :: (~>) a_akUY ((~>) b_akUZ ((~>) c_akV0 d_akV1))
-> f_akUX a_akUY -> f_akUX b_akUZ -> f_akUX c_akV0 -> f_akUX d_akV1
type family LiftA3Sym4 (a6989586621679090341 :: (~>) a_akUY ((~>) b_akUZ ((~>) c_akV0 d_akV1))) (a6989586621679090342 :: f_akUX a_akUY) (a6989586621679090343 :: f_akUX b_akUZ) (a6989586621679090344 :: f_akUX c_akV0) :: f_akUX d_akV1 where
LiftA3Sym4 a6989586621679090341 a6989586621679090342 a6989586621679090343 a6989586621679090344 = LiftA3 a6989586621679090341 a6989586621679090342 a6989586621679090343 a6989586621679090344
type LiftASym0 :: (~>) ((~>) a_akV3 b_akV4) ((~>) (f_akV2 a_akV3) (f_akV2 b_akV4))
data LiftASym0 :: (~>) ((~>) a_akV3 b_akV4) ((~>) (f_akV2 a_akV3) (f_akV2 b_akV4))
where
LiftASym0KindInference :: SameKind (Apply LiftASym0 arg_akXl) (LiftASym1 arg_akXl) =>
LiftASym0 a6989586621679090352
type instance Apply LiftASym0 a6989586621679090352 = LiftASym1 a6989586621679090352
instance SuppressUnusedWarnings LiftASym0 where
suppressUnusedWarnings = snd (((,) LiftASym0KindInference) ())
type LiftASym1 :: (~>) a_akV3 b_akV4
-> (~>) (f_akV2 a_akV3) (f_akV2 b_akV4)
data LiftASym1 (a6989586621679090352 :: (~>) a_akV3 b_akV4) :: (~>) (f_akV2 a_akV3) (f_akV2 b_akV4)
where
LiftASym1KindInference :: SameKind (Apply (LiftASym1 a6989586621679090352) arg_akXl) (LiftASym2 a6989586621679090352 arg_akXl) =>
LiftASym1 a6989586621679090352 a6989586621679090353
type instance Apply (LiftASym1 a6989586621679090352) a6989586621679090353 = LiftA a6989586621679090352 a6989586621679090353
instance SuppressUnusedWarnings (LiftASym1 a6989586621679090352) where
suppressUnusedWarnings = snd (((,) LiftASym1KindInference) ())
type LiftASym2 :: (~>) a_akV3 b_akV4
-> f_akV2 a_akV3 -> f_akV2 b_akV4
type family LiftASym2 (a6989586621679090352 :: (~>) a_akV3 b_akV4) (a6989586621679090353 :: f_akV2 a_akV3) :: f_akV2 b_akV4 where
LiftASym2 a6989586621679090352 a6989586621679090353 = LiftA a6989586621679090352 a6989586621679090353
type Guard :: Bool -> f_akUM ()
type family Guard (a_akWm :: Bool) :: f_akUM () where
Guard 'True = Apply PureSym0 Tuple0Sym0
Guard 'False = EmptySym0
type Ap :: m_akUN ((~>) a_akUO b_akUP)
-> m_akUN a_akUO -> m_akUN b_akUP
type family Ap (a_akWp :: m_akUN ((~>) a_akUO b_akUP)) (a_akWq :: m_akUN a_akUO) :: m_akUN b_akUP where
Ap m1_akWu m2_akWv = Apply (Apply (>>=@#@$) m1_akWu) (Apply (Apply Lambda_6989586621679090300Sym0 m1_akWu) m2_akWv)
type LiftM :: (~>) a1_akUR r_akUS
-> m_akUQ a1_akUR -> m_akUQ r_akUS
type family LiftM (a_akWE :: (~>) a1_akUR r_akUS) (a_akWF :: m_akUQ a1_akUR) :: m_akUQ r_akUS where
LiftM f_akWJ m1_akWK = Apply (Apply (>>=@#@$) m1_akWK) (Apply (Apply Lambda_6989586621679090315Sym0 f_akWJ) m1_akWK)
type When :: Bool -> f_akUT () -> f_akUT ()
type family When (a_akWP :: Bool) (a_akWQ :: f_akUT ()) :: f_akUT () where
When p_akWU s_akWV = Case_6989586621679090326_akWX p_akWU s_akWV p_akWU
type (=<<) :: (~>) a_akUV (m_akUU b_akUW)
-> m_akUU a_akUV -> m_akUU b_akUW
type family (=<<) (a_akWZ :: (~>) a_akUV (m_akUU b_akUW)) (a_akX0 :: m_akUU a_akUV) :: m_akUU b_akUW where
(=<<) f_akX4 x_akX5 = Apply (Apply (>>=@#@$) x_akX5) f_akX4
type LiftA3 :: (~>) a_akUY ((~>) b_akUZ ((~>) c_akV0 d_akV1))
-> f_akUX a_akUY -> f_akUX b_akUZ -> f_akUX c_akV0 -> f_akUX d_akV1
type family LiftA3 (a_akX6 :: (~>) a_akUY ((~>) b_akUZ ((~>) c_akV0 d_akV1))) (a_akX7 :: f_akUX a_akUY) (a_akX8 :: f_akUX b_akUZ) (a_akX9 :: f_akUX c_akV0) :: f_akUX d_akV1 where
LiftA3 f_akXf a_akXg b_akXh c_akXi = Apply (Apply (<*>@#@$) (Apply (Apply (Apply LiftA2Sym0 f_akXf) a_akXg) b_akXh)) c_akXi
type LiftA :: (~>) a_akV3 b_akV4 -> f_akV2 a_akV3 -> f_akV2 b_akV4
type family LiftA (a_akXj :: (~>) a_akV3 b_akV4) (a_akXk :: f_akV2 a_akV3) :: f_akV2 b_akV4 where
LiftA f_akXo a_akXp = Apply (Apply (<*>@#@$) (Apply PureSym0 f_akXo)) a_akXp
infixl 3 <|>
infixr 1 =<<
infixl 1 >>=
infixl 1 >>
infixl 4 *>
infixl 4 <*
infixl 4 <*>
infixl 4 <$
type FmapSym0 :: forall a_akVw
b_akVx
f_akVv. (~>) ((~>) a_akVw b_akVx) ((~>) (f_akVv a_akVw) (f_akVv b_akVx))
data FmapSym0 :: (~>) ((~>) a_akVw b_akVx) ((~>) (f_akVv a_akVw) (f_akVv b_akVx))
where
FmapSym0KindInference :: SameKind (Apply FmapSym0 arg_akXs) (FmapSym1 arg_akXs) =>
FmapSym0 a6989586621679090359
type instance Apply FmapSym0 a6989586621679090359 = FmapSym1 a6989586621679090359
instance SuppressUnusedWarnings FmapSym0 where
suppressUnusedWarnings = snd (((,) FmapSym0KindInference) ())
type FmapSym1 :: forall a_akVw b_akVx f_akVv. (~>) a_akVw b_akVx
-> (~>) (f_akVv a_akVw) (f_akVv b_akVx)
data FmapSym1 (a6989586621679090359 :: (~>) a_akVw b_akVx) :: (~>) (f_akVv a_akVw) (f_akVv b_akVx)
where
FmapSym1KindInference :: SameKind (Apply (FmapSym1 a6989586621679090359) arg_akXs) (FmapSym2 a6989586621679090359 arg_akXs) =>
FmapSym1 a6989586621679090359 a6989586621679090360
type instance Apply (FmapSym1 a6989586621679090359) a6989586621679090360 = Fmap a6989586621679090359 a6989586621679090360
instance SuppressUnusedWarnings (FmapSym1 a6989586621679090359) where
suppressUnusedWarnings = snd (((,) FmapSym1KindInference) ())
type FmapSym2 :: forall a_akVw b_akVx f_akVv. (~>) a_akVw b_akVx
-> f_akVv a_akVw -> f_akVv b_akVx
type family FmapSym2 (a6989586621679090359 :: (~>) a_akVw b_akVx) (a6989586621679090360 :: f_akVv a_akVw) :: f_akVv b_akVx where
FmapSym2 a6989586621679090359 a6989586621679090360 = Fmap a6989586621679090359 a6989586621679090360
type (<$@#@$) :: forall a_akVy
f_akVv
b_akVz. (~>) a_akVy ((~>) (f_akVv b_akVz) (f_akVv a_akVy))
data (<$@#@$) :: (~>) a_akVy ((~>) (f_akVv b_akVz) (f_akVv a_akVy))
where
(:<$@#@$###) :: SameKind (Apply (<$@#@$) arg_akXx) ((<$@#@$$) arg_akXx) =>
(<$@#@$) a6989586621679090364
type instance Apply (<$@#@$) a6989586621679090364 = (<$@#@$$) a6989586621679090364
instance SuppressUnusedWarnings (<$@#@$) where
suppressUnusedWarnings = snd (((,) (:<$@#@$###)) ())
infixl 4 <$@#@$
type (<$@#@$$) :: forall a_akVy f_akVv b_akVz. a_akVy
-> (~>) (f_akVv b_akVz) (f_akVv a_akVy)
data (<$@#@$$) (a6989586621679090364 :: a_akVy) :: (~>) (f_akVv b_akVz) (f_akVv a_akVy)
where
(:<$@#@$$###) :: SameKind (Apply ((<$@#@$$) a6989586621679090364) arg_akXx) ((<$@#@$$$) a6989586621679090364 arg_akXx) =>
(<$@#@$$) a6989586621679090364 a6989586621679090365
type instance Apply ((<$@#@$$) a6989586621679090364) a6989586621679090365 = (<$) a6989586621679090364 a6989586621679090365
instance SuppressUnusedWarnings ((<$@#@$$) a6989586621679090364) where
suppressUnusedWarnings = snd (((,) (:<$@#@$$###)) ())
infixl 4 <$@#@$$
type (<$@#@$$$) :: forall a_akVy f_akVv b_akVz. a_akVy
-> f_akVv b_akVz -> f_akVv a_akVy
type family (<$@#@$$$) (a6989586621679090364 :: a_akVy) (a6989586621679090365 :: f_akVv b_akVz) :: f_akVv a_akVy where
(<$@#@$$$) a6989586621679090364 a6989586621679090365 = (<$) a6989586621679090364 a6989586621679090365
infixl 4 <$@#@$$$
type TFHelper_6989586621679090368 :: a_akVy
-> f_akVv b_akVz -> f_akVv a_akVy
type family TFHelper_6989586621679090368 (a_akXI :: a_akVy) (a_akXJ :: f_akVv b_akVz) :: f_akVv a_akVy where
TFHelper_6989586621679090368 a_6989586621679090370_akXN a_6989586621679090372_akXO = Apply (Apply (Apply (Apply (.@#@$) FmapSym0) ConstSym0) a_6989586621679090370_akXN) a_6989586621679090372_akXO
type TFHelper_6989586621679090368Sym0 :: (~>) a_akVy ((~>) (f_akVv b_akVz) (f_akVv a_akVy))
data TFHelper_6989586621679090368Sym0 :: (~>) a_akVy ((~>) (f_akVv b_akVz) (f_akVv a_akVy))
where
TFHelper_6989586621679090368Sym0KindInference :: SameKind (Apply TFHelper_6989586621679090368Sym0 arg_akXK) (TFHelper_6989586621679090368Sym1 arg_akXK) =>
TFHelper_6989586621679090368Sym0 a6989586621679090377
type instance Apply TFHelper_6989586621679090368Sym0 a6989586621679090377 = TFHelper_6989586621679090368Sym1 a6989586621679090377
instance SuppressUnusedWarnings TFHelper_6989586621679090368Sym0 where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679090368Sym0KindInference) ())
type TFHelper_6989586621679090368Sym1 :: a_akVy
-> (~>) (f_akVv b_akVz) (f_akVv a_akVy)
data TFHelper_6989586621679090368Sym1 (a6989586621679090377 :: a_akVy) :: (~>) (f_akVv b_akVz) (f_akVv a_akVy)
where
TFHelper_6989586621679090368Sym1KindInference :: SameKind (Apply (TFHelper_6989586621679090368Sym1 a6989586621679090377) arg_akXK) (TFHelper_6989586621679090368Sym2 a6989586621679090377 arg_akXK) =>
TFHelper_6989586621679090368Sym1 a6989586621679090377 a6989586621679090378
type instance Apply (TFHelper_6989586621679090368Sym1 a6989586621679090377) a6989586621679090378 = TFHelper_6989586621679090368 a6989586621679090377 a6989586621679090378
instance SuppressUnusedWarnings (TFHelper_6989586621679090368Sym1 a6989586621679090377) where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679090368Sym1KindInference) ())
type TFHelper_6989586621679090368Sym2 :: a_akVy
-> f_akVv b_akVz -> f_akVv a_akVy
type family TFHelper_6989586621679090368Sym2 (a6989586621679090377 :: a_akVy) (a6989586621679090378 :: f_akVv b_akVz) :: f_akVv a_akVy where
TFHelper_6989586621679090368Sym2 a6989586621679090377 a6989586621679090378 = TFHelper_6989586621679090368 a6989586621679090377 a6989586621679090378
class PFunctor f_akVv where
type Fmap (arg_akXq :: (~>) a_akVw b_akVx) (arg_akXr :: f_akVv a_akVw) :: f_akVv b_akVx
type (<$) (arg_akXv :: a_akVy) (arg_akXw :: f_akVv b_akVz) :: f_akVv a_akVy
type (<$) a_akXA a_akXB = Apply (Apply TFHelper_6989586621679090368Sym0 a_akXA) a_akXB
type PureSym0 :: forall a_akVB f_akVA. (~>) a_akVB (f_akVA a_akVB)
data PureSym0 :: (~>) a_akVB (f_akVA a_akVB)
where
PureSym0KindInference :: SameKind (Apply PureSym0 arg_akXQ) (PureSym1 arg_akXQ) =>
PureSym0 a6989586621679090383
type instance Apply PureSym0 a6989586621679090383 = Pure a6989586621679090383
instance SuppressUnusedWarnings PureSym0 where
suppressUnusedWarnings = snd (((,) PureSym0KindInference) ())
type PureSym1 :: forall a_akVB f_akVA. a_akVB -> f_akVA a_akVB
type family PureSym1 (a6989586621679090383 :: a_akVB) :: f_akVA a_akVB where
PureSym1 a6989586621679090383 = Pure a6989586621679090383
type (<*>@#@$) :: forall f_akVA
a_akVC
b_akVD. (~>) (f_akVA ((~>) a_akVC b_akVD)) ((~>) (f_akVA a_akVC) (f_akVA b_akVD))
data (<*>@#@$) :: (~>) (f_akVA ((~>) a_akVC b_akVD)) ((~>) (f_akVA a_akVC) (f_akVA b_akVD))
where
(:<*>@#@$###) :: SameKind (Apply (<*>@#@$) arg_akXU) ((<*>@#@$$) arg_akXU) =>
(<*>@#@$) a6989586621679090387
type instance Apply (<*>@#@$) a6989586621679090387 = (<*>@#@$$) a6989586621679090387
instance SuppressUnusedWarnings (<*>@#@$) where
suppressUnusedWarnings = snd (((,) (:<*>@#@$###)) ())
infixl 4 <*>@#@$
type (<*>@#@$$) :: forall f_akVA
a_akVC
b_akVD. f_akVA ((~>) a_akVC b_akVD)
-> (~>) (f_akVA a_akVC) (f_akVA b_akVD)
data (<*>@#@$$) (a6989586621679090387 :: f_akVA ((~>) a_akVC b_akVD)) :: (~>) (f_akVA a_akVC) (f_akVA b_akVD)
where
(:<*>@#@$$###) :: SameKind (Apply ((<*>@#@$$) a6989586621679090387) arg_akXU) ((<*>@#@$$$) a6989586621679090387 arg_akXU) =>
(<*>@#@$$) a6989586621679090387 a6989586621679090388
type instance Apply ((<*>@#@$$) a6989586621679090387) a6989586621679090388 = (<*>) a6989586621679090387 a6989586621679090388
instance SuppressUnusedWarnings ((<*>@#@$$) a6989586621679090387) where
suppressUnusedWarnings = snd (((,) (:<*>@#@$$###)) ())
infixl 4 <*>@#@$$
type (<*>@#@$$$) :: forall f_akVA
a_akVC
b_akVD. f_akVA ((~>) a_akVC b_akVD)
-> f_akVA a_akVC -> f_akVA b_akVD
type family (<*>@#@$$$) (a6989586621679090387 :: f_akVA ((~>) a_akVC b_akVD)) (a6989586621679090388 :: f_akVA a_akVC) :: f_akVA b_akVD where
(<*>@#@$$$) a6989586621679090387 a6989586621679090388 = (<*>) a6989586621679090387 a6989586621679090388
infixl 4 <*>@#@$$$
type LiftA2Sym0 :: forall a_akVE
b_akVF
c_akVG
f_akVA. (~>) ((~>) a_akVE ((~>) b_akVF c_akVG)) ((~>) (f_akVA a_akVE) ((~>) (f_akVA b_akVF) (f_akVA c_akVG)))
data LiftA2Sym0 :: (~>) ((~>) a_akVE ((~>) b_akVF c_akVG)) ((~>) (f_akVA a_akVE) ((~>) (f_akVA b_akVF) (f_akVA c_akVG)))
where
LiftA2Sym0KindInference :: SameKind (Apply LiftA2Sym0 arg_akY0) (LiftA2Sym1 arg_akY0) =>
LiftA2Sym0 a6989586621679090393
type instance Apply LiftA2Sym0 a6989586621679090393 = LiftA2Sym1 a6989586621679090393
instance SuppressUnusedWarnings LiftA2Sym0 where
suppressUnusedWarnings = snd (((,) LiftA2Sym0KindInference) ())
type LiftA2Sym1 :: forall a_akVE
b_akVF
c_akVG
f_akVA. (~>) a_akVE ((~>) b_akVF c_akVG)
-> (~>) (f_akVA a_akVE) ((~>) (f_akVA b_akVF) (f_akVA c_akVG))
data LiftA2Sym1 (a6989586621679090393 :: (~>) a_akVE ((~>) b_akVF c_akVG)) :: (~>) (f_akVA a_akVE) ((~>) (f_akVA b_akVF) (f_akVA c_akVG))
where
LiftA2Sym1KindInference :: SameKind (Apply (LiftA2Sym1 a6989586621679090393) arg_akY0) (LiftA2Sym2 a6989586621679090393 arg_akY0) =>
LiftA2Sym1 a6989586621679090393 a6989586621679090394
type instance Apply (LiftA2Sym1 a6989586621679090393) a6989586621679090394 = LiftA2Sym2 a6989586621679090393 a6989586621679090394
instance SuppressUnusedWarnings (LiftA2Sym1 a6989586621679090393) where
suppressUnusedWarnings = snd (((,) LiftA2Sym1KindInference) ())
type LiftA2Sym2 :: forall a_akVE
b_akVF
c_akVG
f_akVA. (~>) a_akVE ((~>) b_akVF c_akVG)
-> f_akVA a_akVE -> (~>) (f_akVA b_akVF) (f_akVA c_akVG)
data LiftA2Sym2 (a6989586621679090393 :: (~>) a_akVE ((~>) b_akVF c_akVG)) (a6989586621679090394 :: f_akVA a_akVE) :: (~>) (f_akVA b_akVF) (f_akVA c_akVG)
where
LiftA2Sym2KindInference :: SameKind (Apply (LiftA2Sym2 a6989586621679090393 a6989586621679090394) arg_akY0) (LiftA2Sym3 a6989586621679090393 a6989586621679090394 arg_akY0) =>
LiftA2Sym2 a6989586621679090393 a6989586621679090394 a6989586621679090395
type instance Apply (LiftA2Sym2 a6989586621679090393 a6989586621679090394) a6989586621679090395 = LiftA2 a6989586621679090393 a6989586621679090394 a6989586621679090395
instance SuppressUnusedWarnings (LiftA2Sym2 a6989586621679090393 a6989586621679090394) where
suppressUnusedWarnings = snd (((,) LiftA2Sym2KindInference) ())
type LiftA2Sym3 :: forall a_akVE
b_akVF
c_akVG
f_akVA. (~>) a_akVE ((~>) b_akVF c_akVG)
-> f_akVA a_akVE -> f_akVA b_akVF -> f_akVA c_akVG
type family LiftA2Sym3 (a6989586621679090393 :: (~>) a_akVE ((~>) b_akVF c_akVG)) (a6989586621679090394 :: f_akVA a_akVE) (a6989586621679090395 :: f_akVA b_akVF) :: f_akVA c_akVG where
LiftA2Sym3 a6989586621679090393 a6989586621679090394 a6989586621679090395 = LiftA2 a6989586621679090393 a6989586621679090394 a6989586621679090395
type (*>@#@$) :: forall f_akVA
a_akVH
b_akVI. (~>) (f_akVA a_akVH) ((~>) (f_akVA b_akVI) (f_akVA b_akVI))
data (*>@#@$) :: (~>) (f_akVA a_akVH) ((~>) (f_akVA b_akVI) (f_akVA b_akVI))
where
(:*>@#@$###) :: SameKind (Apply (*>@#@$) arg_akY6) ((*>@#@$$) arg_akY6) =>
(*>@#@$) a6989586621679090399
type instance Apply (*>@#@$) a6989586621679090399 = (*>@#@$$) a6989586621679090399
instance SuppressUnusedWarnings (*>@#@$) where
suppressUnusedWarnings = snd (((,) (:*>@#@$###)) ())
infixl 4 *>@#@$
type (*>@#@$$) :: forall f_akVA a_akVH b_akVI. f_akVA a_akVH
-> (~>) (f_akVA b_akVI) (f_akVA b_akVI)
data (*>@#@$$) (a6989586621679090399 :: f_akVA a_akVH) :: (~>) (f_akVA b_akVI) (f_akVA b_akVI)
where
(:*>@#@$$###) :: SameKind (Apply ((*>@#@$$) a6989586621679090399) arg_akY6) ((*>@#@$$$) a6989586621679090399 arg_akY6) =>
(*>@#@$$) a6989586621679090399 a6989586621679090400
type instance Apply ((*>@#@$$) a6989586621679090399) a6989586621679090400 = (*>) a6989586621679090399 a6989586621679090400
instance SuppressUnusedWarnings ((*>@#@$$) a6989586621679090399) where
suppressUnusedWarnings = snd (((,) (:*>@#@$$###)) ())
infixl 4 *>@#@$$
type (*>@#@$$$) :: forall f_akVA a_akVH b_akVI. f_akVA a_akVH
-> f_akVA b_akVI -> f_akVA b_akVI
type family (*>@#@$$$) (a6989586621679090399 :: f_akVA a_akVH) (a6989586621679090400 :: f_akVA b_akVI) :: f_akVA b_akVI where
(*>@#@$$$) a6989586621679090399 a6989586621679090400 = (*>) a6989586621679090399 a6989586621679090400
infixl 4 *>@#@$$$
type (<*@#@$) :: forall f_akVA
a_akVJ
b_akVK. (~>) (f_akVA a_akVJ) ((~>) (f_akVA b_akVK) (f_akVA a_akVJ))
data (<*@#@$) :: (~>) (f_akVA a_akVJ) ((~>) (f_akVA b_akVK) (f_akVA a_akVJ))
where
(:<*@#@$###) :: SameKind (Apply (<*@#@$) arg_akYb) ((<*@#@$$) arg_akYb) =>
(<*@#@$) a6989586621679090404
type instance Apply (<*@#@$) a6989586621679090404 = (<*@#@$$) a6989586621679090404
instance SuppressUnusedWarnings (<*@#@$) where
suppressUnusedWarnings = snd (((,) (:<*@#@$###)) ())
infixl 4 <*@#@$
type (<*@#@$$) :: forall f_akVA a_akVJ b_akVK. f_akVA a_akVJ
-> (~>) (f_akVA b_akVK) (f_akVA a_akVJ)
data (<*@#@$$) (a6989586621679090404 :: f_akVA a_akVJ) :: (~>) (f_akVA b_akVK) (f_akVA a_akVJ)
where
(:<*@#@$$###) :: SameKind (Apply ((<*@#@$$) a6989586621679090404) arg_akYb) ((<*@#@$$$) a6989586621679090404 arg_akYb) =>
(<*@#@$$) a6989586621679090404 a6989586621679090405
type instance Apply ((<*@#@$$) a6989586621679090404) a6989586621679090405 = (<*) a6989586621679090404 a6989586621679090405
instance SuppressUnusedWarnings ((<*@#@$$) a6989586621679090404) where
suppressUnusedWarnings = snd (((,) (:<*@#@$$###)) ())
infixl 4 <*@#@$$
type (<*@#@$$$) :: forall f_akVA a_akVJ b_akVK. f_akVA a_akVJ
-> f_akVA b_akVK -> f_akVA a_akVJ
type family (<*@#@$$$) (a6989586621679090404 :: f_akVA a_akVJ) (a6989586621679090405 :: f_akVA b_akVK) :: f_akVA a_akVJ where
(<*@#@$$$) a6989586621679090404 a6989586621679090405 = (<*) a6989586621679090404 a6989586621679090405
infixl 4 <*@#@$$$
type TFHelper_6989586621679090408 :: f_akVA ((~>) a_akVC b_akVD)
-> f_akVA a_akVC -> f_akVA b_akVD
type family TFHelper_6989586621679090408 (a_akYm :: f_akVA ((~>) a_akVC b_akVD)) (a_akYn :: f_akVA a_akVC) :: f_akVA b_akVD where
TFHelper_6989586621679090408 a_6989586621679090410_akYr a_6989586621679090412_akYs = Apply (Apply (Apply LiftA2Sym0 IdSym0) a_6989586621679090410_akYr) a_6989586621679090412_akYs
type TFHelper_6989586621679090408Sym0 :: (~>) (f_akVA ((~>) a_akVC b_akVD)) ((~>) (f_akVA a_akVC) (f_akVA b_akVD))
data TFHelper_6989586621679090408Sym0 :: (~>) (f_akVA ((~>) a_akVC b_akVD)) ((~>) (f_akVA a_akVC) (f_akVA b_akVD))
where
TFHelper_6989586621679090408Sym0KindInference :: SameKind (Apply TFHelper_6989586621679090408Sym0 arg_akYo) (TFHelper_6989586621679090408Sym1 arg_akYo) =>
TFHelper_6989586621679090408Sym0 a6989586621679090417
type instance Apply TFHelper_6989586621679090408Sym0 a6989586621679090417 = TFHelper_6989586621679090408Sym1 a6989586621679090417
instance SuppressUnusedWarnings TFHelper_6989586621679090408Sym0 where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679090408Sym0KindInference) ())
type TFHelper_6989586621679090408Sym1 :: f_akVA ((~>) a_akVC b_akVD)
-> (~>) (f_akVA a_akVC) (f_akVA b_akVD)
data TFHelper_6989586621679090408Sym1 (a6989586621679090417 :: f_akVA ((~>) a_akVC b_akVD)) :: (~>) (f_akVA a_akVC) (f_akVA b_akVD)
where
TFHelper_6989586621679090408Sym1KindInference :: SameKind (Apply (TFHelper_6989586621679090408Sym1 a6989586621679090417) arg_akYo) (TFHelper_6989586621679090408Sym2 a6989586621679090417 arg_akYo) =>
TFHelper_6989586621679090408Sym1 a6989586621679090417 a6989586621679090418
type instance Apply (TFHelper_6989586621679090408Sym1 a6989586621679090417) a6989586621679090418 = TFHelper_6989586621679090408 a6989586621679090417 a6989586621679090418
instance SuppressUnusedWarnings (TFHelper_6989586621679090408Sym1 a6989586621679090417) where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679090408Sym1KindInference) ())
type TFHelper_6989586621679090408Sym2 :: f_akVA ((~>) a_akVC b_akVD)
-> f_akVA a_akVC -> f_akVA b_akVD
type family TFHelper_6989586621679090408Sym2 (a6989586621679090417 :: f_akVA ((~>) a_akVC b_akVD)) (a6989586621679090418 :: f_akVA a_akVC) :: f_akVA b_akVD where
TFHelper_6989586621679090408Sym2 a6989586621679090417 a6989586621679090418 = TFHelper_6989586621679090408 a6989586621679090417 a6989586621679090418
type LiftA2_6989586621679090424 :: (~>) a_akVE ((~>) b_akVF c_akVG)
-> f_akVA a_akVE -> f_akVA b_akVF -> f_akVA c_akVG
type family LiftA2_6989586621679090424 (a_akYA :: (~>) a_akVE ((~>) b_akVF c_akVG)) (a_akYB :: f_akVA a_akVE) (a_akYC :: f_akVA b_akVF) :: f_akVA c_akVG where
LiftA2_6989586621679090424 f_akYH x_akYI a_6989586621679090426_akYJ = Apply (Apply (<*>@#@$) (Apply (Apply FmapSym0 f_akYH) x_akYI)) a_6989586621679090426_akYJ
type LiftA2_6989586621679090424Sym0 :: (~>) ((~>) a_akVE ((~>) b_akVF c_akVG)) ((~>) (f_akVA a_akVE) ((~>) (f_akVA b_akVF) (f_akVA c_akVG)))
data LiftA2_6989586621679090424Sym0 :: (~>) ((~>) a_akVE ((~>) b_akVF c_akVG)) ((~>) (f_akVA a_akVE) ((~>) (f_akVA b_akVF) (f_akVA c_akVG)))
where
LiftA2_6989586621679090424Sym0KindInference :: SameKind (Apply LiftA2_6989586621679090424Sym0 arg_akYD) (LiftA2_6989586621679090424Sym1 arg_akYD) =>
LiftA2_6989586621679090424Sym0 a6989586621679090432
type instance Apply LiftA2_6989586621679090424Sym0 a6989586621679090432 = LiftA2_6989586621679090424Sym1 a6989586621679090432
instance SuppressUnusedWarnings LiftA2_6989586621679090424Sym0 where
suppressUnusedWarnings
= snd (((,) LiftA2_6989586621679090424Sym0KindInference) ())
type LiftA2_6989586621679090424Sym1 :: (~>) a_akVE ((~>) b_akVF c_akVG)
-> (~>) (f_akVA a_akVE) ((~>) (f_akVA b_akVF) (f_akVA c_akVG))
data LiftA2_6989586621679090424Sym1 (a6989586621679090432 :: (~>) a_akVE ((~>) b_akVF c_akVG)) :: (~>) (f_akVA a_akVE) ((~>) (f_akVA b_akVF) (f_akVA c_akVG))
where
LiftA2_6989586621679090424Sym1KindInference :: SameKind (Apply (LiftA2_6989586621679090424Sym1 a6989586621679090432) arg_akYD) (LiftA2_6989586621679090424Sym2 a6989586621679090432 arg_akYD) =>
LiftA2_6989586621679090424Sym1 a6989586621679090432 a6989586621679090433
type instance Apply (LiftA2_6989586621679090424Sym1 a6989586621679090432) a6989586621679090433 = LiftA2_6989586621679090424Sym2 a6989586621679090432 a6989586621679090433
instance SuppressUnusedWarnings (LiftA2_6989586621679090424Sym1 a6989586621679090432) where
suppressUnusedWarnings
= snd (((,) LiftA2_6989586621679090424Sym1KindInference) ())
type LiftA2_6989586621679090424Sym2 :: (~>) a_akVE ((~>) b_akVF c_akVG)
-> f_akVA a_akVE -> (~>) (f_akVA b_akVF) (f_akVA c_akVG)
data LiftA2_6989586621679090424Sym2 (a6989586621679090432 :: (~>) a_akVE ((~>) b_akVF c_akVG)) (a6989586621679090433 :: f_akVA a_akVE) :: (~>) (f_akVA b_akVF) (f_akVA c_akVG)
where
LiftA2_6989586621679090424Sym2KindInference :: SameKind (Apply (LiftA2_6989586621679090424Sym2 a6989586621679090432 a6989586621679090433) arg_akYD) (LiftA2_6989586621679090424Sym3 a6989586621679090432 a6989586621679090433 arg_akYD) =>
LiftA2_6989586621679090424Sym2 a6989586621679090432 a6989586621679090433 a6989586621679090434
type instance Apply (LiftA2_6989586621679090424Sym2 a6989586621679090432 a6989586621679090433) a6989586621679090434 = LiftA2_6989586621679090424 a6989586621679090432 a6989586621679090433 a6989586621679090434
instance SuppressUnusedWarnings (LiftA2_6989586621679090424Sym2 a6989586621679090432 a6989586621679090433) where
suppressUnusedWarnings
= snd (((,) LiftA2_6989586621679090424Sym2KindInference) ())
type LiftA2_6989586621679090424Sym3 :: (~>) a_akVE ((~>) b_akVF c_akVG)
-> f_akVA a_akVE -> f_akVA b_akVF -> f_akVA c_akVG
type family LiftA2_6989586621679090424Sym3 (a6989586621679090432 :: (~>) a_akVE ((~>) b_akVF c_akVG)) (a6989586621679090433 :: f_akVA a_akVE) (a6989586621679090434 :: f_akVA b_akVF) :: f_akVA c_akVG where
LiftA2_6989586621679090424Sym3 a6989586621679090432 a6989586621679090433 a6989586621679090434 = LiftA2_6989586621679090424 a6989586621679090432 a6989586621679090433 a6989586621679090434
type TFHelper_6989586621679090440 :: f_akVA a_akVH
-> f_akVA b_akVI -> f_akVA b_akVI
type family TFHelper_6989586621679090440 (a_akYO :: f_akVA a_akVH) (a_akYP :: f_akVA b_akVI) :: f_akVA b_akVI where
TFHelper_6989586621679090440 a1_akYT a2_akYU = Apply (Apply (<*>@#@$) (Apply (Apply (<$@#@$) IdSym0) a1_akYT)) a2_akYU
type TFHelper_6989586621679090440Sym0 :: (~>) (f_akVA a_akVH) ((~>) (f_akVA b_akVI) (f_akVA b_akVI))
data TFHelper_6989586621679090440Sym0 :: (~>) (f_akVA a_akVH) ((~>) (f_akVA b_akVI) (f_akVA b_akVI))
where
TFHelper_6989586621679090440Sym0KindInference :: SameKind (Apply TFHelper_6989586621679090440Sym0 arg_akYQ) (TFHelper_6989586621679090440Sym1 arg_akYQ) =>
TFHelper_6989586621679090440Sym0 a6989586621679090445
type instance Apply TFHelper_6989586621679090440Sym0 a6989586621679090445 = TFHelper_6989586621679090440Sym1 a6989586621679090445
instance SuppressUnusedWarnings TFHelper_6989586621679090440Sym0 where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679090440Sym0KindInference) ())
type TFHelper_6989586621679090440Sym1 :: f_akVA a_akVH
-> (~>) (f_akVA b_akVI) (f_akVA b_akVI)
data TFHelper_6989586621679090440Sym1 (a6989586621679090445 :: f_akVA a_akVH) :: (~>) (f_akVA b_akVI) (f_akVA b_akVI)
where
TFHelper_6989586621679090440Sym1KindInference :: SameKind (Apply (TFHelper_6989586621679090440Sym1 a6989586621679090445) arg_akYQ) (TFHelper_6989586621679090440Sym2 a6989586621679090445 arg_akYQ) =>
TFHelper_6989586621679090440Sym1 a6989586621679090445 a6989586621679090446
type instance Apply (TFHelper_6989586621679090440Sym1 a6989586621679090445) a6989586621679090446 = TFHelper_6989586621679090440 a6989586621679090445 a6989586621679090446
instance SuppressUnusedWarnings (TFHelper_6989586621679090440Sym1 a6989586621679090445) where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679090440Sym1KindInference) ())
type TFHelper_6989586621679090440Sym2 :: f_akVA a_akVH
-> f_akVA b_akVI -> f_akVA b_akVI
type family TFHelper_6989586621679090440Sym2 (a6989586621679090445 :: f_akVA a_akVH) (a6989586621679090446 :: f_akVA b_akVI) :: f_akVA b_akVI where
TFHelper_6989586621679090440Sym2 a6989586621679090445 a6989586621679090446 = TFHelper_6989586621679090440 a6989586621679090445 a6989586621679090446
type TFHelper_6989586621679090451 :: f_akVA a_akVJ
-> f_akVA b_akVK -> f_akVA a_akVJ
type family TFHelper_6989586621679090451 (a_akZ3 :: f_akVA a_akVJ) (a_akZ4 :: f_akVA b_akVK) :: f_akVA a_akVJ where
TFHelper_6989586621679090451 a_6989586621679090453_akZ8 a_6989586621679090455_akZ9 = Apply (Apply (Apply LiftA2Sym0 ConstSym0) a_6989586621679090453_akZ8) a_6989586621679090455_akZ9
type TFHelper_6989586621679090451Sym0 :: (~>) (f_akVA a_akVJ) ((~>) (f_akVA b_akVK) (f_akVA a_akVJ))
data TFHelper_6989586621679090451Sym0 :: (~>) (f_akVA a_akVJ) ((~>) (f_akVA b_akVK) (f_akVA a_akVJ))
where
TFHelper_6989586621679090451Sym0KindInference :: SameKind (Apply TFHelper_6989586621679090451Sym0 arg_akZ5) (TFHelper_6989586621679090451Sym1 arg_akZ5) =>
TFHelper_6989586621679090451Sym0 a6989586621679090460
type instance Apply TFHelper_6989586621679090451Sym0 a6989586621679090460 = TFHelper_6989586621679090451Sym1 a6989586621679090460
instance SuppressUnusedWarnings TFHelper_6989586621679090451Sym0 where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679090451Sym0KindInference) ())
type TFHelper_6989586621679090451Sym1 :: f_akVA a_akVJ
-> (~>) (f_akVA b_akVK) (f_akVA a_akVJ)
data TFHelper_6989586621679090451Sym1 (a6989586621679090460 :: f_akVA a_akVJ) :: (~>) (f_akVA b_akVK) (f_akVA a_akVJ)
where
TFHelper_6989586621679090451Sym1KindInference :: SameKind (Apply (TFHelper_6989586621679090451Sym1 a6989586621679090460) arg_akZ5) (TFHelper_6989586621679090451Sym2 a6989586621679090460 arg_akZ5) =>
TFHelper_6989586621679090451Sym1 a6989586621679090460 a6989586621679090461
type instance Apply (TFHelper_6989586621679090451Sym1 a6989586621679090460) a6989586621679090461 = TFHelper_6989586621679090451 a6989586621679090460 a6989586621679090461
instance SuppressUnusedWarnings (TFHelper_6989586621679090451Sym1 a6989586621679090460) where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679090451Sym1KindInference) ())
type TFHelper_6989586621679090451Sym2 :: f_akVA a_akVJ
-> f_akVA b_akVK -> f_akVA a_akVJ
type family TFHelper_6989586621679090451Sym2 (a6989586621679090460 :: f_akVA a_akVJ) (a6989586621679090461 :: f_akVA b_akVK) :: f_akVA a_akVJ where
TFHelper_6989586621679090451Sym2 a6989586621679090460 a6989586621679090461 = TFHelper_6989586621679090451 a6989586621679090460 a6989586621679090461
class PApplicative f_akVA where
type Pure (arg_akXP :: a_akVB) :: f_akVA a_akVB
type (<*>) (arg_akXS :: f_akVA ((~>) a_akVC b_akVD)) (arg_akXT :: f_akVA a_akVC) :: f_akVA b_akVD
type LiftA2 (arg_akXX :: (~>) a_akVE ((~>) b_akVF c_akVG)) (arg_akXY :: f_akVA a_akVE) (arg_akXZ :: f_akVA b_akVF) :: f_akVA c_akVG
type (*>) (arg_akY4 :: f_akVA a_akVH) (arg_akY5 :: f_akVA b_akVI) :: f_akVA b_akVI
type (<*) (arg_akY9 :: f_akVA a_akVJ) (arg_akYa :: f_akVA b_akVK) :: f_akVA a_akVJ
type (<*>) a_akYe a_akYf = Apply (Apply TFHelper_6989586621679090408Sym0 a_akYe) a_akYf
type LiftA2 a_akYt a_akYu a_akYv = Apply (Apply (Apply LiftA2_6989586621679090424Sym0 a_akYt) a_akYu) a_akYv
type (*>) a_akYK a_akYL = Apply (Apply TFHelper_6989586621679090440Sym0 a_akYK) a_akYL
type (<*) a_akYV a_akYW = Apply (Apply TFHelper_6989586621679090451Sym0 a_akYV) a_akYW
type (>>=@#@$) :: forall m_akVV
a_akVW
b_akVX. (~>) (m_akVV a_akVW) ((~>) ((~>) a_akVW (m_akVV b_akVX)) (m_akVV b_akVX))
data (>>=@#@$) :: (~>) (m_akVV a_akVW) ((~>) ((~>) a_akVW (m_akVV b_akVX)) (m_akVV b_akVX))
where
(:>>=@#@$###) :: SameKind (Apply (>>=@#@$) arg_akZc) ((>>=@#@$$) arg_akZc) =>
(>>=@#@$) a6989586621679090467
type instance Apply (>>=@#@$) a6989586621679090467 = (>>=@#@$$) a6989586621679090467
instance SuppressUnusedWarnings (>>=@#@$) where
suppressUnusedWarnings = snd (((,) (:>>=@#@$###)) ())
infixl 1 >>=@#@$
type (>>=@#@$$) :: forall m_akVV a_akVW b_akVX. m_akVV a_akVW
-> (~>) ((~>) a_akVW (m_akVV b_akVX)) (m_akVV b_akVX)
data (>>=@#@$$) (a6989586621679090467 :: m_akVV a_akVW) :: (~>) ((~>) a_akVW (m_akVV b_akVX)) (m_akVV b_akVX)
where
(:>>=@#@$$###) :: SameKind (Apply ((>>=@#@$$) a6989586621679090467) arg_akZc) ((>>=@#@$$$) a6989586621679090467 arg_akZc) =>
(>>=@#@$$) a6989586621679090467 a6989586621679090468
type instance Apply ((>>=@#@$$) a6989586621679090467) a6989586621679090468 = (>>=) a6989586621679090467 a6989586621679090468
instance SuppressUnusedWarnings ((>>=@#@$$) a6989586621679090467) where
suppressUnusedWarnings = snd (((,) (:>>=@#@$$###)) ())
infixl 1 >>=@#@$$
type (>>=@#@$$$) :: forall m_akVV a_akVW b_akVX. m_akVV a_akVW
-> (~>) a_akVW (m_akVV b_akVX) -> m_akVV b_akVX
type family (>>=@#@$$$) (a6989586621679090467 :: m_akVV a_akVW) (a6989586621679090468 :: (~>) a_akVW (m_akVV b_akVX)) :: m_akVV b_akVX where
(>>=@#@$$$) a6989586621679090467 a6989586621679090468 = (>>=) a6989586621679090467 a6989586621679090468
infixl 1 >>=@#@$$$
type (>>@#@$) :: forall m_akVV
a_akVY
b_akVZ. (~>) (m_akVV a_akVY) ((~>) (m_akVV b_akVZ) (m_akVV b_akVZ))
data (>>@#@$) :: (~>) (m_akVV a_akVY) ((~>) (m_akVV b_akVZ) (m_akVV b_akVZ))
where
(:>>@#@$###) :: SameKind (Apply (>>@#@$) arg_akZh) ((>>@#@$$) arg_akZh) =>
(>>@#@$) a6989586621679090472
type instance Apply (>>@#@$) a6989586621679090472 = (>>@#@$$) a6989586621679090472
instance SuppressUnusedWarnings (>>@#@$) where
suppressUnusedWarnings = snd (((,) (:>>@#@$###)) ())
infixl 1 >>@#@$
type (>>@#@$$) :: forall m_akVV a_akVY b_akVZ. m_akVV a_akVY
-> (~>) (m_akVV b_akVZ) (m_akVV b_akVZ)
data (>>@#@$$) (a6989586621679090472 :: m_akVV a_akVY) :: (~>) (m_akVV b_akVZ) (m_akVV b_akVZ)
where
(:>>@#@$$###) :: SameKind (Apply ((>>@#@$$) a6989586621679090472) arg_akZh) ((>>@#@$$$) a6989586621679090472 arg_akZh) =>
(>>@#@$$) a6989586621679090472 a6989586621679090473
type instance Apply ((>>@#@$$) a6989586621679090472) a6989586621679090473 = (>>) a6989586621679090472 a6989586621679090473
instance SuppressUnusedWarnings ((>>@#@$$) a6989586621679090472) where
suppressUnusedWarnings = snd (((,) (:>>@#@$$###)) ())
infixl 1 >>@#@$$
type (>>@#@$$$) :: forall m_akVV a_akVY b_akVZ. m_akVV a_akVY
-> m_akVV b_akVZ -> m_akVV b_akVZ
type family (>>@#@$$$) (a6989586621679090472 :: m_akVV a_akVY) (a6989586621679090473 :: m_akVV b_akVZ) :: m_akVV b_akVZ where
(>>@#@$$$) a6989586621679090472 a6989586621679090473 = (>>) a6989586621679090472 a6989586621679090473
infixl 1 >>@#@$$$
type ReturnSym0 :: forall a_akW0
m_akVV. (~>) a_akW0 (m_akVV a_akW0)
data ReturnSym0 :: (~>) a_akW0 (m_akVV a_akW0)
where
ReturnSym0KindInference :: SameKind (Apply ReturnSym0 arg_akZl) (ReturnSym1 arg_akZl) =>
ReturnSym0 a6989586621679090476
type instance Apply ReturnSym0 a6989586621679090476 = Return a6989586621679090476
instance SuppressUnusedWarnings ReturnSym0 where
suppressUnusedWarnings = snd (((,) ReturnSym0KindInference) ())
type ReturnSym1 :: forall a_akW0 m_akVV. a_akW0 -> m_akVV a_akW0
type family ReturnSym1 (a6989586621679090476 :: a_akW0) :: m_akVV a_akW0 where
ReturnSym1 a6989586621679090476 = Return a6989586621679090476
type family Case_6989586621679090491_akZC arg_6989586621679090288_akZA m_akZw k_akZx t_akZD where
Case_6989586621679090491_akZC arg_6989586621679090288_akZA m_akZw k_akZx _ = k_akZx
type family Lambda_6989586621679090488_akZz m_akZw k_akZx arg_6989586621679090288_akZA where
Lambda_6989586621679090488_akZz m_akZw k_akZx arg_6989586621679090288_akZA = Case_6989586621679090491_akZC arg_6989586621679090288_akZA m_akZw k_akZx arg_6989586621679090288_akZA
data Lambda_6989586621679090488Sym0 m6989586621679090486
where
Lambda_6989586621679090488Sym0KindInference :: SameKind (Apply Lambda_6989586621679090488Sym0 arg_akZE) (Lambda_6989586621679090488Sym1 arg_akZE) =>
Lambda_6989586621679090488Sym0 m6989586621679090486
type instance Apply Lambda_6989586621679090488Sym0 m6989586621679090486 = Lambda_6989586621679090488Sym1 m6989586621679090486
instance SuppressUnusedWarnings Lambda_6989586621679090488Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679090488Sym0KindInference) ())
data Lambda_6989586621679090488Sym1 m6989586621679090486 k6989586621679090487
where
Lambda_6989586621679090488Sym1KindInference :: SameKind (Apply (Lambda_6989586621679090488Sym1 m6989586621679090486) arg_akZE) (Lambda_6989586621679090488Sym2 m6989586621679090486 arg_akZE) =>
Lambda_6989586621679090488Sym1 m6989586621679090486 k6989586621679090487
type instance Apply (Lambda_6989586621679090488Sym1 m6989586621679090486) k6989586621679090487 = Lambda_6989586621679090488Sym2 m6989586621679090486 k6989586621679090487
instance SuppressUnusedWarnings (Lambda_6989586621679090488Sym1 m6989586621679090486) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679090488Sym1KindInference) ())
data Lambda_6989586621679090488Sym2 m6989586621679090486 k6989586621679090487 arg_69895866216790902886989586621679090490
where
Lambda_6989586621679090488Sym2KindInference :: SameKind (Apply (Lambda_6989586621679090488Sym2 m6989586621679090486 k6989586621679090487) arg_akZE) (Lambda_6989586621679090488Sym3 m6989586621679090486 k6989586621679090487 arg_akZE) =>
Lambda_6989586621679090488Sym2 m6989586621679090486 k6989586621679090487 arg_69895866216790902886989586621679090490
type instance Apply (Lambda_6989586621679090488Sym2 m6989586621679090486 k6989586621679090487) arg_69895866216790902886989586621679090490 = Lambda_6989586621679090488_akZz m6989586621679090486 k6989586621679090487 arg_69895866216790902886989586621679090490
instance SuppressUnusedWarnings (Lambda_6989586621679090488Sym2 m6989586621679090486 k6989586621679090487) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679090488Sym2KindInference) ())
type family Lambda_6989586621679090488Sym3 m6989586621679090486 k6989586621679090487 arg_69895866216790902886989586621679090490 where
Lambda_6989586621679090488Sym3 m6989586621679090486 k6989586621679090487 arg_69895866216790902886989586621679090490 = Lambda_6989586621679090488_akZz m6989586621679090486 k6989586621679090487 arg_69895866216790902886989586621679090490
type TFHelper_6989586621679090479 :: m_akVV a_akVY
-> m_akVV b_akVZ -> m_akVV b_akVZ
type family TFHelper_6989586621679090479 (a_akZr :: m_akVV a_akVY) (a_akZs :: m_akVV b_akVZ) :: m_akVV b_akVZ where
TFHelper_6989586621679090479 m_akZw k_akZx = Apply (Apply (>>=@#@$) m_akZw) (Apply (Apply Lambda_6989586621679090488Sym0 m_akZw) k_akZx)
type TFHelper_6989586621679090479Sym0 :: (~>) (m_akVV a_akVY) ((~>) (m_akVV b_akVZ) (m_akVV b_akVZ))
data TFHelper_6989586621679090479Sym0 :: (~>) (m_akVV a_akVY) ((~>) (m_akVV b_akVZ) (m_akVV b_akVZ))
where
TFHelper_6989586621679090479Sym0KindInference :: SameKind (Apply TFHelper_6989586621679090479Sym0 arg_akZt) (TFHelper_6989586621679090479Sym1 arg_akZt) =>
TFHelper_6989586621679090479Sym0 a6989586621679090484
type instance Apply TFHelper_6989586621679090479Sym0 a6989586621679090484 = TFHelper_6989586621679090479Sym1 a6989586621679090484
instance SuppressUnusedWarnings TFHelper_6989586621679090479Sym0 where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679090479Sym0KindInference) ())
type TFHelper_6989586621679090479Sym1 :: m_akVV a_akVY
-> (~>) (m_akVV b_akVZ) (m_akVV b_akVZ)
data TFHelper_6989586621679090479Sym1 (a6989586621679090484 :: m_akVV a_akVY) :: (~>) (m_akVV b_akVZ) (m_akVV b_akVZ)
where
TFHelper_6989586621679090479Sym1KindInference :: SameKind (Apply (TFHelper_6989586621679090479Sym1 a6989586621679090484) arg_akZt) (TFHelper_6989586621679090479Sym2 a6989586621679090484 arg_akZt) =>
TFHelper_6989586621679090479Sym1 a6989586621679090484 a6989586621679090485
type instance Apply (TFHelper_6989586621679090479Sym1 a6989586621679090484) a6989586621679090485 = TFHelper_6989586621679090479 a6989586621679090484 a6989586621679090485
instance SuppressUnusedWarnings (TFHelper_6989586621679090479Sym1 a6989586621679090484) where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679090479Sym1KindInference) ())
type TFHelper_6989586621679090479Sym2 :: m_akVV a_akVY
-> m_akVV b_akVZ -> m_akVV b_akVZ
type family TFHelper_6989586621679090479Sym2 (a6989586621679090484 :: m_akVV a_akVY) (a6989586621679090485 :: m_akVV b_akVZ) :: m_akVV b_akVZ where
TFHelper_6989586621679090479Sym2 a6989586621679090484 a6989586621679090485 = TFHelper_6989586621679090479 a6989586621679090484 a6989586621679090485
type Return_6989586621679090496 :: a_akW0 -> m_akVV a_akW0
type family Return_6989586621679090496 (a_akZK :: a_akW0) :: m_akVV a_akW0 where
Return_6989586621679090496 a_6989586621679090498_akZN = Apply PureSym0 a_6989586621679090498_akZN
type Return_6989586621679090496Sym0 :: (~>) a_akW0 (m_akVV a_akW0)
data Return_6989586621679090496Sym0 :: (~>) a_akW0 (m_akVV a_akW0)
where
Return_6989586621679090496Sym0KindInference :: SameKind (Apply Return_6989586621679090496Sym0 arg_akZL) (Return_6989586621679090496Sym1 arg_akZL) =>
Return_6989586621679090496Sym0 a6989586621679090502
type instance Apply Return_6989586621679090496Sym0 a6989586621679090502 = Return_6989586621679090496 a6989586621679090502
instance SuppressUnusedWarnings Return_6989586621679090496Sym0 where
suppressUnusedWarnings
= snd (((,) Return_6989586621679090496Sym0KindInference) ())
type Return_6989586621679090496Sym1 :: a_akW0 -> m_akVV a_akW0
type family Return_6989586621679090496Sym1 (a6989586621679090502 :: a_akW0) :: m_akVV a_akW0 where
Return_6989586621679090496Sym1 a6989586621679090502 = Return_6989586621679090496 a6989586621679090502
class PMonad m_akVV where
type (>>=) (arg_akZa :: m_akVV a_akVW) (arg_akZb :: (~>) a_akVW (m_akVV b_akVX)) :: m_akVV b_akVX
type (>>) (arg_akZf :: m_akVV a_akVY) (arg_akZg :: m_akVV b_akVZ) :: m_akVV b_akVZ
type Return (arg_akZk :: a_akW0) :: m_akVV a_akW0
type (>>) a_akZn a_akZo = Apply (Apply TFHelper_6989586621679090479Sym0 a_akZn) a_akZo
type Return a_akZF = Apply Return_6989586621679090496Sym0 a_akZF
type EmptySym0 :: forall f_akWe a_akWf. f_akWe a_akWf
type family EmptySym0 :: f_akWe a_akWf where
EmptySym0 = Empty
type (<|>@#@$) :: forall f_akWe
a_akWg. (~>) (f_akWe a_akWg) ((~>) (f_akWe a_akWg) (f_akWe a_akWg))
data (<|>@#@$) :: (~>) (f_akWe a_akWg) ((~>) (f_akWe a_akWg) (f_akWe a_akWg))
where
(:<|>@#@$###) :: SameKind (Apply (<|>@#@$) arg_akZR) ((<|>@#@$$) arg_akZR) =>
(<|>@#@$) a6989586621679090508
type instance Apply (<|>@#@$) a6989586621679090508 = (<|>@#@$$) a6989586621679090508
instance SuppressUnusedWarnings (<|>@#@$) where
suppressUnusedWarnings = snd (((,) (:<|>@#@$###)) ())
infixl 3 <|>@#@$
type (<|>@#@$$) :: forall f_akWe a_akWg. f_akWe a_akWg
-> (~>) (f_akWe a_akWg) (f_akWe a_akWg)
data (<|>@#@$$) (a6989586621679090508 :: f_akWe a_akWg) :: (~>) (f_akWe a_akWg) (f_akWe a_akWg)
where
(:<|>@#@$$###) :: SameKind (Apply ((<|>@#@$$) a6989586621679090508) arg_akZR) ((<|>@#@$$$) a6989586621679090508 arg_akZR) =>
(<|>@#@$$) a6989586621679090508 a6989586621679090509
type instance Apply ((<|>@#@$$) a6989586621679090508) a6989586621679090509 = (<|>) a6989586621679090508 a6989586621679090509
instance SuppressUnusedWarnings ((<|>@#@$$) a6989586621679090508) where
suppressUnusedWarnings = snd (((,) (:<|>@#@$$###)) ())
infixl 3 <|>@#@$$
type (<|>@#@$$$) :: forall f_akWe a_akWg. f_akWe a_akWg
-> f_akWe a_akWg -> f_akWe a_akWg
type family (<|>@#@$$$) (a6989586621679090508 :: f_akWe a_akWg) (a6989586621679090509 :: f_akWe a_akWg) :: f_akWe a_akWg where
(<|>@#@$$$) a6989586621679090508 a6989586621679090509 = (<|>) a6989586621679090508 a6989586621679090509
infixl 3 <|>@#@$$$
class PAlternative f_akWe where
type Empty :: f_akWe a_akWf
type (<|>) (arg_akZP :: f_akWe a_akWg) (arg_akZQ :: f_akWe a_akWg) :: f_akWe a_akWg
type MzeroSym0 :: forall m_akWh a_akWi. m_akWh a_akWi
type family MzeroSym0 :: m_akWh a_akWi where
MzeroSym0 = Mzero
type MplusSym0 :: forall m_akWh
a_akWj. (~>) (m_akWh a_akWj) ((~>) (m_akWh a_akWj) (m_akWh a_akWj))
data MplusSym0 :: (~>) (m_akWh a_akWj) ((~>) (m_akWh a_akWj) (m_akWh a_akWj))
where
MplusSym0KindInference :: SameKind (Apply MplusSym0 arg_akZX) (MplusSym1 arg_akZX) =>
MplusSym0 a6989586621679090514
type instance Apply MplusSym0 a6989586621679090514 = MplusSym1 a6989586621679090514
instance SuppressUnusedWarnings MplusSym0 where
suppressUnusedWarnings = snd (((,) MplusSym0KindInference) ())
type MplusSym1 :: forall m_akWh a_akWj. m_akWh a_akWj
-> (~>) (m_akWh a_akWj) (m_akWh a_akWj)
data MplusSym1 (a6989586621679090514 :: m_akWh a_akWj) :: (~>) (m_akWh a_akWj) (m_akWh a_akWj)
where
MplusSym1KindInference :: SameKind (Apply (MplusSym1 a6989586621679090514) arg_akZX) (MplusSym2 a6989586621679090514 arg_akZX) =>
MplusSym1 a6989586621679090514 a6989586621679090515
type instance Apply (MplusSym1 a6989586621679090514) a6989586621679090515 = Mplus a6989586621679090514 a6989586621679090515
instance SuppressUnusedWarnings (MplusSym1 a6989586621679090514) where
suppressUnusedWarnings = snd (((,) MplusSym1KindInference) ())
type MplusSym2 :: forall m_akWh a_akWj. m_akWh a_akWj
-> m_akWh a_akWj -> m_akWh a_akWj
type family MplusSym2 (a6989586621679090514 :: m_akWh a_akWj) (a6989586621679090515 :: m_akWh a_akWj) :: m_akWh a_akWj where
MplusSym2 a6989586621679090514 a6989586621679090515 = Mplus a6989586621679090514 a6989586621679090515
type Mzero_6989586621679090516 :: m_akWh a_akWi
type family Mzero_6989586621679090516 :: m_akWh a_akWi where
Mzero_6989586621679090516 = EmptySym0
type Mzero_6989586621679090516Sym0 :: m_akWh a_akWi
type family Mzero_6989586621679090516Sym0 :: m_akWh a_akWi where
Mzero_6989586621679090516Sym0 = Mzero_6989586621679090516
type Mplus_6989586621679090521 :: m_akWh a_akWj
-> m_akWh a_akWj -> m_akWh a_akWj
type family Mplus_6989586621679090521 (a_al0b :: m_akWh a_akWj) (a_al0c :: m_akWh a_akWj) :: m_akWh a_akWj where
Mplus_6989586621679090521 a_6989586621679090523_al0g a_6989586621679090525_al0h = Apply (Apply (<|>@#@$) a_6989586621679090523_al0g) a_6989586621679090525_al0h
type Mplus_6989586621679090521Sym0 :: (~>) (m_akWh a_akWj) ((~>) (m_akWh a_akWj) (m_akWh a_akWj))
data Mplus_6989586621679090521Sym0 :: (~>) (m_akWh a_akWj) ((~>) (m_akWh a_akWj) (m_akWh a_akWj))
where
Mplus_6989586621679090521Sym0KindInference :: SameKind (Apply Mplus_6989586621679090521Sym0 arg_al0d) (Mplus_6989586621679090521Sym1 arg_al0d) =>
Mplus_6989586621679090521Sym0 a6989586621679090530
type instance Apply Mplus_6989586621679090521Sym0 a6989586621679090530 = Mplus_6989586621679090521Sym1 a6989586621679090530
instance SuppressUnusedWarnings Mplus_6989586621679090521Sym0 where
suppressUnusedWarnings
= snd (((,) Mplus_6989586621679090521Sym0KindInference) ())
type Mplus_6989586621679090521Sym1 :: m_akWh a_akWj
-> (~>) (m_akWh a_akWj) (m_akWh a_akWj)
data Mplus_6989586621679090521Sym1 (a6989586621679090530 :: m_akWh a_akWj) :: (~>) (m_akWh a_akWj) (m_akWh a_akWj)
where
Mplus_6989586621679090521Sym1KindInference :: SameKind (Apply (Mplus_6989586621679090521Sym1 a6989586621679090530) arg_al0d) (Mplus_6989586621679090521Sym2 a6989586621679090530 arg_al0d) =>
Mplus_6989586621679090521Sym1 a6989586621679090530 a6989586621679090531
type instance Apply (Mplus_6989586621679090521Sym1 a6989586621679090530) a6989586621679090531 = Mplus_6989586621679090521 a6989586621679090530 a6989586621679090531
instance SuppressUnusedWarnings (Mplus_6989586621679090521Sym1 a6989586621679090530) where
suppressUnusedWarnings
= snd (((,) Mplus_6989586621679090521Sym1KindInference) ())
type Mplus_6989586621679090521Sym2 :: m_akWh a_akWj
-> m_akWh a_akWj -> m_akWh a_akWj
type family Mplus_6989586621679090521Sym2 (a6989586621679090530 :: m_akWh a_akWj) (a6989586621679090531 :: m_akWh a_akWj) :: m_akWh a_akWj where
Mplus_6989586621679090521Sym2 a6989586621679090530 a6989586621679090531 = Mplus_6989586621679090521 a6989586621679090530 a6989586621679090531
class PMonadPlus m_akWh where
type Mzero :: m_akWh a_akWi
type Mplus (arg_akZV :: m_akWh a_akWj) (arg_akZW :: m_akWh a_akWj) :: m_akWh a_akWj
type Mzero = Mzero_6989586621679090516Sym0
type Mplus a_al03 a_al04 = Apply (Apply Mplus_6989586621679090521Sym0 a_al03) a_al04
infixl 3 %<|>
infixr 1 %=<<
infixl 1 %>>=
infixl 1 %>>
infixl 4 %*>
infixl 4 %<*
infixl 4 %<*>
infixl 4 %<$
sGuard ::
forall f_akUM (t_al0i :: Bool). SAlternative f_akUM =>
Sing t_al0i -> Sing (Apply GuardSym0 t_al0i :: f_akUM ())
sAp ::
forall m_akUN
a_akUO
b_akUP
(t_al0k :: m_akUN ((~>) a_akUO b_akUP))
(t_al0l :: m_akUN a_akUO). SMonad m_akUN =>
Sing t_al0k
-> Sing t_al0l
-> Sing (Apply (Apply ApSym0 t_al0k) t_al0l :: m_akUN b_akUP)
sLiftM ::
forall a1_akUR
r_akUS
m_akUQ
(t_al0o :: (~>) a1_akUR r_akUS)
(t_al0p :: m_akUQ a1_akUR). SMonad m_akUQ =>
Sing t_al0o
-> Sing t_al0p
-> Sing (Apply (Apply LiftMSym0 t_al0o) t_al0p :: m_akUQ r_akUS)
sWhen ::
forall f_akUT
(t_al0s :: Bool)
(t_al0t :: f_akUT ()). SApplicative f_akUT =>
Sing t_al0s
-> Sing t_al0t
-> Sing (Apply (Apply WhenSym0 t_al0s) t_al0t :: f_akUT ())
(%=<<) ::
forall a_akUV
m_akUU
b_akUW
(t_al0w :: (~>) a_akUV (m_akUU b_akUW))
(t_al0x :: m_akUU a_akUV). SMonad m_akUU =>
Sing t_al0w
-> Sing t_al0x
-> Sing (Apply (Apply (=<<@#@$) t_al0w) t_al0x :: m_akUU b_akUW)
sLiftA3 ::
forall a_akUY
b_akUZ
c_akV0
d_akV1
f_akUX
(t_al0A :: (~>) a_akUY ((~>) b_akUZ ((~>) c_akV0 d_akV1)))
(t_al0B :: f_akUX a_akUY)
(t_al0C :: f_akUX b_akUZ)
(t_al0D :: f_akUX c_akV0). SApplicative f_akUX =>
Sing t_al0A
-> Sing t_al0B
-> Sing t_al0C
-> Sing t_al0D
-> Sing (Apply (Apply (Apply (Apply LiftA3Sym0 t_al0A) t_al0B) t_al0C) t_al0D :: f_akUX d_akV1)
sLiftA ::
forall a_akV3
b_akV4
f_akV2
(t_al0I :: (~>) a_akV3 b_akV4)
(t_al0J :: f_akV2 a_akV3). SApplicative f_akV2 =>
Sing t_al0I
-> Sing t_al0J
-> Sing (Apply (Apply LiftASym0 t_al0I) t_al0J :: f_akV2 b_akV4)
sGuard STrue = (applySing ((singFun1 @PureSym0) sPure)) STuple0
sGuard SFalse = sEmpty
sAp (sM1 :: Sing m1_akWu) (sM2 :: Sing m2_akWv)
= (applySing ((applySing ((singFun2 @(>>=@#@$)) (%>>=))) sM1))
((singFun1
@(Apply (Apply Lambda_6989586621679090300Sym0 m1_akWu) m2_akWv))
(\ sX1
-> case sX1 of {
(_ :: Sing x1_akWy)
-> (applySing ((applySing ((singFun2 @(>>=@#@$)) (%>>=))) sM2))
((singFun1
@(Apply (Apply (Apply Lambda_6989586621679090303Sym0 x1_akWy) m1_akWu) m2_akWv))
(\ sX2
-> case sX2 of {
(_ :: Sing x2_akWB)
-> (applySing ((singFun1 @ReturnSym0) sReturn))
((applySing sX1) sX2) })) }))
sLiftM (sF :: Sing f_akWJ) (sM1 :: Sing m1_akWK)
= (applySing ((applySing ((singFun2 @(>>=@#@$)) (%>>=))) sM1))
((singFun1
@(Apply (Apply Lambda_6989586621679090315Sym0 f_akWJ) m1_akWK))
(\ sX1
-> case sX1 of {
(_ :: Sing x1_akWN)
-> (applySing ((singFun1 @ReturnSym0) sReturn))
((applySing sF) sX1) }))
sWhen (sP :: Sing p_akWU) (sS :: Sing s_akWV)
= (id
@(Sing (Case_6989586621679090326_akWX p_akWU s_akWV p_akWU :: f_akUT ())))
(case sP of
STrue -> sS
SFalse -> (applySing ((singFun1 @PureSym0) sPure)) STuple0)
(%=<<) (sF :: Sing f_akX4) (sX :: Sing x_akX5)
= (applySing ((applySing ((singFun2 @(>>=@#@$)) (%>>=))) sX)) sF
sLiftA3
(sF :: Sing f_akXf)
(sA :: Sing a_akXg)
(sB :: Sing b_akXh)
(sC :: Sing c_akXi)
= (applySing
((applySing ((singFun2 @(<*>@#@$)) (%<*>)))
((applySing
((applySing ((applySing ((singFun3 @LiftA2Sym0) sLiftA2)) sF)) sA))
sB)))
sC
sLiftA (sF :: Sing f_akXo) (sA :: Sing a_akXp)
= (applySing
((applySing ((singFun2 @(<*>@#@$)) (%<*>)))
((applySing ((singFun1 @PureSym0) sPure)) sF)))
sA
instance SAlternative f_akUM =>
SingI (GuardSym0 :: (~>) Bool (f_akUM ())) where
sing = (singFun1 @GuardSym0) sGuard
instance SMonad m_akUN =>
SingI (ApSym0 :: (~>) (m_akUN ((~>) a_akUO b_akUP)) ((~>) (m_akUN a_akUO) (m_akUN b_akUP))) where
sing = (singFun2 @ApSym0) sAp
instance (SMonad m_akUN, SingI d_al0m) =>
SingI (ApSym1 (d_al0m :: m_akUN ((~>) a_akUO b_akUP)) :: (~>) (m_akUN a_akUO) (m_akUN b_akUP)) where
sing
= (singFun1 @(ApSym1 (d_al0m :: m_akUN ((~>) a_akUO b_akUP))))
(sAp (sing @d_al0m))
instance SMonad m_akUQ =>
SingI (LiftMSym0 :: (~>) ((~>) a1_akUR r_akUS) ((~>) (m_akUQ a1_akUR) (m_akUQ r_akUS))) where
sing = (singFun2 @LiftMSym0) sLiftM
instance (SMonad m_akUQ, SingI d_al0q) =>
SingI (LiftMSym1 (d_al0q :: (~>) a1_akUR r_akUS) :: (~>) (m_akUQ a1_akUR) (m_akUQ r_akUS)) where
sing
= (singFun1 @(LiftMSym1 (d_al0q :: (~>) a1_akUR r_akUS)))
(sLiftM (sing @d_al0q))
instance SApplicative f_akUT =>
SingI (WhenSym0 :: (~>) Bool ((~>) (f_akUT ()) (f_akUT ()))) where
sing = (singFun2 @WhenSym0) sWhen
instance (SApplicative f_akUT, SingI d_al0u) =>
SingI (WhenSym1 (d_al0u :: Bool) :: (~>) (f_akUT ()) (f_akUT ())) where
sing
= (singFun1 @(WhenSym1 (d_al0u :: Bool))) (sWhen (sing @d_al0u))
instance SMonad m_akUU =>
SingI ((=<<@#@$) :: (~>) ((~>) a_akUV (m_akUU b_akUW)) ((~>) (m_akUU a_akUV) (m_akUU b_akUW))) where
sing = (singFun2 @(=<<@#@$)) (%=<<)
instance (SMonad m_akUU, SingI d_al0y) =>
SingI ((=<<@#@$$) (d_al0y :: (~>) a_akUV (m_akUU b_akUW)) :: (~>) (m_akUU a_akUV) (m_akUU b_akUW)) where
sing
= (singFun1 @((=<<@#@$$) (d_al0y :: (~>) a_akUV (m_akUU b_akUW))))
((%=<<) (sing @d_al0y))
instance SApplicative f_akUX =>
SingI (LiftA3Sym0 :: (~>) ((~>) a_akUY ((~>) b_akUZ ((~>) c_akV0 d_akV1))) ((~>) (f_akUX a_akUY) ((~>) (f_akUX b_akUZ) ((~>) (f_akUX c_akV0) (f_akUX d_akV1))))) where
sing = (singFun4 @LiftA3Sym0) sLiftA3
instance (SApplicative f_akUX, SingI d_al0E) =>
SingI (LiftA3Sym1 (d_al0E :: (~>) a_akUY ((~>) b_akUZ ((~>) c_akV0 d_akV1))) :: (~>) (f_akUX a_akUY) ((~>) (f_akUX b_akUZ) ((~>) (f_akUX c_akV0) (f_akUX d_akV1)))) where
sing
= (singFun3
@(LiftA3Sym1 (d_al0E :: (~>) a_akUY ((~>) b_akUZ ((~>) c_akV0 d_akV1)))))
(sLiftA3 (sing @d_al0E))
instance (SApplicative f_akUX, SingI d_al0E, SingI d_al0F) =>
SingI (LiftA3Sym2 (d_al0E :: (~>) a_akUY ((~>) b_akUZ ((~>) c_akV0 d_akV1))) (d_al0F :: f_akUX a_akUY) :: (~>) (f_akUX b_akUZ) ((~>) (f_akUX c_akV0) (f_akUX d_akV1))) where
sing
= (singFun2
@(LiftA3Sym2 (d_al0E :: (~>) a_akUY ((~>) b_akUZ ((~>) c_akV0 d_akV1))) (d_al0F :: f_akUX a_akUY)))
((sLiftA3 (sing @d_al0E)) (sing @d_al0F))
instance (SApplicative f_akUX,
SingI d_al0E,
SingI d_al0F,
SingI d_al0G) =>
SingI (LiftA3Sym3 (d_al0E :: (~>) a_akUY ((~>) b_akUZ ((~>) c_akV0 d_akV1))) (d_al0F :: f_akUX a_akUY) (d_al0G :: f_akUX b_akUZ) :: (~>) (f_akUX c_akV0) (f_akUX d_akV1)) where
sing
= (singFun1
@(LiftA3Sym3 (d_al0E :: (~>) a_akUY ((~>) b_akUZ ((~>) c_akV0 d_akV1))) (d_al0F :: f_akUX a_akUY) (d_al0G :: f_akUX b_akUZ)))
(((sLiftA3 (sing @d_al0E)) (sing @d_al0F)) (sing @d_al0G))
instance SApplicative f_akV2 =>
SingI (LiftASym0 :: (~>) ((~>) a_akV3 b_akV4) ((~>) (f_akV2 a_akV3) (f_akV2 b_akV4))) where
sing = (singFun2 @LiftASym0) sLiftA
instance (SApplicative f_akV2, SingI d_al0K) =>
SingI (LiftASym1 (d_al0K :: (~>) a_akV3 b_akV4) :: (~>) (f_akV2 a_akV3) (f_akV2 b_akV4)) where
sing
= (singFun1 @(LiftASym1 (d_al0K :: (~>) a_akV3 b_akV4)))
(sLiftA (sing @d_al0K))
class SFunctor f_akVv where
sFmap ::
forall a_akVw
b_akVx
(t_al0T :: (~>) a_akVw b_akVx)
(t_al0U :: f_akVv a_akVw). Sing t_al0T
-> Sing t_al0U
-> Sing (Apply (Apply FmapSym0 t_al0T) t_al0U :: f_akVv b_akVx)
(%<$) ::
forall a_akVy
b_akVz
(t_al0X :: a_akVy)
(t_al0Y :: f_akVv b_akVz). Sing t_al0X
-> Sing t_al0Y
-> Sing (Apply (Apply (<$@#@$) t_al0X) t_al0Y :: f_akVv a_akVy)
default (%<$) ::
forall a_akVy
b_akVz
(t_al0X :: a_akVy)
(t_al0Y :: f_akVv b_akVz). ((Apply (Apply (<$@#@$) t_al0X) t_al0Y :: f_akVv a_akVy)
~
Apply (Apply TFHelper_6989586621679090368Sym0 t_al0X) t_al0Y) =>
Sing t_al0X
-> Sing t_al0Y
-> Sing (Apply (Apply (<$@#@$) t_al0X) t_al0Y :: f_akVv a_akVy)
(%<$)
(sA_6989586621679090370 :: Sing a_6989586621679090370_akXN)
(sA_6989586621679090372 :: Sing a_6989586621679090372_akXO)
= (applySing
((applySing
((applySing
((applySing ((singFun3 @(.@#@$)) (%.)))
((singFun2 @FmapSym0) sFmap)))
((singFun2 @ConstSym0) sConst)))
sA_6989586621679090370))
sA_6989586621679090372
class SFunctor f_akVA => SApplicative f_akVA where
sPure ::
forall a_akVB (t_al18 :: a_akVB). Sing t_al18
-> Sing (Apply PureSym0 t_al18 :: f_akVA a_akVB)
(%<*>) ::
forall a_akVC
b_akVD
(t_al1a :: f_akVA ((~>) a_akVC b_akVD))
(t_al1b :: f_akVA a_akVC). Sing t_al1a
-> Sing t_al1b
-> Sing (Apply (Apply (<*>@#@$) t_al1a) t_al1b :: f_akVA b_akVD)
sLiftA2 ::
forall a_akVE
b_akVF
c_akVG
(t_al1e :: (~>) a_akVE ((~>) b_akVF c_akVG))
(t_al1f :: f_akVA a_akVE)
(t_al1g :: f_akVA b_akVF). Sing t_al1e
-> Sing t_al1f
-> Sing t_al1g
-> Sing (Apply (Apply (Apply LiftA2Sym0 t_al1e) t_al1f) t_al1g :: f_akVA c_akVG)
(%*>) ::
forall a_akVH
b_akVI
(t_al1k :: f_akVA a_akVH)
(t_al1l :: f_akVA b_akVI). Sing t_al1k
-> Sing t_al1l
-> Sing (Apply (Apply (*>@#@$) t_al1k) t_al1l :: f_akVA b_akVI)
(%<*) ::
forall a_akVJ
b_akVK
(t_al1o :: f_akVA a_akVJ)
(t_al1p :: f_akVA b_akVK). Sing t_al1o
-> Sing t_al1p
-> Sing (Apply (Apply (<*@#@$) t_al1o) t_al1p :: f_akVA a_akVJ)
default (%<*>) ::
forall a_akVC
b_akVD
(t_al1a :: f_akVA ((~>) a_akVC b_akVD))
(t_al1b :: f_akVA a_akVC). ((Apply (Apply (<*>@#@$) t_al1a) t_al1b :: f_akVA b_akVD)
~
Apply (Apply TFHelper_6989586621679090408Sym0 t_al1a) t_al1b) =>
Sing t_al1a
-> Sing t_al1b
-> Sing (Apply (Apply (<*>@#@$) t_al1a) t_al1b :: f_akVA b_akVD)
default sLiftA2 ::
forall a_akVE
b_akVF
c_akVG
(t_al1e :: (~>) a_akVE ((~>) b_akVF c_akVG))
(t_al1f :: f_akVA a_akVE)
(t_al1g :: f_akVA b_akVF). ((Apply (Apply (Apply LiftA2Sym0 t_al1e) t_al1f) t_al1g :: f_akVA c_akVG)
~
Apply (Apply (Apply LiftA2_6989586621679090424Sym0 t_al1e) t_al1f) t_al1g) =>
Sing t_al1e
-> Sing t_al1f
-> Sing t_al1g
-> Sing (Apply (Apply (Apply LiftA2Sym0 t_al1e) t_al1f) t_al1g :: f_akVA c_akVG)
default (%*>) ::
forall a_akVH
b_akVI
(t_al1k :: f_akVA a_akVH)
(t_al1l :: f_akVA b_akVI). ((Apply (Apply (*>@#@$) t_al1k) t_al1l :: f_akVA b_akVI)
~
Apply (Apply TFHelper_6989586621679090440Sym0 t_al1k) t_al1l) =>
Sing t_al1k
-> Sing t_al1l
-> Sing (Apply (Apply (*>@#@$) t_al1k) t_al1l :: f_akVA b_akVI)
default (%<*) ::
forall a_akVJ
b_akVK
(t_al1o :: f_akVA a_akVJ)
(t_al1p :: f_akVA b_akVK). ((Apply (Apply (<*@#@$) t_al1o) t_al1p :: f_akVA a_akVJ)
~
Apply (Apply TFHelper_6989586621679090451Sym0 t_al1o) t_al1p) =>
Sing t_al1o
-> Sing t_al1p
-> Sing (Apply (Apply (<*@#@$) t_al1o) t_al1p :: f_akVA a_akVJ)
(%<*>)
(sA_6989586621679090410 :: Sing a_6989586621679090410_akYr)
(sA_6989586621679090412 :: Sing a_6989586621679090412_akYs)
= (applySing
((applySing
((applySing ((singFun3 @LiftA2Sym0) sLiftA2))
((singFun1 @IdSym0) sId)))
sA_6989586621679090410))
sA_6989586621679090412
sLiftA2
(sF :: Sing f_akYH)
(sX :: Sing x_akYI)
(sA_6989586621679090426 :: Sing a_6989586621679090426_akYJ)
= (applySing
((applySing ((singFun2 @(<*>@#@$)) (%<*>)))
((applySing ((applySing ((singFun2 @FmapSym0) sFmap)) sF)) sX)))
sA_6989586621679090426
(%*>) (sA1 :: Sing a1_akYT) (sA2 :: Sing a2_akYU)
= (applySing
((applySing ((singFun2 @(<*>@#@$)) (%<*>)))
((applySing
((applySing ((singFun2 @(<$@#@$)) (%<$)))
((singFun1 @IdSym0) sId)))
sA1)))
sA2
(%<*)
(sA_6989586621679090453 :: Sing a_6989586621679090453_akZ8)
(sA_6989586621679090455 :: Sing a_6989586621679090455_akZ9)
= (applySing
((applySing
((applySing ((singFun3 @LiftA2Sym0) sLiftA2))
((singFun2 @ConstSym0) sConst)))
sA_6989586621679090453))
sA_6989586621679090455
class SApplicative m_akVV => SMonad m_akVV where
(%>>=) ::
forall a_akVW
b_akVX
(t_al1z :: m_akVV a_akVW)
(t_al1A :: (~>) a_akVW (m_akVV b_akVX)). Sing t_al1z
-> Sing t_al1A
-> Sing (Apply (Apply (>>=@#@$) t_al1z) t_al1A :: m_akVV b_akVX)
(%>>) ::
forall a_akVY
b_akVZ
(t_al1D :: m_akVV a_akVY)
(t_al1E :: m_akVV b_akVZ). Sing t_al1D
-> Sing t_al1E
-> Sing (Apply (Apply (>>@#@$) t_al1D) t_al1E :: m_akVV b_akVZ)
sReturn ::
forall a_akW0 (t_al1H :: a_akW0). Sing t_al1H
-> Sing (Apply ReturnSym0 t_al1H :: m_akVV a_akW0)
default (%>>) ::
forall a_akVY
b_akVZ
(t_al1D :: m_akVV a_akVY)
(t_al1E :: m_akVV b_akVZ). ((Apply (Apply (>>@#@$) t_al1D) t_al1E :: m_akVV b_akVZ)
~
Apply (Apply TFHelper_6989586621679090479Sym0 t_al1D) t_al1E) =>
Sing t_al1D
-> Sing t_al1E
-> Sing (Apply (Apply (>>@#@$) t_al1D) t_al1E :: m_akVV b_akVZ)
default sReturn ::
forall a_akW0
(t_al1H :: a_akW0). ((Apply ReturnSym0 t_al1H :: m_akVV a_akW0)
~ Apply Return_6989586621679090496Sym0 t_al1H) =>
Sing t_al1H
-> Sing (Apply ReturnSym0 t_al1H :: m_akVV a_akW0)
(%>>) (sM :: Sing m_akZw) (sK :: Sing k_akZx)
= (applySing ((applySing ((singFun2 @(>>=@#@$)) (%>>=))) sM))
((singFun1
@(Apply (Apply Lambda_6989586621679090488Sym0 m_akZw) k_akZx))
(\ sArg_6989586621679090288
-> case sArg_6989586621679090288 of {
(_ :: Sing arg_6989586621679090288_akZA)
-> (id
@(Sing (Case_6989586621679090491_akZC arg_6989586621679090288_akZA m_akZw k_akZx arg_6989586621679090288_akZA)))
(case sArg_6989586621679090288 of { _ -> sK }) }))
sReturn (sA_6989586621679090498 :: Sing a_6989586621679090498_akZN)
= (applySing ((singFun1 @PureSym0) sPure)) sA_6989586621679090498
class SApplicative f_akWe => SAlternative f_akWe where
sEmpty :: forall a_akWf. Sing (EmptySym0 :: f_akWe a_akWf)
(%<|>) ::
forall a_akWg
(t_al1M :: f_akWe a_akWg)
(t_al1N :: f_akWe a_akWg). Sing t_al1M
-> Sing t_al1N
-> Sing (Apply (Apply (<|>@#@$) t_al1M) t_al1N :: f_akWe a_akWg)
class (SAlternative m_akWh,
SMonad m_akWh) => SMonadPlus m_akWh where
sMzero :: forall a_akWi. Sing (MzeroSym0 :: m_akWh a_akWi)
sMplus ::
forall a_akWj
(t_al1Q :: m_akWh a_akWj)
(t_al1R :: m_akWh a_akWj). Sing t_al1Q
-> Sing t_al1R
-> Sing (Apply (Apply MplusSym0 t_al1Q) t_al1R :: m_akWh a_akWj)
default sMzero ::
forall a_akWi. ((MzeroSym0 :: m_akWh a_akWi)
~ Mzero_6989586621679090516Sym0) =>
Sing (MzeroSym0 :: m_akWh a_akWi)
default sMplus ::
forall a_akWj
(t_al1Q :: m_akWh a_akWj)
(t_al1R :: m_akWh a_akWj). ((Apply (Apply MplusSym0 t_al1Q) t_al1R :: m_akWh a_akWj)
~
Apply (Apply Mplus_6989586621679090521Sym0 t_al1Q) t_al1R) =>
Sing t_al1Q
-> Sing t_al1R
-> Sing (Apply (Apply MplusSym0 t_al1Q) t_al1R :: m_akWh a_akWj)
sMzero = sEmpty
sMplus
(sA_6989586621679090523 :: Sing a_6989586621679090523_al0g)
(sA_6989586621679090525 :: Sing a_6989586621679090525_al0h)
= (applySing
((applySing ((singFun2 @(<|>@#@$)) (%<|>)))
sA_6989586621679090523))
sA_6989586621679090525
instance SFunctor f_akVv =>
SingI (FmapSym0 :: (~>) ((~>) a_akVw b_akVx) ((~>) (f_akVv a_akVw) (f_akVv b_akVx))) where
sing = (singFun2 @FmapSym0) sFmap
instance (SFunctor f_akVv, SingI d_al0V) =>
SingI (FmapSym1 (d_al0V :: (~>) a_akVw b_akVx) :: (~>) (f_akVv a_akVw) (f_akVv b_akVx)) where
sing
= (singFun1 @(FmapSym1 (d_al0V :: (~>) a_akVw b_akVx)))
(sFmap (sing @d_al0V))
instance SFunctor f_akVv =>
SingI ((<$@#@$) :: (~>) a_akVy ((~>) (f_akVv b_akVz) (f_akVv a_akVy))) where
sing = (singFun2 @(<$@#@$)) (%<$)
instance (SFunctor f_akVv, SingI d_al0Z) =>
SingI ((<$@#@$$) (d_al0Z :: a_akVy) :: (~>) (f_akVv b_akVz) (f_akVv a_akVy)) where
sing
= (singFun1 @((<$@#@$$) (d_al0Z :: a_akVy))) ((%<$) (sing @d_al0Z))
instance SApplicative f_akVA =>
SingI (PureSym0 :: (~>) a_akVB (f_akVA a_akVB)) where
sing = (singFun1 @PureSym0) sPure
instance SApplicative f_akVA =>
SingI ((<*>@#@$) :: (~>) (f_akVA ((~>) a_akVC b_akVD)) ((~>) (f_akVA a_akVC) (f_akVA b_akVD))) where
sing = (singFun2 @(<*>@#@$)) (%<*>)
instance (SApplicative f_akVA, SingI d_al1c) =>
SingI ((<*>@#@$$) (d_al1c :: f_akVA ((~>) a_akVC b_akVD)) :: (~>) (f_akVA a_akVC) (f_akVA b_akVD)) where
sing
= (singFun1 @((<*>@#@$$) (d_al1c :: f_akVA ((~>) a_akVC b_akVD))))
((%<*>) (sing @d_al1c))
instance SApplicative f_akVA =>
SingI (LiftA2Sym0 :: (~>) ((~>) a_akVE ((~>) b_akVF c_akVG)) ((~>) (f_akVA a_akVE) ((~>) (f_akVA b_akVF) (f_akVA c_akVG)))) where
sing = (singFun3 @LiftA2Sym0) sLiftA2
instance (SApplicative f_akVA, SingI d_al1h) =>
SingI (LiftA2Sym1 (d_al1h :: (~>) a_akVE ((~>) b_akVF c_akVG)) :: (~>) (f_akVA a_akVE) ((~>) (f_akVA b_akVF) (f_akVA c_akVG))) where
sing
= (singFun2
@(LiftA2Sym1 (d_al1h :: (~>) a_akVE ((~>) b_akVF c_akVG))))
(sLiftA2 (sing @d_al1h))
instance (SApplicative f_akVA, SingI d_al1h, SingI d_al1i) =>
SingI (LiftA2Sym2 (d_al1h :: (~>) a_akVE ((~>) b_akVF c_akVG)) (d_al1i :: f_akVA a_akVE) :: (~>) (f_akVA b_akVF) (f_akVA c_akVG)) where
sing
= (singFun1
@(LiftA2Sym2 (d_al1h :: (~>) a_akVE ((~>) b_akVF c_akVG)) (d_al1i :: f_akVA a_akVE)))
((sLiftA2 (sing @d_al1h)) (sing @d_al1i))
instance SApplicative f_akVA =>
SingI ((*>@#@$) :: (~>) (f_akVA a_akVH) ((~>) (f_akVA b_akVI) (f_akVA b_akVI))) where
sing = (singFun2 @(*>@#@$)) (%*>)
instance (SApplicative f_akVA, SingI d_al1m) =>
SingI ((*>@#@$$) (d_al1m :: f_akVA a_akVH) :: (~>) (f_akVA b_akVI) (f_akVA b_akVI)) where
sing
= (singFun1 @((*>@#@$$) (d_al1m :: f_akVA a_akVH)))
((%*>) (sing @d_al1m))
instance SApplicative f_akVA =>
SingI ((<*@#@$) :: (~>) (f_akVA a_akVJ) ((~>) (f_akVA b_akVK) (f_akVA a_akVJ))) where
sing = (singFun2 @(<*@#@$)) (%<*)
instance (SApplicative f_akVA, SingI d_al1q) =>
SingI ((<*@#@$$) (d_al1q :: f_akVA a_akVJ) :: (~>) (f_akVA b_akVK) (f_akVA a_akVJ)) where
sing
= (singFun1 @((<*@#@$$) (d_al1q :: f_akVA a_akVJ)))
((%<*) (sing @d_al1q))
instance SMonad m_akVV =>
SingI ((>>=@#@$) :: (~>) (m_akVV a_akVW) ((~>) ((~>) a_akVW (m_akVV b_akVX)) (m_akVV b_akVX))) where
sing = (singFun2 @(>>=@#@$)) (%>>=)
instance (SMonad m_akVV, SingI d_al1B) =>
SingI ((>>=@#@$$) (d_al1B :: m_akVV a_akVW) :: (~>) ((~>) a_akVW (m_akVV b_akVX)) (m_akVV b_akVX)) where
sing
= (singFun1 @((>>=@#@$$) (d_al1B :: m_akVV a_akVW)))
((%>>=) (sing @d_al1B))
instance SMonad m_akVV =>
SingI ((>>@#@$) :: (~>) (m_akVV a_akVY) ((~>) (m_akVV b_akVZ) (m_akVV b_akVZ))) where
sing = (singFun2 @(>>@#@$)) (%>>)
instance (SMonad m_akVV, SingI d_al1F) =>
SingI ((>>@#@$$) (d_al1F :: m_akVV a_akVY) :: (~>) (m_akVV b_akVZ) (m_akVV b_akVZ)) where
sing
= (singFun1 @((>>@#@$$) (d_al1F :: m_akVV a_akVY)))
((%>>) (sing @d_al1F))
instance SMonad m_akVV =>
SingI (ReturnSym0 :: (~>) a_akW0 (m_akVV a_akW0)) where
sing = (singFun1 @ReturnSym0) sReturn
instance SAlternative f_akWe =>
SingI ((<|>@#@$) :: (~>) (f_akWe a_akWg) ((~>) (f_akWe a_akWg) (f_akWe a_akWg))) where
sing = (singFun2 @(<|>@#@$)) (%<|>)
instance (SAlternative f_akWe, SingI d_al1O) =>
SingI ((<|>@#@$$) (d_al1O :: f_akWe a_akWg) :: (~>) (f_akWe a_akWg) (f_akWe a_akWg)) where
sing
= (singFun1 @((<|>@#@$$) (d_al1O :: f_akWe a_akWg)))
((%<|>) (sing @d_al1O))
instance SMonadPlus m_akWh =>
SingI (MplusSym0 :: (~>) (m_akWh a_akWj) ((~>) (m_akWh a_akWj) (m_akWh a_akWj))) where
sing = (singFun2 @MplusSym0) sMplus
instance (SMonadPlus m_akWh, SingI d_al1S) =>
SingI (MplusSym1 (d_al1S :: m_akWh a_akWj) :: (~>) (m_akWh a_akWj) (m_akWh a_akWj)) where
sing
= (singFun1 @(MplusSym1 (d_al1S :: m_akWh a_akWj)))
(sMplus (sing @d_al1S))
type VoidSym0 :: (~>) (f_aqp9 a_aqpa) (f_aqp9 ())
data VoidSym0 :: (~>) (f_aqp9 a_aqpa) (f_aqp9 ())
where
VoidSym0KindInference :: SameKind (Apply VoidSym0 arg_aquG) (VoidSym1 arg_aquG) =>
VoidSym0 a6989586621679111639
type instance Apply VoidSym0 a6989586621679111639 = Void a6989586621679111639
instance SuppressUnusedWarnings VoidSym0 where
suppressUnusedWarnings = snd (((,) VoidSym0KindInference) ())
type VoidSym1 :: f_aqp9 a_aqpa -> f_aqp9 ()
type family VoidSym1 (a6989586621679111639 :: f_aqp9 a_aqpa) :: f_aqp9 () where
VoidSym1 a6989586621679111639 = Void a6989586621679111639
type ($>@#@$) :: (~>) (f_aqpb a_aqpc) ((~>) b_aqpd (f_aqpb b_aqpd))
data ($>@#@$) :: (~>) (f_aqpb a_aqpc) ((~>) b_aqpd (f_aqpb b_aqpd))
where
(:$>@#@$###) :: SameKind (Apply ($>@#@$) arg_aquP) (($>@#@$$) arg_aquP) =>
($>@#@$) a6989586621679111648
type instance Apply ($>@#@$) a6989586621679111648 = ($>@#@$$) a6989586621679111648
instance SuppressUnusedWarnings ($>@#@$) where
suppressUnusedWarnings = snd (((,) (:$>@#@$###)) ())
infixl 4 $>@#@$
type ($>@#@$$) :: f_aqpb a_aqpc -> (~>) b_aqpd (f_aqpb b_aqpd)
data ($>@#@$$) (a6989586621679111648 :: f_aqpb a_aqpc) :: (~>) b_aqpd (f_aqpb b_aqpd)
where
(:$>@#@$$###) :: SameKind (Apply (($>@#@$$) a6989586621679111648) arg_aquP) (($>@#@$$$) a6989586621679111648 arg_aquP) =>
($>@#@$$) a6989586621679111648 a6989586621679111649
type instance Apply (($>@#@$$) a6989586621679111648) a6989586621679111649 = ($>) a6989586621679111648 a6989586621679111649
instance SuppressUnusedWarnings (($>@#@$$) a6989586621679111648) where
suppressUnusedWarnings = snd (((,) (:$>@#@$$###)) ())
infixl 4 $>@#@$$
type ($>@#@$$$) :: f_aqpb a_aqpc -> b_aqpd -> f_aqpb b_aqpd
type family ($>@#@$$$) (a6989586621679111648 :: f_aqpb a_aqpc) (a6989586621679111649 :: b_aqpd) :: f_aqpb b_aqpd where
($>@#@$$$) a6989586621679111648 a6989586621679111649 = ($>) a6989586621679111648 a6989586621679111649
infixl 4 $>@#@$$$
type (<&>@#@$) :: (~>) (f_aqpe a_aqpf) ((~>) ((~>) a_aqpf b_aqpg) (f_aqpe b_aqpg))
data (<&>@#@$) :: (~>) (f_aqpe a_aqpf) ((~>) ((~>) a_aqpf b_aqpg) (f_aqpe b_aqpg))
where
(:<&>@#@$###) :: SameKind (Apply (<&>@#@$) arg_aquW) ((<&>@#@$$) arg_aquW) =>
(<&>@#@$) a6989586621679111655
type instance Apply (<&>@#@$) a6989586621679111655 = (<&>@#@$$) a6989586621679111655
instance SuppressUnusedWarnings (<&>@#@$) where
suppressUnusedWarnings = snd (((,) (:<&>@#@$###)) ())
infixl 1 <&>@#@$
type (<&>@#@$$) :: f_aqpe a_aqpf
-> (~>) ((~>) a_aqpf b_aqpg) (f_aqpe b_aqpg)
data (<&>@#@$$) (a6989586621679111655 :: f_aqpe a_aqpf) :: (~>) ((~>) a_aqpf b_aqpg) (f_aqpe b_aqpg)
where
(:<&>@#@$$###) :: SameKind (Apply ((<&>@#@$$) a6989586621679111655) arg_aquW) ((<&>@#@$$$) a6989586621679111655 arg_aquW) =>
(<&>@#@$$) a6989586621679111655 a6989586621679111656
type instance Apply ((<&>@#@$$) a6989586621679111655) a6989586621679111656 = (<&>) a6989586621679111655 a6989586621679111656
instance SuppressUnusedWarnings ((<&>@#@$$) a6989586621679111655) where
suppressUnusedWarnings = snd (((,) (:<&>@#@$$###)) ())
infixl 1 <&>@#@$$
type (<&>@#@$$$) :: f_aqpe a_aqpf
-> (~>) a_aqpf b_aqpg -> f_aqpe b_aqpg
type family (<&>@#@$$$) (a6989586621679111655 :: f_aqpe a_aqpf) (a6989586621679111656 :: (~>) a_aqpf b_aqpg) :: f_aqpe b_aqpg where
(<&>@#@$$$) a6989586621679111655 a6989586621679111656 = (<&>) a6989586621679111655 a6989586621679111656
infixl 1 <&>@#@$$$
type (<$>@#@$) :: (~>) ((~>) a_aqpi b_aqpj) ((~>) (f_aqph a_aqpi) (f_aqph b_aqpj))
data (<$>@#@$) :: (~>) ((~>) a_aqpi b_aqpj) ((~>) (f_aqph a_aqpi) (f_aqph b_aqpj))
where
(:<$>@#@$###) :: SameKind (Apply (<$>@#@$) arg_aqv7) ((<$>@#@$$) arg_aqv7) =>
(<$>@#@$) a6989586621679111666
type instance Apply (<$>@#@$) a6989586621679111666 = (<$>@#@$$) a6989586621679111666
instance SuppressUnusedWarnings (<$>@#@$) where
suppressUnusedWarnings = snd (((,) (:<$>@#@$###)) ())
infixl 4 <$>@#@$
type (<$>@#@$$) :: (~>) a_aqpi b_aqpj
-> (~>) (f_aqph a_aqpi) (f_aqph b_aqpj)
data (<$>@#@$$) (a6989586621679111666 :: (~>) a_aqpi b_aqpj) :: (~>) (f_aqph a_aqpi) (f_aqph b_aqpj)
where
(:<$>@#@$$###) :: SameKind (Apply ((<$>@#@$$) a6989586621679111666) arg_aqv7) ((<$>@#@$$$) a6989586621679111666 arg_aqv7) =>
(<$>@#@$$) a6989586621679111666 a6989586621679111667
type instance Apply ((<$>@#@$$) a6989586621679111666) a6989586621679111667 = (<$>) a6989586621679111666 a6989586621679111667
instance SuppressUnusedWarnings ((<$>@#@$$) a6989586621679111666) where
suppressUnusedWarnings = snd (((,) (:<$>@#@$$###)) ())
infixl 4 <$>@#@$$
type (<$>@#@$$$) :: (~>) a_aqpi b_aqpj
-> f_aqph a_aqpi -> f_aqph b_aqpj
type family (<$>@#@$$$) (a6989586621679111666 :: (~>) a_aqpi b_aqpj) (a6989586621679111667 :: f_aqph a_aqpi) :: f_aqph b_aqpj where
(<$>@#@$$$) a6989586621679111666 a6989586621679111667 = (<$>) a6989586621679111666 a6989586621679111667
infixl 4 <$>@#@$$$
type Void :: f_aqp9 a_aqpa -> f_aqp9 ()
type family Void (a_aquF :: f_aqp9 a_aqpa) :: f_aqp9 () where
Void x_aquI = Apply (Apply (<$@#@$) Tuple0Sym0) x_aquI
type ($>) :: f_aqpb a_aqpc -> b_aqpd -> f_aqpb b_aqpd
type family ($>) (a_aquN :: f_aqpb a_aqpc) (a_aquO :: b_aqpd) :: f_aqpb b_aqpd where
($>) a_6989586621679111641_aquS a_6989586621679111643_aquT = Apply (Apply (Apply FlipSym0 (<$@#@$)) a_6989586621679111641_aquS) a_6989586621679111643_aquT
type (<&>) :: f_aqpe a_aqpf -> (~>) a_aqpf b_aqpg -> f_aqpe b_aqpg
type family (<&>) (a_aquU :: f_aqpe a_aqpf) (a_aquV :: (~>) a_aqpf b_aqpg) :: f_aqpe b_aqpg where
(<&>) as_aquZ f_aqv0 = Apply (Apply (<$>@#@$) f_aqv0) as_aquZ
type (<$>) :: (~>) a_aqpi b_aqpj -> f_aqph a_aqpi -> f_aqph b_aqpj
type family (<$>) (a_aqv5 :: (~>) a_aqpi b_aqpj) (a_aqv6 :: f_aqph a_aqpi) :: f_aqph b_aqpj where
(<$>) a_6989586621679111659_aqva a_6989586621679111661_aqvb = Apply (Apply FmapSym0 a_6989586621679111659_aqva) a_6989586621679111661_aqvb
infixl 1 <&>
infixl 4 $>
infixl 4 <$>
type family Lambda_6989586621679111682_aqvp _f_6989586621679111561_aqvl a_6989586621679111567_aqvm a_6989586621679111569_aqvn n_6989586621679111565_aqvq where
Lambda_6989586621679111682_aqvp _f_6989586621679111561_aqvl a_6989586621679111567_aqvm a_6989586621679111569_aqvn n_6989586621679111565_aqvq = n_6989586621679111565_aqvq
data Lambda_6989586621679111682Sym0 _f_69895866216791115616989586621679111679
where
Lambda_6989586621679111682Sym0KindInference :: SameKind (Apply Lambda_6989586621679111682Sym0 arg_aqvr) (Lambda_6989586621679111682Sym1 arg_aqvr) =>
Lambda_6989586621679111682Sym0 _f_69895866216791115616989586621679111679
type instance Apply Lambda_6989586621679111682Sym0 _f_69895866216791115616989586621679111679 = Lambda_6989586621679111682Sym1 _f_69895866216791115616989586621679111679
instance SuppressUnusedWarnings Lambda_6989586621679111682Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111682Sym0KindInference) ())
data Lambda_6989586621679111682Sym1 _f_69895866216791115616989586621679111679 a_69895866216791115676989586621679111680
where
Lambda_6989586621679111682Sym1KindInference :: SameKind (Apply (Lambda_6989586621679111682Sym1 _f_69895866216791115616989586621679111679) arg_aqvr) (Lambda_6989586621679111682Sym2 _f_69895866216791115616989586621679111679 arg_aqvr) =>
Lambda_6989586621679111682Sym1 _f_69895866216791115616989586621679111679 a_69895866216791115676989586621679111680
type instance Apply (Lambda_6989586621679111682Sym1 _f_69895866216791115616989586621679111679) a_69895866216791115676989586621679111680 = Lambda_6989586621679111682Sym2 _f_69895866216791115616989586621679111679 a_69895866216791115676989586621679111680
instance SuppressUnusedWarnings (Lambda_6989586621679111682Sym1 _f_69895866216791115616989586621679111679) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111682Sym1KindInference) ())
data Lambda_6989586621679111682Sym2 _f_69895866216791115616989586621679111679 a_69895866216791115676989586621679111680 a_69895866216791115696989586621679111681
where
Lambda_6989586621679111682Sym2KindInference :: SameKind (Apply (Lambda_6989586621679111682Sym2 _f_69895866216791115616989586621679111679 a_69895866216791115676989586621679111680) arg_aqvr) (Lambda_6989586621679111682Sym3 _f_69895866216791115616989586621679111679 a_69895866216791115676989586621679111680 arg_aqvr) =>
Lambda_6989586621679111682Sym2 _f_69895866216791115616989586621679111679 a_69895866216791115676989586621679111680 a_69895866216791115696989586621679111681
type instance Apply (Lambda_6989586621679111682Sym2 _f_69895866216791115616989586621679111679 a_69895866216791115676989586621679111680) a_69895866216791115696989586621679111681 = Lambda_6989586621679111682Sym3 _f_69895866216791115616989586621679111679 a_69895866216791115676989586621679111680 a_69895866216791115696989586621679111681
instance SuppressUnusedWarnings (Lambda_6989586621679111682Sym2 _f_69895866216791115616989586621679111679 a_69895866216791115676989586621679111680) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111682Sym2KindInference) ())
data Lambda_6989586621679111682Sym3 _f_69895866216791115616989586621679111679 a_69895866216791115676989586621679111680 a_69895866216791115696989586621679111681 n_69895866216791115656989586621679111684
where
Lambda_6989586621679111682Sym3KindInference :: SameKind (Apply (Lambda_6989586621679111682Sym3 _f_69895866216791115616989586621679111679 a_69895866216791115676989586621679111680 a_69895866216791115696989586621679111681) arg_aqvr) (Lambda_6989586621679111682Sym4 _f_69895866216791115616989586621679111679 a_69895866216791115676989586621679111680 a_69895866216791115696989586621679111681 arg_aqvr) =>
Lambda_6989586621679111682Sym3 _f_69895866216791115616989586621679111679 a_69895866216791115676989586621679111680 a_69895866216791115696989586621679111681 n_69895866216791115656989586621679111684
type instance Apply (Lambda_6989586621679111682Sym3 _f_69895866216791115616989586621679111679 a_69895866216791115676989586621679111680 a_69895866216791115696989586621679111681) n_69895866216791115656989586621679111684 = Lambda_6989586621679111682_aqvp _f_69895866216791115616989586621679111679 a_69895866216791115676989586621679111680 a_69895866216791115696989586621679111681 n_69895866216791115656989586621679111684
instance SuppressUnusedWarnings (Lambda_6989586621679111682Sym3 _f_69895866216791115616989586621679111679 a_69895866216791115676989586621679111680 a_69895866216791115696989586621679111681) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111682Sym3KindInference) ())
type family Lambda_6989586621679111682Sym4 _f_69895866216791115616989586621679111679 a_69895866216791115676989586621679111680 a_69895866216791115696989586621679111681 n_69895866216791115656989586621679111684 where
Lambda_6989586621679111682Sym4 _f_69895866216791115616989586621679111679 a_69895866216791115676989586621679111680 a_69895866216791115696989586621679111681 n_69895866216791115656989586621679111684 = Lambda_6989586621679111682_aqvp _f_69895866216791115616989586621679111679 a_69895866216791115676989586621679111680 a_69895866216791115696989586621679111681 n_69895866216791115656989586621679111684
type Fmap_6989586621679111672 :: (~>) a_akVw b_akVx
-> (a_aqpr, a_akVw) -> (a_aqpr, b_akVx)
type family Fmap_6989586621679111672 (a_aqvg :: (~>) a_akVw b_akVx) (a_aqvh :: (a_aqpr,
a_akVw)) :: (a_aqpr,
b_akVx) where
Fmap_6989586621679111672 _f_6989586621679111561_aqvl '(a_6989586621679111567_aqvm,
a_6989586621679111569_aqvn) = Apply (Apply Tuple2Sym0 (Apply (Apply (Apply (Apply Lambda_6989586621679111682Sym0 _f_6989586621679111561_aqvl) a_6989586621679111567_aqvm) a_6989586621679111569_aqvn) a_6989586621679111567_aqvm)) (Apply _f_6989586621679111561_aqvl a_6989586621679111569_aqvn)
type Fmap_6989586621679111672Sym0 :: (~>) ((~>) a_akVw b_akVx) ((~>) (a_aqpr,
a_akVw) (a_aqpr, b_akVx))
data Fmap_6989586621679111672Sym0 :: (~>) ((~>) a_akVw b_akVx) ((~>) (a_aqpr,
a_akVw) (a_aqpr, b_akVx))
where
Fmap_6989586621679111672Sym0KindInference :: SameKind (Apply Fmap_6989586621679111672Sym0 arg_aqvi) (Fmap_6989586621679111672Sym1 arg_aqvi) =>
Fmap_6989586621679111672Sym0 a6989586621679111677
type instance Apply Fmap_6989586621679111672Sym0 a6989586621679111677 = Fmap_6989586621679111672Sym1 a6989586621679111677
instance SuppressUnusedWarnings Fmap_6989586621679111672Sym0 where
suppressUnusedWarnings
= snd (((,) Fmap_6989586621679111672Sym0KindInference) ())
type Fmap_6989586621679111672Sym1 :: (~>) a_akVw b_akVx
-> (~>) (a_aqpr, a_akVw) (a_aqpr, b_akVx)
data Fmap_6989586621679111672Sym1 (a6989586621679111677 :: (~>) a_akVw b_akVx) :: (~>) (a_aqpr,
a_akVw) (a_aqpr,
b_akVx)
where
Fmap_6989586621679111672Sym1KindInference :: SameKind (Apply (Fmap_6989586621679111672Sym1 a6989586621679111677) arg_aqvi) (Fmap_6989586621679111672Sym2 a6989586621679111677 arg_aqvi) =>
Fmap_6989586621679111672Sym1 a6989586621679111677 a6989586621679111678
type instance Apply (Fmap_6989586621679111672Sym1 a6989586621679111677) a6989586621679111678 = Fmap_6989586621679111672 a6989586621679111677 a6989586621679111678
instance SuppressUnusedWarnings (Fmap_6989586621679111672Sym1 a6989586621679111677) where
suppressUnusedWarnings
= snd (((,) Fmap_6989586621679111672Sym1KindInference) ())
type Fmap_6989586621679111672Sym2 :: (~>) a_akVw b_akVx
-> (a_aqpr, a_akVw) -> (a_aqpr, b_akVx)
type family Fmap_6989586621679111672Sym2 (a6989586621679111677 :: (~>) a_akVw b_akVx) (a6989586621679111678 :: (a_aqpr,
a_akVw)) :: (a_aqpr,
b_akVx) where
Fmap_6989586621679111672Sym2 a6989586621679111677 a6989586621679111678 = Fmap_6989586621679111672 a6989586621679111677 a6989586621679111678
type family Lambda_6989586621679111698_aqvF _z_6989586621679111563_aqvB a_6989586621679111575_aqvC a_6989586621679111577_aqvD n_6989586621679111571_aqvG where
Lambda_6989586621679111698_aqvF _z_6989586621679111563_aqvB a_6989586621679111575_aqvC a_6989586621679111577_aqvD n_6989586621679111571_aqvG = n_6989586621679111571_aqvG
data Lambda_6989586621679111698Sym0 _z_69895866216791115636989586621679111695
where
Lambda_6989586621679111698Sym0KindInference :: SameKind (Apply Lambda_6989586621679111698Sym0 arg_aqvH) (Lambda_6989586621679111698Sym1 arg_aqvH) =>
Lambda_6989586621679111698Sym0 _z_69895866216791115636989586621679111695
type instance Apply Lambda_6989586621679111698Sym0 _z_69895866216791115636989586621679111695 = Lambda_6989586621679111698Sym1 _z_69895866216791115636989586621679111695
instance SuppressUnusedWarnings Lambda_6989586621679111698Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111698Sym0KindInference) ())
data Lambda_6989586621679111698Sym1 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696
where
Lambda_6989586621679111698Sym1KindInference :: SameKind (Apply (Lambda_6989586621679111698Sym1 _z_69895866216791115636989586621679111695) arg_aqvH) (Lambda_6989586621679111698Sym2 _z_69895866216791115636989586621679111695 arg_aqvH) =>
Lambda_6989586621679111698Sym1 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696
type instance Apply (Lambda_6989586621679111698Sym1 _z_69895866216791115636989586621679111695) a_69895866216791115756989586621679111696 = Lambda_6989586621679111698Sym2 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696
instance SuppressUnusedWarnings (Lambda_6989586621679111698Sym1 _z_69895866216791115636989586621679111695) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111698Sym1KindInference) ())
data Lambda_6989586621679111698Sym2 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697
where
Lambda_6989586621679111698Sym2KindInference :: SameKind (Apply (Lambda_6989586621679111698Sym2 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696) arg_aqvH) (Lambda_6989586621679111698Sym3 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 arg_aqvH) =>
Lambda_6989586621679111698Sym2 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697
type instance Apply (Lambda_6989586621679111698Sym2 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696) a_69895866216791115776989586621679111697 = Lambda_6989586621679111698Sym3 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697
instance SuppressUnusedWarnings (Lambda_6989586621679111698Sym2 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111698Sym2KindInference) ())
data Lambda_6989586621679111698Sym3 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697 n_69895866216791115716989586621679111700
where
Lambda_6989586621679111698Sym3KindInference :: SameKind (Apply (Lambda_6989586621679111698Sym3 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697) arg_aqvH) (Lambda_6989586621679111698Sym4 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697 arg_aqvH) =>
Lambda_6989586621679111698Sym3 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697 n_69895866216791115716989586621679111700
type instance Apply (Lambda_6989586621679111698Sym3 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697) n_69895866216791115716989586621679111700 = Lambda_6989586621679111698_aqvF _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697 n_69895866216791115716989586621679111700
instance SuppressUnusedWarnings (Lambda_6989586621679111698Sym3 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111698Sym3KindInference) ())
type family Lambda_6989586621679111698Sym4 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697 n_69895866216791115716989586621679111700 where
Lambda_6989586621679111698Sym4 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697 n_69895866216791115716989586621679111700 = Lambda_6989586621679111698_aqvF _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697 n_69895866216791115716989586621679111700
type family Lambda_6989586621679111702_aqvJ _z_6989586621679111563_aqvB a_6989586621679111575_aqvC a_6989586621679111577_aqvD n_6989586621679111573_aqvK where
Lambda_6989586621679111702_aqvJ _z_6989586621679111563_aqvB a_6989586621679111575_aqvC a_6989586621679111577_aqvD n_6989586621679111573_aqvK = _z_6989586621679111563_aqvB
data Lambda_6989586621679111702Sym0 _z_69895866216791115636989586621679111695
where
Lambda_6989586621679111702Sym0KindInference :: SameKind (Apply Lambda_6989586621679111702Sym0 arg_aqvL) (Lambda_6989586621679111702Sym1 arg_aqvL) =>
Lambda_6989586621679111702Sym0 _z_69895866216791115636989586621679111695
type instance Apply Lambda_6989586621679111702Sym0 _z_69895866216791115636989586621679111695 = Lambda_6989586621679111702Sym1 _z_69895866216791115636989586621679111695
instance SuppressUnusedWarnings Lambda_6989586621679111702Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111702Sym0KindInference) ())
data Lambda_6989586621679111702Sym1 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696
where
Lambda_6989586621679111702Sym1KindInference :: SameKind (Apply (Lambda_6989586621679111702Sym1 _z_69895866216791115636989586621679111695) arg_aqvL) (Lambda_6989586621679111702Sym2 _z_69895866216791115636989586621679111695 arg_aqvL) =>
Lambda_6989586621679111702Sym1 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696
type instance Apply (Lambda_6989586621679111702Sym1 _z_69895866216791115636989586621679111695) a_69895866216791115756989586621679111696 = Lambda_6989586621679111702Sym2 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696
instance SuppressUnusedWarnings (Lambda_6989586621679111702Sym1 _z_69895866216791115636989586621679111695) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111702Sym1KindInference) ())
data Lambda_6989586621679111702Sym2 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697
where
Lambda_6989586621679111702Sym2KindInference :: SameKind (Apply (Lambda_6989586621679111702Sym2 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696) arg_aqvL) (Lambda_6989586621679111702Sym3 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 arg_aqvL) =>
Lambda_6989586621679111702Sym2 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697
type instance Apply (Lambda_6989586621679111702Sym2 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696) a_69895866216791115776989586621679111697 = Lambda_6989586621679111702Sym3 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697
instance SuppressUnusedWarnings (Lambda_6989586621679111702Sym2 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111702Sym2KindInference) ())
data Lambda_6989586621679111702Sym3 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697 n_69895866216791115736989586621679111704
where
Lambda_6989586621679111702Sym3KindInference :: SameKind (Apply (Lambda_6989586621679111702Sym3 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697) arg_aqvL) (Lambda_6989586621679111702Sym4 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697 arg_aqvL) =>
Lambda_6989586621679111702Sym3 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697 n_69895866216791115736989586621679111704
type instance Apply (Lambda_6989586621679111702Sym3 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697) n_69895866216791115736989586621679111704 = Lambda_6989586621679111702_aqvJ _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697 n_69895866216791115736989586621679111704
instance SuppressUnusedWarnings (Lambda_6989586621679111702Sym3 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111702Sym3KindInference) ())
type family Lambda_6989586621679111702Sym4 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697 n_69895866216791115736989586621679111704 where
Lambda_6989586621679111702Sym4 _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697 n_69895866216791115736989586621679111704 = Lambda_6989586621679111702_aqvJ _z_69895866216791115636989586621679111695 a_69895866216791115756989586621679111696 a_69895866216791115776989586621679111697 n_69895866216791115736989586621679111704
type TFHelper_6989586621679111688 :: a_akVy
-> (a_aqpr, b_akVz) -> (a_aqpr, a_akVy)
type family TFHelper_6989586621679111688 (a_aqvw :: a_akVy) (a_aqvx :: (a_aqpr,
b_akVz)) :: (a_aqpr,
a_akVy) where
TFHelper_6989586621679111688 _z_6989586621679111563_aqvB '(a_6989586621679111575_aqvC,
a_6989586621679111577_aqvD) = Apply (Apply Tuple2Sym0 (Apply (Apply (Apply (Apply Lambda_6989586621679111698Sym0 _z_6989586621679111563_aqvB) a_6989586621679111575_aqvC) a_6989586621679111577_aqvD) a_6989586621679111575_aqvC)) (Apply (Apply (Apply (Apply Lambda_6989586621679111702Sym0 _z_6989586621679111563_aqvB) a_6989586621679111575_aqvC) a_6989586621679111577_aqvD) a_6989586621679111577_aqvD)
type TFHelper_6989586621679111688Sym0 :: (~>) a_akVy ((~>) (a_aqpr,
b_akVz) (a_aqpr, a_akVy))
data TFHelper_6989586621679111688Sym0 :: (~>) a_akVy ((~>) (a_aqpr,
b_akVz) (a_aqpr, a_akVy))
where
TFHelper_6989586621679111688Sym0KindInference :: SameKind (Apply TFHelper_6989586621679111688Sym0 arg_aqvy) (TFHelper_6989586621679111688Sym1 arg_aqvy) =>
TFHelper_6989586621679111688Sym0 a6989586621679111693
type instance Apply TFHelper_6989586621679111688Sym0 a6989586621679111693 = TFHelper_6989586621679111688Sym1 a6989586621679111693
instance SuppressUnusedWarnings TFHelper_6989586621679111688Sym0 where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679111688Sym0KindInference) ())
type TFHelper_6989586621679111688Sym1 :: a_akVy
-> (~>) (a_aqpr, b_akVz) (a_aqpr, a_akVy)
data TFHelper_6989586621679111688Sym1 (a6989586621679111693 :: a_akVy) :: (~>) (a_aqpr,
b_akVz) (a_aqpr,
a_akVy)
where
TFHelper_6989586621679111688Sym1KindInference :: SameKind (Apply (TFHelper_6989586621679111688Sym1 a6989586621679111693) arg_aqvy) (TFHelper_6989586621679111688Sym2 a6989586621679111693 arg_aqvy) =>
TFHelper_6989586621679111688Sym1 a6989586621679111693 a6989586621679111694
type instance Apply (TFHelper_6989586621679111688Sym1 a6989586621679111693) a6989586621679111694 = TFHelper_6989586621679111688 a6989586621679111693 a6989586621679111694
instance SuppressUnusedWarnings (TFHelper_6989586621679111688Sym1 a6989586621679111693) where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679111688Sym1KindInference) ())
type TFHelper_6989586621679111688Sym2 :: a_akVy
-> (a_aqpr, b_akVz) -> (a_aqpr, a_akVy)
type family TFHelper_6989586621679111688Sym2 (a6989586621679111693 :: a_akVy) (a6989586621679111694 :: (a_aqpr,
b_akVz)) :: (a_aqpr,
a_akVy) where
TFHelper_6989586621679111688Sym2 a6989586621679111693 a6989586621679111694 = TFHelper_6989586621679111688 a6989586621679111693 a6989586621679111694
instance PFunctor ((,) a_aqpr) where
type Fmap a_aqvc a_aqvd = Apply (Apply Fmap_6989586621679111672Sym0 a_aqvc) a_aqvd
type (<$) a_aqvs a_aqvt = Apply (Apply TFHelper_6989586621679111688Sym0 a_aqvs) a_aqvt
type Fmap_6989586621679111708 :: (~>) a_akVw b_akVx
-> [a_akVw] -> [b_akVx]
type family Fmap_6989586621679111708 (a_aqvQ :: (~>) a_akVw b_akVx) (a_aqvR :: [a_akVw]) :: [b_akVx] where
Fmap_6989586621679111708 _f_6989586621679111587_aqvV '[] = NilSym0
Fmap_6989586621679111708 _f_6989586621679111587_aqvW ('(:) a_6989586621679111597_aqvX a_6989586621679111599_aqvY) = Apply (Apply (:@#@$) (Apply _f_6989586621679111587_aqvW a_6989586621679111597_aqvX)) (Apply (Apply FmapSym0 _f_6989586621679111587_aqvW) a_6989586621679111599_aqvY)
type Fmap_6989586621679111708Sym0 :: (~>) ((~>) a_akVw b_akVx) ((~>) [a_akVw] [b_akVx])
data Fmap_6989586621679111708Sym0 :: (~>) ((~>) a_akVw b_akVx) ((~>) [a_akVw] [b_akVx])
where
Fmap_6989586621679111708Sym0KindInference :: SameKind (Apply Fmap_6989586621679111708Sym0 arg_aqvS) (Fmap_6989586621679111708Sym1 arg_aqvS) =>
Fmap_6989586621679111708Sym0 a6989586621679111713
type instance Apply Fmap_6989586621679111708Sym0 a6989586621679111713 = Fmap_6989586621679111708Sym1 a6989586621679111713
instance SuppressUnusedWarnings Fmap_6989586621679111708Sym0 where
suppressUnusedWarnings
= snd (((,) Fmap_6989586621679111708Sym0KindInference) ())
type Fmap_6989586621679111708Sym1 :: (~>) a_akVw b_akVx
-> (~>) [a_akVw] [b_akVx]
data Fmap_6989586621679111708Sym1 (a6989586621679111713 :: (~>) a_akVw b_akVx) :: (~>) [a_akVw] [b_akVx]
where
Fmap_6989586621679111708Sym1KindInference :: SameKind (Apply (Fmap_6989586621679111708Sym1 a6989586621679111713) arg_aqvS) (Fmap_6989586621679111708Sym2 a6989586621679111713 arg_aqvS) =>
Fmap_6989586621679111708Sym1 a6989586621679111713 a6989586621679111714
type instance Apply (Fmap_6989586621679111708Sym1 a6989586621679111713) a6989586621679111714 = Fmap_6989586621679111708 a6989586621679111713 a6989586621679111714
instance SuppressUnusedWarnings (Fmap_6989586621679111708Sym1 a6989586621679111713) where
suppressUnusedWarnings
= snd (((,) Fmap_6989586621679111708Sym1KindInference) ())
type Fmap_6989586621679111708Sym2 :: (~>) a_akVw b_akVx
-> [a_akVw] -> [b_akVx]
type family Fmap_6989586621679111708Sym2 (a6989586621679111713 :: (~>) a_akVw b_akVx) (a6989586621679111714 :: [a_akVw]) :: [b_akVx] where
Fmap_6989586621679111708Sym2 a6989586621679111713 a6989586621679111714 = Fmap_6989586621679111708 a6989586621679111713 a6989586621679111714
type family Lambda_6989586621679111732_aqwd _z_6989586621679111589_aqw9 a_6989586621679111611_aqwa a_6989586621679111613_aqwb n_6989586621679111607_aqwe where
Lambda_6989586621679111732_aqwd _z_6989586621679111589_aqw9 a_6989586621679111611_aqwa a_6989586621679111613_aqwb n_6989586621679111607_aqwe = _z_6989586621679111589_aqw9
data Lambda_6989586621679111732Sym0 _z_69895866216791115896989586621679111729
where
Lambda_6989586621679111732Sym0KindInference :: SameKind (Apply Lambda_6989586621679111732Sym0 arg_aqwf) (Lambda_6989586621679111732Sym1 arg_aqwf) =>
Lambda_6989586621679111732Sym0 _z_69895866216791115896989586621679111729
type instance Apply Lambda_6989586621679111732Sym0 _z_69895866216791115896989586621679111729 = Lambda_6989586621679111732Sym1 _z_69895866216791115896989586621679111729
instance SuppressUnusedWarnings Lambda_6989586621679111732Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111732Sym0KindInference) ())
data Lambda_6989586621679111732Sym1 _z_69895866216791115896989586621679111729 a_69895866216791116116989586621679111730
where
Lambda_6989586621679111732Sym1KindInference :: SameKind (Apply (Lambda_6989586621679111732Sym1 _z_69895866216791115896989586621679111729) arg_aqwf) (Lambda_6989586621679111732Sym2 _z_69895866216791115896989586621679111729 arg_aqwf) =>
Lambda_6989586621679111732Sym1 _z_69895866216791115896989586621679111729 a_69895866216791116116989586621679111730
type instance Apply (Lambda_6989586621679111732Sym1 _z_69895866216791115896989586621679111729) a_69895866216791116116989586621679111730 = Lambda_6989586621679111732Sym2 _z_69895866216791115896989586621679111729 a_69895866216791116116989586621679111730
instance SuppressUnusedWarnings (Lambda_6989586621679111732Sym1 _z_69895866216791115896989586621679111729) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111732Sym1KindInference) ())
data Lambda_6989586621679111732Sym2 _z_69895866216791115896989586621679111729 a_69895866216791116116989586621679111730 a_69895866216791116136989586621679111731
where
Lambda_6989586621679111732Sym2KindInference :: SameKind (Apply (Lambda_6989586621679111732Sym2 _z_69895866216791115896989586621679111729 a_69895866216791116116989586621679111730) arg_aqwf) (Lambda_6989586621679111732Sym3 _z_69895866216791115896989586621679111729 a_69895866216791116116989586621679111730 arg_aqwf) =>
Lambda_6989586621679111732Sym2 _z_69895866216791115896989586621679111729 a_69895866216791116116989586621679111730 a_69895866216791116136989586621679111731
type instance Apply (Lambda_6989586621679111732Sym2 _z_69895866216791115896989586621679111729 a_69895866216791116116989586621679111730) a_69895866216791116136989586621679111731 = Lambda_6989586621679111732Sym3 _z_69895866216791115896989586621679111729 a_69895866216791116116989586621679111730 a_69895866216791116136989586621679111731
instance SuppressUnusedWarnings (Lambda_6989586621679111732Sym2 _z_69895866216791115896989586621679111729 a_69895866216791116116989586621679111730) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111732Sym2KindInference) ())
data Lambda_6989586621679111732Sym3 _z_69895866216791115896989586621679111729 a_69895866216791116116989586621679111730 a_69895866216791116136989586621679111731 n_69895866216791116076989586621679111734
where
Lambda_6989586621679111732Sym3KindInference :: SameKind (Apply (Lambda_6989586621679111732Sym3 _z_69895866216791115896989586621679111729 a_69895866216791116116989586621679111730 a_69895866216791116136989586621679111731) arg_aqwf) (Lambda_6989586621679111732Sym4 _z_69895866216791115896989586621679111729 a_69895866216791116116989586621679111730 a_69895866216791116136989586621679111731 arg_aqwf) =>
Lambda_6989586621679111732Sym3 _z_69895866216791115896989586621679111729 a_69895866216791116116989586621679111730 a_69895866216791116136989586621679111731 n_69895866216791116076989586621679111734
type instance Apply (Lambda_6989586621679111732Sym3 _z_69895866216791115896989586621679111729 a_69895866216791116116989586621679111730 a_69895866216791116136989586621679111731) n_69895866216791116076989586621679111734 = Lambda_6989586621679111732_aqwd _z_69895866216791115896989586621679111729 a_69895866216791116116989586621679111730 a_69895866216791116136989586621679111731 n_69895866216791116076989586621679111734
instance SuppressUnusedWarnings (Lambda_6989586621679111732Sym3 _z_69895866216791115896989586621679111729 a_69895866216791116116989586621679111730 a_69895866216791116136989586621679111731) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111732Sym3KindInference) ())
type family Lambda_6989586621679111732Sym4 _z_69895866216791115896989586621679111729 a_69895866216791116116989586621679111730 a_69895866216791116136989586621679111731 n_69895866216791116076989586621679111734 where
Lambda_6989586621679111732Sym4 _z_69895866216791115896989586621679111729 a_69895866216791116116989586621679111730 a_69895866216791116136989586621679111731 n_69895866216791116076989586621679111734 = Lambda_6989586621679111732_aqwd _z_69895866216791115896989586621679111729 a_69895866216791116116989586621679111730 a_69895866216791116136989586621679111731 n_69895866216791116076989586621679111734
type TFHelper_6989586621679111721 :: a_akVy -> [b_akVz] -> [a_akVy]
type family TFHelper_6989586621679111721 (a_aqw3 :: a_akVy) (a_aqw4 :: [b_akVz]) :: [a_akVy] where
TFHelper_6989586621679111721 _z_6989586621679111589_aqw8 '[] = NilSym0
TFHelper_6989586621679111721 _z_6989586621679111589_aqw9 ('(:) a_6989586621679111611_aqwa a_6989586621679111613_aqwb) = Apply (Apply (:@#@$) (Apply (Apply (Apply (Apply Lambda_6989586621679111732Sym0 _z_6989586621679111589_aqw9) a_6989586621679111611_aqwa) a_6989586621679111613_aqwb) a_6989586621679111611_aqwa)) (Apply (Apply (<$@#@$) _z_6989586621679111589_aqw9) a_6989586621679111613_aqwb)
type TFHelper_6989586621679111721Sym0 :: (~>) a_akVy ((~>) [b_akVz] [a_akVy])
data TFHelper_6989586621679111721Sym0 :: (~>) a_akVy ((~>) [b_akVz] [a_akVy])
where
TFHelper_6989586621679111721Sym0KindInference :: SameKind (Apply TFHelper_6989586621679111721Sym0 arg_aqw5) (TFHelper_6989586621679111721Sym1 arg_aqw5) =>
TFHelper_6989586621679111721Sym0 a6989586621679111726
type instance Apply TFHelper_6989586621679111721Sym0 a6989586621679111726 = TFHelper_6989586621679111721Sym1 a6989586621679111726
instance SuppressUnusedWarnings TFHelper_6989586621679111721Sym0 where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679111721Sym0KindInference) ())
type TFHelper_6989586621679111721Sym1 :: a_akVy
-> (~>) [b_akVz] [a_akVy]
data TFHelper_6989586621679111721Sym1 (a6989586621679111726 :: a_akVy) :: (~>) [b_akVz] [a_akVy]
where
TFHelper_6989586621679111721Sym1KindInference :: SameKind (Apply (TFHelper_6989586621679111721Sym1 a6989586621679111726) arg_aqw5) (TFHelper_6989586621679111721Sym2 a6989586621679111726 arg_aqw5) =>
TFHelper_6989586621679111721Sym1 a6989586621679111726 a6989586621679111727
type instance Apply (TFHelper_6989586621679111721Sym1 a6989586621679111726) a6989586621679111727 = TFHelper_6989586621679111721 a6989586621679111726 a6989586621679111727
instance SuppressUnusedWarnings (TFHelper_6989586621679111721Sym1 a6989586621679111726) where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679111721Sym1KindInference) ())
type TFHelper_6989586621679111721Sym2 :: a_akVy
-> [b_akVz] -> [a_akVy]
type family TFHelper_6989586621679111721Sym2 (a6989586621679111726 :: a_akVy) (a6989586621679111727 :: [b_akVz]) :: [a_akVy] where
TFHelper_6989586621679111721Sym2 a6989586621679111726 a6989586621679111727 = TFHelper_6989586621679111721 a6989586621679111726 a6989586621679111727
instance PFunctor [] where
type Fmap a_aqvM a_aqvN = Apply (Apply Fmap_6989586621679111708Sym0 a_aqvM) a_aqvN
type (<$) a_aqvZ a_aqw0 = Apply (Apply TFHelper_6989586621679111721Sym0 a_aqvZ) a_aqw0
type family Lambda_6989586621679111747_aqws _f_6989586621679111619_aqwp a_6989586621679111625_aqwq n_6989586621679111623_aqwt where
Lambda_6989586621679111747_aqws _f_6989586621679111619_aqwp a_6989586621679111625_aqwq n_6989586621679111623_aqwt = n_6989586621679111623_aqwt
data Lambda_6989586621679111747Sym0 _f_69895866216791116196989586621679111745
where
Lambda_6989586621679111747Sym0KindInference :: SameKind (Apply Lambda_6989586621679111747Sym0 arg_aqwu) (Lambda_6989586621679111747Sym1 arg_aqwu) =>
Lambda_6989586621679111747Sym0 _f_69895866216791116196989586621679111745
type instance Apply Lambda_6989586621679111747Sym0 _f_69895866216791116196989586621679111745 = Lambda_6989586621679111747Sym1 _f_69895866216791116196989586621679111745
instance SuppressUnusedWarnings Lambda_6989586621679111747Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111747Sym0KindInference) ())
data Lambda_6989586621679111747Sym1 _f_69895866216791116196989586621679111745 a_69895866216791116256989586621679111746
where
Lambda_6989586621679111747Sym1KindInference :: SameKind (Apply (Lambda_6989586621679111747Sym1 _f_69895866216791116196989586621679111745) arg_aqwu) (Lambda_6989586621679111747Sym2 _f_69895866216791116196989586621679111745 arg_aqwu) =>
Lambda_6989586621679111747Sym1 _f_69895866216791116196989586621679111745 a_69895866216791116256989586621679111746
type instance Apply (Lambda_6989586621679111747Sym1 _f_69895866216791116196989586621679111745) a_69895866216791116256989586621679111746 = Lambda_6989586621679111747Sym2 _f_69895866216791116196989586621679111745 a_69895866216791116256989586621679111746
instance SuppressUnusedWarnings (Lambda_6989586621679111747Sym1 _f_69895866216791116196989586621679111745) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111747Sym1KindInference) ())
data Lambda_6989586621679111747Sym2 _f_69895866216791116196989586621679111745 a_69895866216791116256989586621679111746 n_69895866216791116236989586621679111749
where
Lambda_6989586621679111747Sym2KindInference :: SameKind (Apply (Lambda_6989586621679111747Sym2 _f_69895866216791116196989586621679111745 a_69895866216791116256989586621679111746) arg_aqwu) (Lambda_6989586621679111747Sym3 _f_69895866216791116196989586621679111745 a_69895866216791116256989586621679111746 arg_aqwu) =>
Lambda_6989586621679111747Sym2 _f_69895866216791116196989586621679111745 a_69895866216791116256989586621679111746 n_69895866216791116236989586621679111749
type instance Apply (Lambda_6989586621679111747Sym2 _f_69895866216791116196989586621679111745 a_69895866216791116256989586621679111746) n_69895866216791116236989586621679111749 = Lambda_6989586621679111747_aqws _f_69895866216791116196989586621679111745 a_69895866216791116256989586621679111746 n_69895866216791116236989586621679111749
instance SuppressUnusedWarnings (Lambda_6989586621679111747Sym2 _f_69895866216791116196989586621679111745 a_69895866216791116256989586621679111746) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111747Sym2KindInference) ())
type family Lambda_6989586621679111747Sym3 _f_69895866216791116196989586621679111745 a_69895866216791116256989586621679111746 n_69895866216791116236989586621679111749 where
Lambda_6989586621679111747Sym3 _f_69895866216791116196989586621679111745 a_69895866216791116256989586621679111746 n_69895866216791116236989586621679111749 = Lambda_6989586621679111747_aqws _f_69895866216791116196989586621679111745 a_69895866216791116256989586621679111746 n_69895866216791116236989586621679111749
type Fmap_6989586621679111738 :: (~>) a_akVw b_akVx
-> Either a_aqps a_akVw -> Either a_aqps b_akVx
type family Fmap_6989586621679111738 (a_aqwk :: (~>) a_akVw b_akVx) (a_aqwl :: Either a_aqps a_akVw) :: Either a_aqps b_akVx where
Fmap_6989586621679111738 _f_6989586621679111619_aqwp ('Left a_6989586621679111625_aqwq) = Apply LeftSym0 (Apply (Apply (Apply Lambda_6989586621679111747Sym0 _f_6989586621679111619_aqwp) a_6989586621679111625_aqwq) a_6989586621679111625_aqwq)
Fmap_6989586621679111738 _f_6989586621679111619_aqwv ('Right a_6989586621679111627_aqww) = Apply RightSym0 (Apply _f_6989586621679111619_aqwv a_6989586621679111627_aqww)
type Fmap_6989586621679111738Sym0 :: (~>) ((~>) a_akVw b_akVx) ((~>) (Either a_aqps a_akVw) (Either a_aqps b_akVx))
data Fmap_6989586621679111738Sym0 :: (~>) ((~>) a_akVw b_akVx) ((~>) (Either a_aqps a_akVw) (Either a_aqps b_akVx))
where
Fmap_6989586621679111738Sym0KindInference :: SameKind (Apply Fmap_6989586621679111738Sym0 arg_aqwm) (Fmap_6989586621679111738Sym1 arg_aqwm) =>
Fmap_6989586621679111738Sym0 a6989586621679111743
type instance Apply Fmap_6989586621679111738Sym0 a6989586621679111743 = Fmap_6989586621679111738Sym1 a6989586621679111743
instance SuppressUnusedWarnings Fmap_6989586621679111738Sym0 where
suppressUnusedWarnings
= snd (((,) Fmap_6989586621679111738Sym0KindInference) ())
type Fmap_6989586621679111738Sym1 :: (~>) a_akVw b_akVx
-> (~>) (Either a_aqps a_akVw) (Either a_aqps b_akVx)
data Fmap_6989586621679111738Sym1 (a6989586621679111743 :: (~>) a_akVw b_akVx) :: (~>) (Either a_aqps a_akVw) (Either a_aqps b_akVx)
where
Fmap_6989586621679111738Sym1KindInference :: SameKind (Apply (Fmap_6989586621679111738Sym1 a6989586621679111743) arg_aqwm) (Fmap_6989586621679111738Sym2 a6989586621679111743 arg_aqwm) =>
Fmap_6989586621679111738Sym1 a6989586621679111743 a6989586621679111744
type instance Apply (Fmap_6989586621679111738Sym1 a6989586621679111743) a6989586621679111744 = Fmap_6989586621679111738 a6989586621679111743 a6989586621679111744
instance SuppressUnusedWarnings (Fmap_6989586621679111738Sym1 a6989586621679111743) where
suppressUnusedWarnings
= snd (((,) Fmap_6989586621679111738Sym1KindInference) ())
type Fmap_6989586621679111738Sym2 :: (~>) a_akVw b_akVx
-> Either a_aqps a_akVw -> Either a_aqps b_akVx
type family Fmap_6989586621679111738Sym2 (a6989586621679111743 :: (~>) a_akVw b_akVx) (a6989586621679111744 :: Either a_aqps a_akVw) :: Either a_aqps b_akVx where
Fmap_6989586621679111738Sym2 a6989586621679111743 a6989586621679111744 = Fmap_6989586621679111738 a6989586621679111743 a6989586621679111744
type family Lambda_6989586621679111764_aqwJ _z_6989586621679111621_aqwG a_6989586621679111631_aqwH n_6989586621679111629_aqwK where
Lambda_6989586621679111764_aqwJ _z_6989586621679111621_aqwG a_6989586621679111631_aqwH n_6989586621679111629_aqwK = n_6989586621679111629_aqwK
data Lambda_6989586621679111764Sym0 _z_69895866216791116216989586621679111762
where
Lambda_6989586621679111764Sym0KindInference :: SameKind (Apply Lambda_6989586621679111764Sym0 arg_aqwL) (Lambda_6989586621679111764Sym1 arg_aqwL) =>
Lambda_6989586621679111764Sym0 _z_69895866216791116216989586621679111762
type instance Apply Lambda_6989586621679111764Sym0 _z_69895866216791116216989586621679111762 = Lambda_6989586621679111764Sym1 _z_69895866216791116216989586621679111762
instance SuppressUnusedWarnings Lambda_6989586621679111764Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111764Sym0KindInference) ())
data Lambda_6989586621679111764Sym1 _z_69895866216791116216989586621679111762 a_69895866216791116316989586621679111763
where
Lambda_6989586621679111764Sym1KindInference :: SameKind (Apply (Lambda_6989586621679111764Sym1 _z_69895866216791116216989586621679111762) arg_aqwL) (Lambda_6989586621679111764Sym2 _z_69895866216791116216989586621679111762 arg_aqwL) =>
Lambda_6989586621679111764Sym1 _z_69895866216791116216989586621679111762 a_69895866216791116316989586621679111763
type instance Apply (Lambda_6989586621679111764Sym1 _z_69895866216791116216989586621679111762) a_69895866216791116316989586621679111763 = Lambda_6989586621679111764Sym2 _z_69895866216791116216989586621679111762 a_69895866216791116316989586621679111763
instance SuppressUnusedWarnings (Lambda_6989586621679111764Sym1 _z_69895866216791116216989586621679111762) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111764Sym1KindInference) ())
data Lambda_6989586621679111764Sym2 _z_69895866216791116216989586621679111762 a_69895866216791116316989586621679111763 n_69895866216791116296989586621679111766
where
Lambda_6989586621679111764Sym2KindInference :: SameKind (Apply (Lambda_6989586621679111764Sym2 _z_69895866216791116216989586621679111762 a_69895866216791116316989586621679111763) arg_aqwL) (Lambda_6989586621679111764Sym3 _z_69895866216791116216989586621679111762 a_69895866216791116316989586621679111763 arg_aqwL) =>
Lambda_6989586621679111764Sym2 _z_69895866216791116216989586621679111762 a_69895866216791116316989586621679111763 n_69895866216791116296989586621679111766
type instance Apply (Lambda_6989586621679111764Sym2 _z_69895866216791116216989586621679111762 a_69895866216791116316989586621679111763) n_69895866216791116296989586621679111766 = Lambda_6989586621679111764_aqwJ _z_69895866216791116216989586621679111762 a_69895866216791116316989586621679111763 n_69895866216791116296989586621679111766
instance SuppressUnusedWarnings (Lambda_6989586621679111764Sym2 _z_69895866216791116216989586621679111762 a_69895866216791116316989586621679111763) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111764Sym2KindInference) ())
type family Lambda_6989586621679111764Sym3 _z_69895866216791116216989586621679111762 a_69895866216791116316989586621679111763 n_69895866216791116296989586621679111766 where
Lambda_6989586621679111764Sym3 _z_69895866216791116216989586621679111762 a_69895866216791116316989586621679111763 n_69895866216791116296989586621679111766 = Lambda_6989586621679111764_aqwJ _z_69895866216791116216989586621679111762 a_69895866216791116316989586621679111763 n_69895866216791116296989586621679111766
type family Lambda_6989586621679111770_aqwP _z_6989586621679111621_aqwM a_6989586621679111635_aqwN n_6989586621679111633_aqwQ where
Lambda_6989586621679111770_aqwP _z_6989586621679111621_aqwM a_6989586621679111635_aqwN n_6989586621679111633_aqwQ = _z_6989586621679111621_aqwM
data Lambda_6989586621679111770Sym0 _z_69895866216791116216989586621679111768
where
Lambda_6989586621679111770Sym0KindInference :: SameKind (Apply Lambda_6989586621679111770Sym0 arg_aqwR) (Lambda_6989586621679111770Sym1 arg_aqwR) =>
Lambda_6989586621679111770Sym0 _z_69895866216791116216989586621679111768
type instance Apply Lambda_6989586621679111770Sym0 _z_69895866216791116216989586621679111768 = Lambda_6989586621679111770Sym1 _z_69895866216791116216989586621679111768
instance SuppressUnusedWarnings Lambda_6989586621679111770Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111770Sym0KindInference) ())
data Lambda_6989586621679111770Sym1 _z_69895866216791116216989586621679111768 a_69895866216791116356989586621679111769
where
Lambda_6989586621679111770Sym1KindInference :: SameKind (Apply (Lambda_6989586621679111770Sym1 _z_69895866216791116216989586621679111768) arg_aqwR) (Lambda_6989586621679111770Sym2 _z_69895866216791116216989586621679111768 arg_aqwR) =>
Lambda_6989586621679111770Sym1 _z_69895866216791116216989586621679111768 a_69895866216791116356989586621679111769
type instance Apply (Lambda_6989586621679111770Sym1 _z_69895866216791116216989586621679111768) a_69895866216791116356989586621679111769 = Lambda_6989586621679111770Sym2 _z_69895866216791116216989586621679111768 a_69895866216791116356989586621679111769
instance SuppressUnusedWarnings (Lambda_6989586621679111770Sym1 _z_69895866216791116216989586621679111768) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111770Sym1KindInference) ())
data Lambda_6989586621679111770Sym2 _z_69895866216791116216989586621679111768 a_69895866216791116356989586621679111769 n_69895866216791116336989586621679111772
where
Lambda_6989586621679111770Sym2KindInference :: SameKind (Apply (Lambda_6989586621679111770Sym2 _z_69895866216791116216989586621679111768 a_69895866216791116356989586621679111769) arg_aqwR) (Lambda_6989586621679111770Sym3 _z_69895866216791116216989586621679111768 a_69895866216791116356989586621679111769 arg_aqwR) =>
Lambda_6989586621679111770Sym2 _z_69895866216791116216989586621679111768 a_69895866216791116356989586621679111769 n_69895866216791116336989586621679111772
type instance Apply (Lambda_6989586621679111770Sym2 _z_69895866216791116216989586621679111768 a_69895866216791116356989586621679111769) n_69895866216791116336989586621679111772 = Lambda_6989586621679111770_aqwP _z_69895866216791116216989586621679111768 a_69895866216791116356989586621679111769 n_69895866216791116336989586621679111772
instance SuppressUnusedWarnings (Lambda_6989586621679111770Sym2 _z_69895866216791116216989586621679111768 a_69895866216791116356989586621679111769) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679111770Sym2KindInference) ())
type family Lambda_6989586621679111770Sym3 _z_69895866216791116216989586621679111768 a_69895866216791116356989586621679111769 n_69895866216791116336989586621679111772 where
Lambda_6989586621679111770Sym3 _z_69895866216791116216989586621679111768 a_69895866216791116356989586621679111769 n_69895866216791116336989586621679111772 = Lambda_6989586621679111770_aqwP _z_69895866216791116216989586621679111768 a_69895866216791116356989586621679111769 n_69895866216791116336989586621679111772
type TFHelper_6989586621679111755 :: a_akVy
-> Either a_aqps b_akVz -> Either a_aqps a_akVy
type family TFHelper_6989586621679111755 (a_aqwB :: a_akVy) (a_aqwC :: Either a_aqps b_akVz) :: Either a_aqps a_akVy where
TFHelper_6989586621679111755 _z_6989586621679111621_aqwG ('Left a_6989586621679111631_aqwH) = Apply LeftSym0 (Apply (Apply (Apply Lambda_6989586621679111764Sym0 _z_6989586621679111621_aqwG) a_6989586621679111631_aqwH) a_6989586621679111631_aqwH)
TFHelper_6989586621679111755 _z_6989586621679111621_aqwM ('Right a_6989586621679111635_aqwN) = Apply RightSym0 (Apply (Apply (Apply Lambda_6989586621679111770Sym0 _z_6989586621679111621_aqwM) a_6989586621679111635_aqwN) a_6989586621679111635_aqwN)
type TFHelper_6989586621679111755Sym0 :: (~>) a_akVy ((~>) (Either a_aqps b_akVz) (Either a_aqps a_akVy))
data TFHelper_6989586621679111755Sym0 :: (~>) a_akVy ((~>) (Either a_aqps b_akVz) (Either a_aqps a_akVy))
where
TFHelper_6989586621679111755Sym0KindInference :: SameKind (Apply TFHelper_6989586621679111755Sym0 arg_aqwD) (TFHelper_6989586621679111755Sym1 arg_aqwD) =>
TFHelper_6989586621679111755Sym0 a6989586621679111760
type instance Apply TFHelper_6989586621679111755Sym0 a6989586621679111760 = TFHelper_6989586621679111755Sym1 a6989586621679111760
instance SuppressUnusedWarnings TFHelper_6989586621679111755Sym0 where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679111755Sym0KindInference) ())
type TFHelper_6989586621679111755Sym1 :: a_akVy
-> (~>) (Either a_aqps b_akVz) (Either a_aqps a_akVy)
data TFHelper_6989586621679111755Sym1 (a6989586621679111760 :: a_akVy) :: (~>) (Either a_aqps b_akVz) (Either a_aqps a_akVy)
where
TFHelper_6989586621679111755Sym1KindInference :: SameKind (Apply (TFHelper_6989586621679111755Sym1 a6989586621679111760) arg_aqwD) (TFHelper_6989586621679111755Sym2 a6989586621679111760 arg_aqwD) =>
TFHelper_6989586621679111755Sym1 a6989586621679111760 a6989586621679111761
type instance Apply (TFHelper_6989586621679111755Sym1 a6989586621679111760) a6989586621679111761 = TFHelper_6989586621679111755 a6989586621679111760 a6989586621679111761
instance SuppressUnusedWarnings (TFHelper_6989586621679111755Sym1 a6989586621679111760) where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679111755Sym1KindInference) ())
type TFHelper_6989586621679111755Sym2 :: a_akVy
-> Either a_aqps b_akVz -> Either a_aqps a_akVy
type family TFHelper_6989586621679111755Sym2 (a6989586621679111760 :: a_akVy) (a6989586621679111761 :: Either a_aqps b_akVz) :: Either a_aqps a_akVy where
TFHelper_6989586621679111755Sym2 a6989586621679111760 a6989586621679111761 = TFHelper_6989586621679111755 a6989586621679111760 a6989586621679111761
instance PFunctor (Either a_aqps) where
type Fmap a_aqwg a_aqwh = Apply (Apply Fmap_6989586621679111738Sym0 a_aqwg) a_aqwh
type (<$) a_aqwx a_aqwy = Apply (Apply TFHelper_6989586621679111755Sym0 a_aqwx) a_aqwy
infixl 1 %<&>
infixl 4 %$>
infixl 4 %<$>
sVoid ::
forall f_aqp9 a_aqpa (t_aqwS :: f_aqp9 a_aqpa). SFunctor f_aqp9 =>
Sing t_aqwS
-> Sing (Apply VoidSym0 t_aqwS :: f_aqp9 ())
(%$>) ::
forall f_aqpb
a_aqpc
b_aqpd
(t_aqwU :: f_aqpb a_aqpc)
(t_aqwV :: b_aqpd). SFunctor f_aqpb =>
Sing t_aqwU
-> Sing t_aqwV
-> Sing (Apply (Apply ($>@#@$) t_aqwU) t_aqwV :: f_aqpb b_aqpd)
(%<&>) ::
forall f_aqpe
a_aqpf
b_aqpg
(t_aqwY :: f_aqpe a_aqpf)
(t_aqwZ :: (~>) a_aqpf b_aqpg). SFunctor f_aqpe =>
Sing t_aqwY
-> Sing t_aqwZ
-> Sing (Apply (Apply (<&>@#@$) t_aqwY) t_aqwZ :: f_aqpe b_aqpg)
(%<$>) ::
forall a_aqpi
b_aqpj
f_aqph
(t_aqx2 :: (~>) a_aqpi b_aqpj)
(t_aqx3 :: f_aqph a_aqpi). SFunctor f_aqph =>
Sing t_aqx2
-> Sing t_aqx3
-> Sing (Apply (Apply (<$>@#@$) t_aqx2) t_aqx3 :: f_aqph b_aqpj)
sVoid (sX :: Sing x_aquI)
= (applySing ((applySing ((singFun2 @(<$@#@$)) (%<$))) STuple0)) sX
(%$>)
(sA_6989586621679111641 :: Sing a_6989586621679111641_aquS)
(sA_6989586621679111643 :: Sing a_6989586621679111643_aquT)
= (applySing
((applySing
((applySing ((singFun3 @FlipSym0) sFlip))
((singFun2 @(<$@#@$)) (%<$))))
sA_6989586621679111641))
sA_6989586621679111643
(%<&>) (sAs :: Sing as_aquZ) (sF :: Sing f_aqv0)
= (applySing ((applySing ((singFun2 @(<$>@#@$)) (%<$>))) sF)) sAs
(%<$>)
(sA_6989586621679111659 :: Sing a_6989586621679111659_aqva)
(sA_6989586621679111661 :: Sing a_6989586621679111661_aqvb)
= (applySing
((applySing ((singFun2 @FmapSym0) sFmap)) sA_6989586621679111659))
sA_6989586621679111661
instance SFunctor f_aqp9 =>
SingI (VoidSym0 :: (~>) (f_aqp9 a_aqpa) (f_aqp9 ())) where
sing = (singFun1 @VoidSym0) sVoid
instance SFunctor f_aqpb =>
SingI (($>@#@$) :: (~>) (f_aqpb a_aqpc) ((~>) b_aqpd (f_aqpb b_aqpd))) where
sing = (singFun2 @($>@#@$)) (%$>)
instance (SFunctor f_aqpb, SingI d_aqwW) =>
SingI (($>@#@$$) (d_aqwW :: f_aqpb a_aqpc) :: (~>) b_aqpd (f_aqpb b_aqpd)) where
sing
= (singFun1 @(($>@#@$$) (d_aqwW :: f_aqpb a_aqpc)))
((%$>) (sing @d_aqwW))
instance SFunctor f_aqpe =>
SingI ((<&>@#@$) :: (~>) (f_aqpe a_aqpf) ((~>) ((~>) a_aqpf b_aqpg) (f_aqpe b_aqpg))) where
sing = (singFun2 @(<&>@#@$)) (%<&>)
instance (SFunctor f_aqpe, SingI d_aqx0) =>
SingI ((<&>@#@$$) (d_aqx0 :: f_aqpe a_aqpf) :: (~>) ((~>) a_aqpf b_aqpg) (f_aqpe b_aqpg)) where
sing
= (singFun1 @((<&>@#@$$) (d_aqx0 :: f_aqpe a_aqpf)))
((%<&>) (sing @d_aqx0))
instance SFunctor f_aqph =>
SingI ((<$>@#@$) :: (~>) ((~>) a_aqpi b_aqpj) ((~>) (f_aqph a_aqpi) (f_aqph b_aqpj))) where
sing = (singFun2 @(<$>@#@$)) (%<$>)
instance (SFunctor f_aqph, SingI d_aqx4) =>
SingI ((<$>@#@$$) (d_aqx4 :: (~>) a_aqpi b_aqpj) :: (~>) (f_aqph a_aqpi) (f_aqph b_aqpj)) where
sing
= (singFun1 @((<$>@#@$$) (d_aqx4 :: (~>) a_aqpi b_aqpj)))
((%<$>) (sing @d_aqx4))
instance SFunctor ((,) a_aqpr) where
sFmap ::
forall (a_akVw :: Type)
(b_akVx :: Type)
(t_al0T :: (~>) a_akVw b_akVx)
(t_al0U :: (a_aqpr, a_akVw)). Sing t_al0T
-> Sing t_al0U
-> Sing (Apply (Apply (FmapSym0 :: TyFun ((~>) a_akVw b_akVx) ((~>) (a_aqpr,
a_akVw) (a_aqpr,
b_akVx))
-> Type) t_al0T) t_al0U)
(%<$) ::
forall (a_akVy :: Type)
(b_akVz :: Type)
(t_al0X :: a_akVy)
(t_al0Y :: (a_aqpr, b_akVz)). Sing t_al0X
-> Sing t_al0Y
-> Sing (Apply (Apply ((<$@#@$) :: TyFun a_akVy ((~>) (a_aqpr,
b_akVz) (a_aqpr,
a_akVy))
-> Type) t_al0X) t_al0Y)
sFmap
(_sf_6989586621679111561 :: Sing _f_6989586621679111561_aqvl)
(STuple2 (sA_6989586621679111567 :: Sing a_6989586621679111567_aqvm)
(sA_6989586621679111569 :: Sing a_6989586621679111569_aqvn))
= (applySing
((applySing ((singFun2 @Tuple2Sym0) STuple2))
((applySing
((singFun1
@(Apply (Apply (Apply Lambda_6989586621679111682Sym0 _f_6989586621679111561_aqvl) a_6989586621679111567_aqvm) a_6989586621679111569_aqvn))
(\ sN_6989586621679111565
-> case sN_6989586621679111565 of {
(_ :: Sing n_6989586621679111565_aqvq)
-> sN_6989586621679111565 })))
sA_6989586621679111567)))
((applySing _sf_6989586621679111561) sA_6989586621679111569)
(%<$)
(_sz_6989586621679111563 :: Sing _z_6989586621679111563_aqvB)
(STuple2 (sA_6989586621679111575 :: Sing a_6989586621679111575_aqvC)
(sA_6989586621679111577 :: Sing a_6989586621679111577_aqvD))
= (applySing
((applySing ((singFun2 @Tuple2Sym0) STuple2))
((applySing
((singFun1
@(Apply (Apply (Apply Lambda_6989586621679111698Sym0 _z_6989586621679111563_aqvB) a_6989586621679111575_aqvC) a_6989586621679111577_aqvD))
(\ sN_6989586621679111571
-> case sN_6989586621679111571 of {
(_ :: Sing n_6989586621679111571_aqvG)
-> sN_6989586621679111571 })))
sA_6989586621679111575)))
((applySing
((singFun1
@(Apply (Apply (Apply Lambda_6989586621679111702Sym0 _z_6989586621679111563_aqvB) a_6989586621679111575_aqvC) a_6989586621679111577_aqvD))
(\ sN_6989586621679111573
-> case sN_6989586621679111573 of {
(_ :: Sing n_6989586621679111573_aqvK)
-> _sz_6989586621679111563 })))
sA_6989586621679111577)
instance SFunctor [] where
sFmap ::
forall (a_akVw :: Type)
(b_akVx :: Type)
(t_al0T :: (~>) a_akVw b_akVx)
(t_al0U :: [a_akVw]). Sing t_al0T
-> Sing t_al0U
-> Sing (Apply (Apply (FmapSym0 :: TyFun ((~>) a_akVw b_akVx) ((~>) [a_akVw] [b_akVx])
-> Type) t_al0T) t_al0U)
(%<$) ::
forall (a_akVy :: Type)
(b_akVz :: Type)
(t_al0X :: a_akVy)
(t_al0Y :: [b_akVz]). Sing t_al0X
-> Sing t_al0Y
-> Sing (Apply (Apply ((<$@#@$) :: TyFun a_akVy ((~>) [b_akVz] [a_akVy])
-> Type) t_al0X) t_al0Y)
sFmap
(_sf_6989586621679111587 :: Sing _f_6989586621679111587_aqvV)
SNil
= SNil
sFmap
(_sf_6989586621679111587 :: Sing _f_6989586621679111587_aqvW)
(SCons (sA_6989586621679111597 :: Sing a_6989586621679111597_aqvX)
(sA_6989586621679111599 :: Sing a_6989586621679111599_aqvY))
= (applySing
((applySing ((singFun2 @(:@#@$)) SCons))
((applySing _sf_6989586621679111587) sA_6989586621679111597)))
((applySing
((applySing ((singFun2 @FmapSym0) sFmap)) _sf_6989586621679111587))
sA_6989586621679111599)
(%<$)
(_sz_6989586621679111589 :: Sing _z_6989586621679111589_aqw8)
SNil
= SNil
(%<$)
(_sz_6989586621679111589 :: Sing _z_6989586621679111589_aqw9)
(SCons (sA_6989586621679111611 :: Sing a_6989586621679111611_aqwa)
(sA_6989586621679111613 :: Sing a_6989586621679111613_aqwb))
= (applySing
((applySing ((singFun2 @(:@#@$)) SCons))
((applySing
((singFun1
@(Apply (Apply (Apply Lambda_6989586621679111732Sym0 _z_6989586621679111589_aqw9) a_6989586621679111611_aqwa) a_6989586621679111613_aqwb))
(\ sN_6989586621679111607
-> case sN_6989586621679111607 of {
(_ :: Sing n_6989586621679111607_aqwe)
-> _sz_6989586621679111589 })))
sA_6989586621679111611)))
((applySing
((applySing ((singFun2 @(<$@#@$)) (%<$))) _sz_6989586621679111589))
sA_6989586621679111613)
instance SFunctor (Either a_aqps) where
sFmap ::
forall (a_akVw :: Type)
(b_akVx :: Type)
(t_al0T :: (~>) a_akVw b_akVx)
(t_al0U :: Either a_aqps a_akVw). Sing t_al0T
-> Sing t_al0U
-> Sing (Apply (Apply (FmapSym0 :: TyFun ((~>) a_akVw b_akVx) ((~>) (Either a_aqps a_akVw) (Either a_aqps b_akVx))
-> Type) t_al0T) t_al0U)
(%<$) ::
forall (a_akVy :: Type)
(b_akVz :: Type)
(t_al0X :: a_akVy)
(t_al0Y :: Either a_aqps b_akVz). Sing t_al0X
-> Sing t_al0Y
-> Sing (Apply (Apply ((<$@#@$) :: TyFun a_akVy ((~>) (Either a_aqps b_akVz) (Either a_aqps a_akVy))
-> Type) t_al0X) t_al0Y)
sFmap
(_sf_6989586621679111619 :: Sing _f_6989586621679111619_aqwp)
(SLeft (sA_6989586621679111625 :: Sing a_6989586621679111625_aqwq))
= (applySing ((singFun1 @LeftSym0) SLeft))
((applySing
((singFun1
@(Apply (Apply Lambda_6989586621679111747Sym0 _f_6989586621679111619_aqwp) a_6989586621679111625_aqwq))
(\ sN_6989586621679111623
-> case sN_6989586621679111623 of {
(_ :: Sing n_6989586621679111623_aqwt)
-> sN_6989586621679111623 })))
sA_6989586621679111625)
sFmap
(_sf_6989586621679111619 :: Sing _f_6989586621679111619_aqwv)
(SRight (sA_6989586621679111627 :: Sing a_6989586621679111627_aqww))
= (applySing ((singFun1 @RightSym0) SRight))
((applySing _sf_6989586621679111619) sA_6989586621679111627)
(%<$)
(_sz_6989586621679111621 :: Sing _z_6989586621679111621_aqwG)
(SLeft (sA_6989586621679111631 :: Sing a_6989586621679111631_aqwH))
= (applySing ((singFun1 @LeftSym0) SLeft))
((applySing
((singFun1
@(Apply (Apply Lambda_6989586621679111764Sym0 _z_6989586621679111621_aqwG) a_6989586621679111631_aqwH))
(\ sN_6989586621679111629
-> case sN_6989586621679111629 of {
(_ :: Sing n_6989586621679111629_aqwK)
-> sN_6989586621679111629 })))
sA_6989586621679111631)
(%<$)
(_sz_6989586621679111621 :: Sing _z_6989586621679111621_aqwM)
(SRight (sA_6989586621679111635 :: Sing a_6989586621679111635_aqwN))
= (applySing ((singFun1 @RightSym0) SRight))
((applySing
((singFun1
@(Apply (Apply Lambda_6989586621679111770Sym0 _z_6989586621679111621_aqwM) a_6989586621679111635_aqwN))
(\ sN_6989586621679111633
-> case sN_6989586621679111633 of {
(_ :: Sing n_6989586621679111633_aqwQ)
-> _sz_6989586621679111621 })))
sA_6989586621679111635)
type PPSym0 :: forall (a_itmC :: Type). (~>) ((~>) [Char] (Either Symbol ([Char],
a_itmC))) (PParser (a_itmC :: Type))
data PPSym0 :: (~>) ((~>) [Char] (Either Symbol ([Char],
a_itmC))) (PParser (a_itmC :: Type))
where
PPSym0KindInference :: SameKind (Apply PPSym0 arg_atoa) (PPSym1 arg_atoa) =>
PPSym0 a6989586621679122767
type instance Apply PPSym0 a6989586621679122767 = 'PP a6989586621679122767
instance SuppressUnusedWarnings PPSym0 where
suppressUnusedWarnings = snd (((,) PPSym0KindInference) ())
type PPSym1 :: forall (a_itmC :: Type). (~>) [Char] (Either Symbol ([Char],
a_itmC))
-> PParser (a_itmC :: Type)
type family PPSym1 (a6989586621679122767 :: (~>) [Char] (Either Symbol ([Char],
a_itmC))) :: PParser (a_itmC :: Type) where
PPSym1 a6989586621679122767 = 'PP a6989586621679122767
type SParser :: forall (a_itmC :: Type). PParser a_itmC -> Type
data SParser :: forall (a_itmC :: Type). PParser a_itmC -> Type
where
SP :: forall (a_itmC :: Type)
(n_atoc :: (~>) [Char] (Either Symbol ([Char], a_itmC))).
(Sing n_atoc) -> SParser ('PP n_atoc :: PParser (a_itmC :: Type))
type instance Sing @(PParser a_itmC) = SParser
instance SingKind a_itmC => SingKind (PParser a_itmC) where
type Demote (PParser a_itmC) = Parser (Demote a_itmC)
fromSing (SP b_atoe) = P (fromSing b_atoe)
toSing
(P (b_atog :: Demote ((~>) [Char] (Either Symbol ([Char],
a_itmC)))))
= case toSing b_atog ::
SomeSing ((~>) [Char] (Either Symbol ([Char], a_itmC)))
of {
SomeSing c_atoh -> SomeSing (SP c_atoh) }
instance SingI n_atoc =>
SingI ('PP (n_atoc :: (~>) [Char] (Either Symbol ([Char],
a_itmC)))) where
sing = SP sing
instance SingI (PPSym0 :: (~>) ((~>) [Char] (Either Symbol ([Char],
a_itmC))) (PParser (a_itmC :: Type))) where
sing = (singFun1 @PPSym0) SP
type SymbolToString :: Symbol -> String
type family SymbolToString sym where
SymbolToString s = SymbolToStringHelp (UnconsSymbol s)
type SymbolToStringHelp :: Maybe (Char, Symbol) -> String
type family SymbolToStringHelp sym where
SymbolToStringHelp ('Just '(c,sym2)) = (c ': SymbolToString sym2)
SymbolToStringHelp ('Nothing) = '[]
-- Useful parser combinators, basic parsers and functions
type family Lambda_6989586621679127120_auwp x_auwn c_auwk y_auwq where
Lambda_6989586621679127120_auwp x_auwn c_auwk y_auwq = Apply ReturnSym0 (Apply (Apply Tuple2Sym0 x_auwn) y_auwq)
data Lambda_6989586621679127120Sym0 x6989586621679127119
where
Lambda_6989586621679127120Sym0KindInference :: SameKind (Apply Lambda_6989586621679127120Sym0 arg_auwr) (Lambda_6989586621679127120Sym1 arg_auwr) =>
Lambda_6989586621679127120Sym0 x6989586621679127119
type instance Apply Lambda_6989586621679127120Sym0 x6989586621679127119 = Lambda_6989586621679127120Sym1 x6989586621679127119
instance SuppressUnusedWarnings Lambda_6989586621679127120Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127120Sym0KindInference) ())
data Lambda_6989586621679127120Sym1 x6989586621679127119 c6989586621679127116
where
Lambda_6989586621679127120Sym1KindInference :: SameKind (Apply (Lambda_6989586621679127120Sym1 x6989586621679127119) arg_auwr) (Lambda_6989586621679127120Sym2 x6989586621679127119 arg_auwr) =>
Lambda_6989586621679127120Sym1 x6989586621679127119 c6989586621679127116
type instance Apply (Lambda_6989586621679127120Sym1 x6989586621679127119) c6989586621679127116 = Lambda_6989586621679127120Sym2 x6989586621679127119 c6989586621679127116
instance SuppressUnusedWarnings (Lambda_6989586621679127120Sym1 x6989586621679127119) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127120Sym1KindInference) ())
data Lambda_6989586621679127120Sym2 x6989586621679127119 c6989586621679127116 y6989586621679127122
where
Lambda_6989586621679127120Sym2KindInference :: SameKind (Apply (Lambda_6989586621679127120Sym2 x6989586621679127119 c6989586621679127116) arg_auwr) (Lambda_6989586621679127120Sym3 x6989586621679127119 c6989586621679127116 arg_auwr) =>
Lambda_6989586621679127120Sym2 x6989586621679127119 c6989586621679127116 y6989586621679127122
type instance Apply (Lambda_6989586621679127120Sym2 x6989586621679127119 c6989586621679127116) y6989586621679127122 = Lambda_6989586621679127120_auwp x6989586621679127119 c6989586621679127116 y6989586621679127122
instance SuppressUnusedWarnings (Lambda_6989586621679127120Sym2 x6989586621679127119 c6989586621679127116) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127120Sym2KindInference) ())
type family Lambda_6989586621679127120Sym3 x6989586621679127119 c6989586621679127116 y6989586621679127122 where
Lambda_6989586621679127120Sym3 x6989586621679127119 c6989586621679127116 y6989586621679127122 = Lambda_6989586621679127120_auwp x6989586621679127119 c6989586621679127116 y6989586621679127122
type family Lambda_6989586621679127117_auwm c_auwk x_auwn where
Lambda_6989586621679127117_auwm c_auwk x_auwn = Apply (Apply (>>=@#@$) (Apply PcharSym0 c_auwk)) (Apply (Apply Lambda_6989586621679127120Sym0 x_auwn) c_auwk)
data Lambda_6989586621679127117Sym0 c6989586621679127116
where
Lambda_6989586621679127117Sym0KindInference :: SameKind (Apply Lambda_6989586621679127117Sym0 arg_auws) (Lambda_6989586621679127117Sym1 arg_auws) =>
Lambda_6989586621679127117Sym0 c6989586621679127116
type instance Apply Lambda_6989586621679127117Sym0 c6989586621679127116 = Lambda_6989586621679127117Sym1 c6989586621679127116
instance SuppressUnusedWarnings Lambda_6989586621679127117Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127117Sym0KindInference) ())
data Lambda_6989586621679127117Sym1 c6989586621679127116 x6989586621679127119
where
Lambda_6989586621679127117Sym1KindInference :: SameKind (Apply (Lambda_6989586621679127117Sym1 c6989586621679127116) arg_auws) (Lambda_6989586621679127117Sym2 c6989586621679127116 arg_auws) =>
Lambda_6989586621679127117Sym1 c6989586621679127116 x6989586621679127119
type instance Apply (Lambda_6989586621679127117Sym1 c6989586621679127116) x6989586621679127119 = Lambda_6989586621679127117_auwm c6989586621679127116 x6989586621679127119
instance SuppressUnusedWarnings (Lambda_6989586621679127117Sym1 c6989586621679127116) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127117Sym1KindInference) ())
type family Lambda_6989586621679127117Sym2 c6989586621679127116 x6989586621679127119 where
Lambda_6989586621679127117Sym2 c6989586621679127116 x6989586621679127119 = Lambda_6989586621679127117_auwm c6989586621679127116 x6989586621679127119
data Let6989586621679127136Scrutinee_6989586621679126491Sym0 c6989586621679127134
where
Let6989586621679127136Scrutinee_6989586621679126491Sym0KindInference :: SameKind (Apply Let6989586621679127136Scrutinee_6989586621679126491Sym0 arg_auwF) (Let6989586621679127136Scrutinee_6989586621679126491Sym1 arg_auwF) =>
Let6989586621679127136Scrutinee_6989586621679126491Sym0 c6989586621679127134
type instance Apply Let6989586621679127136Scrutinee_6989586621679126491Sym0 c6989586621679127134 = Let6989586621679127136Scrutinee_6989586621679126491Sym1 c6989586621679127134
instance SuppressUnusedWarnings Let6989586621679127136Scrutinee_6989586621679126491Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127136Scrutinee_6989586621679126491Sym0KindInference)
())
data Let6989586621679127136Scrutinee_6989586621679126491Sym1 c6989586621679127134 cs6989586621679127135
where
Let6989586621679127136Scrutinee_6989586621679126491Sym1KindInference :: SameKind (Apply (Let6989586621679127136Scrutinee_6989586621679126491Sym1 c6989586621679127134) arg_auwF) (Let6989586621679127136Scrutinee_6989586621679126491Sym2 c6989586621679127134 arg_auwF) =>
Let6989586621679127136Scrutinee_6989586621679126491Sym1 c6989586621679127134 cs6989586621679127135
type instance Apply (Let6989586621679127136Scrutinee_6989586621679126491Sym1 c6989586621679127134) cs6989586621679127135 = Let6989586621679127136Scrutinee_6989586621679126491Sym2 c6989586621679127134 cs6989586621679127135
instance SuppressUnusedWarnings (Let6989586621679127136Scrutinee_6989586621679126491Sym1 c6989586621679127134) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127136Scrutinee_6989586621679126491Sym1KindInference)
())
data Let6989586621679127136Scrutinee_6989586621679126491Sym2 c6989586621679127134 cs6989586621679127135 x_69895866216791264896989586621679127131
where
Let6989586621679127136Scrutinee_6989586621679126491Sym2KindInference :: SameKind (Apply (Let6989586621679127136Scrutinee_6989586621679126491Sym2 c6989586621679127134 cs6989586621679127135) arg_auwF) (Let6989586621679127136Scrutinee_6989586621679126491Sym3 c6989586621679127134 cs6989586621679127135 arg_auwF) =>
Let6989586621679127136Scrutinee_6989586621679126491Sym2 c6989586621679127134 cs6989586621679127135 x_69895866216791264896989586621679127131
type instance Apply (Let6989586621679127136Scrutinee_6989586621679126491Sym2 c6989586621679127134 cs6989586621679127135) x_69895866216791264896989586621679127131 = Let6989586621679127136Scrutinee_6989586621679126491Sym3 c6989586621679127134 cs6989586621679127135 x_69895866216791264896989586621679127131
instance SuppressUnusedWarnings (Let6989586621679127136Scrutinee_6989586621679126491Sym2 c6989586621679127134 cs6989586621679127135) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127136Scrutinee_6989586621679126491Sym2KindInference)
())
data Let6989586621679127136Scrutinee_6989586621679126491Sym3 c6989586621679127134 cs6989586621679127135 x_69895866216791264896989586621679127131 p6989586621679127128
where
Let6989586621679127136Scrutinee_6989586621679126491Sym3KindInference :: SameKind (Apply (Let6989586621679127136Scrutinee_6989586621679126491Sym3 c6989586621679127134 cs6989586621679127135 x_69895866216791264896989586621679127131) arg_auwF) (Let6989586621679127136Scrutinee_6989586621679126491Sym4 c6989586621679127134 cs6989586621679127135 x_69895866216791264896989586621679127131 arg_auwF) =>
Let6989586621679127136Scrutinee_6989586621679126491Sym3 c6989586621679127134 cs6989586621679127135 x_69895866216791264896989586621679127131 p6989586621679127128
type instance Apply (Let6989586621679127136Scrutinee_6989586621679126491Sym3 c6989586621679127134 cs6989586621679127135 x_69895866216791264896989586621679127131) p6989586621679127128 = Let6989586621679127136Scrutinee_6989586621679126491 c6989586621679127134 cs6989586621679127135 x_69895866216791264896989586621679127131 p6989586621679127128
instance SuppressUnusedWarnings (Let6989586621679127136Scrutinee_6989586621679126491Sym3 c6989586621679127134 cs6989586621679127135 x_69895866216791264896989586621679127131) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127136Scrutinee_6989586621679126491Sym3KindInference)
())
type family Let6989586621679127136Scrutinee_6989586621679126491Sym4 c6989586621679127134 cs6989586621679127135 x_69895866216791264896989586621679127131 p6989586621679127128 where
Let6989586621679127136Scrutinee_6989586621679126491Sym4 c6989586621679127134 cs6989586621679127135 x_69895866216791264896989586621679127131 p6989586621679127128 = Let6989586621679127136Scrutinee_6989586621679126491 c6989586621679127134 cs6989586621679127135 x_69895866216791264896989586621679127131 p6989586621679127128
type family Let6989586621679127136Scrutinee_6989586621679126491 c_auwC cs_auwD x_6989586621679126489_auwz p_auww where
Let6989586621679127136Scrutinee_6989586621679126491 c_auwC cs_auwD x_6989586621679126489_auwz p_auww = Apply (Apply ParseSym0 (Apply (Apply (:@#@$) c_auwC) NilSym0)) p_auww
type family Case_6989586621679127138_auwH c_auwC cs_auwD x_6989586621679126489_auwz p_auww t_auwI where
Case_6989586621679127138_auwH c_auwC cs_auwD x_6989586621679126489_auwz p_auww ('Left _) = Apply RightSym0 (Apply (Apply Tuple2Sym0 cs_auwD) c_auwC)
Case_6989586621679127138_auwH c_auwC cs_auwD x_6989586621679126489_auwz p_auww ('Right _) = Apply (Apply ($@#@$) LeftSym0) "Unexpected character: "
type family Case_6989586621679127132_auwB x_6989586621679126489_auwz p_auww t_auwJ where
Case_6989586621679127132_auwB x_6989586621679126489_auwz p_auww '[] = Apply LeftSym0 "End of input"
Case_6989586621679127132_auwB x_6989586621679126489_auwz p_auww ('(:) c_auwC cs_auwD) = Case_6989586621679127138_auwH c_auwC cs_auwD x_6989586621679126489_auwz p_auww (Let6989586621679127136Scrutinee_6989586621679126491Sym4 c_auwC cs_auwD x_6989586621679126489_auwz p_auww)
type family Lambda_6989586621679127129_auwy p_auww x_6989586621679126489_auwz where
Lambda_6989586621679127129_auwy p_auww x_6989586621679126489_auwz = Case_6989586621679127132_auwB x_6989586621679126489_auwz p_auww x_6989586621679126489_auwz
data Lambda_6989586621679127129Sym0 p6989586621679127128
where
Lambda_6989586621679127129Sym0KindInference :: SameKind (Apply Lambda_6989586621679127129Sym0 arg_auwK) (Lambda_6989586621679127129Sym1 arg_auwK) =>
Lambda_6989586621679127129Sym0 p6989586621679127128
type instance Apply Lambda_6989586621679127129Sym0 p6989586621679127128 = Lambda_6989586621679127129Sym1 p6989586621679127128
instance SuppressUnusedWarnings Lambda_6989586621679127129Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127129Sym0KindInference) ())
data Lambda_6989586621679127129Sym1 p6989586621679127128 x_69895866216791264896989586621679127131
where
Lambda_6989586621679127129Sym1KindInference :: SameKind (Apply (Lambda_6989586621679127129Sym1 p6989586621679127128) arg_auwK) (Lambda_6989586621679127129Sym2 p6989586621679127128 arg_auwK) =>
Lambda_6989586621679127129Sym1 p6989586621679127128 x_69895866216791264896989586621679127131
type instance Apply (Lambda_6989586621679127129Sym1 p6989586621679127128) x_69895866216791264896989586621679127131 = Lambda_6989586621679127129_auwy p6989586621679127128 x_69895866216791264896989586621679127131
instance SuppressUnusedWarnings (Lambda_6989586621679127129Sym1 p6989586621679127128) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127129Sym1KindInference) ())
type family Lambda_6989586621679127129Sym2 p6989586621679127128 x_69895866216791264896989586621679127131 where
Lambda_6989586621679127129Sym2 p6989586621679127128 x_69895866216791264896989586621679127131 = Lambda_6989586621679127129_auwy p6989586621679127128 x_69895866216791264896989586621679127131
type family Case_6989586621679127147_auwQ x_6989586621679126485_auwO t_auwS where
Case_6989586621679127147_auwQ x_6989586621679126485_auwO '[] = Apply RightSym0 (Apply (Apply Tuple2Sym0 NilSym0) Tuple0Sym0)
Case_6989586621679127147_auwQ x_6989586621679126485_auwO str_auwR = Apply (Apply ($@#@$) LeftSym0) (Apply (Apply (<>@#@$) "Expected end of input, but ") " has been met.")
type family Lambda_6989586621679127144_auwN x_6989586621679126485_auwO where
Lambda_6989586621679127144_auwN x_6989586621679126485_auwO = Case_6989586621679127147_auwQ x_6989586621679126485_auwO x_6989586621679126485_auwO
data Lambda_6989586621679127144Sym0 x_69895866216791264856989586621679127146
where
Lambda_6989586621679127144Sym0KindInference :: SameKind (Apply Lambda_6989586621679127144Sym0 arg_auwT) (Lambda_6989586621679127144Sym1 arg_auwT) =>
Lambda_6989586621679127144Sym0 x_69895866216791264856989586621679127146
type instance Apply Lambda_6989586621679127144Sym0 x_69895866216791264856989586621679127146 = Lambda_6989586621679127144_auwN x_69895866216791264856989586621679127146
instance SuppressUnusedWarnings Lambda_6989586621679127144Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127144Sym0KindInference) ())
type family Lambda_6989586621679127144Sym1 x_69895866216791264856989586621679127146 where
Lambda_6989586621679127144Sym1 x_69895866216791264856989586621679127146 = Lambda_6989586621679127144_auwN x_69895866216791264856989586621679127146
type family Case_6989586621679127163_aux6 c_aux2 arg_6989586621679126483_auwZ t_aux7 where
Case_6989586621679127163_aux6 c_aux2 arg_6989586621679126483_auwZ 'A' = FromInteger 10
Case_6989586621679127163_aux6 c_aux2 arg_6989586621679126483_auwZ 'B' = FromInteger 11
Case_6989586621679127163_aux6 c_aux2 arg_6989586621679126483_auwZ 'C' = FromInteger 12
Case_6989586621679127163_aux6 c_aux2 arg_6989586621679126483_auwZ 'D' = FromInteger 13
Case_6989586621679127163_aux6 c_aux2 arg_6989586621679126483_auwZ 'E' = FromInteger 14
Case_6989586621679127163_aux6 c_aux2 arg_6989586621679126483_auwZ 'F' = FromInteger 15
type family Case_6989586621679127161_aux4 c_aux2 arg_6989586621679126483_auwZ t_aux8 where
Case_6989586621679127161_aux4 c_aux2 arg_6989586621679126483_auwZ 'True = Apply DigitToIntSym0 c_aux2
Case_6989586621679127161_aux4 c_aux2 arg_6989586621679126483_auwZ 'False = Case_6989586621679127163_aux6 c_aux2 arg_6989586621679126483_auwZ arg_6989586621679126483_auwZ
type family Case_6989586621679127158_aux1 arg_6989586621679126483_auwZ t_aux9 where
Case_6989586621679127158_aux1 arg_6989586621679126483_auwZ c_aux2 = Case_6989586621679127161_aux4 c_aux2 arg_6989586621679126483_auwZ (Apply (Apply (&&@#@$) (Apply (Apply (<=@#@$) c_aux2) '9')) (Apply (Apply (>=@#@$) c_aux2) '0'))
type family Lambda_6989586621679127191_auxy cc_auxw c_auxs cs_auxt ccs_auxz where
Lambda_6989586621679127191_auxy cc_auxw c_auxs cs_auxt ccs_auxz = Apply ReturnSym0 (Apply (Apply (:@#@$) cc_auxw) ccs_auxz)
data Lambda_6989586621679127191Sym0 cc6989586621679127190
where
Lambda_6989586621679127191Sym0KindInference :: SameKind (Apply Lambda_6989586621679127191Sym0 arg_auxA) (Lambda_6989586621679127191Sym1 arg_auxA) =>
Lambda_6989586621679127191Sym0 cc6989586621679127190
type instance Apply Lambda_6989586621679127191Sym0 cc6989586621679127190 = Lambda_6989586621679127191Sym1 cc6989586621679127190
instance SuppressUnusedWarnings Lambda_6989586621679127191Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127191Sym0KindInference) ())
data Lambda_6989586621679127191Sym1 cc6989586621679127190 c6989586621679127186
where
Lambda_6989586621679127191Sym1KindInference :: SameKind (Apply (Lambda_6989586621679127191Sym1 cc6989586621679127190) arg_auxA) (Lambda_6989586621679127191Sym2 cc6989586621679127190 arg_auxA) =>
Lambda_6989586621679127191Sym1 cc6989586621679127190 c6989586621679127186
type instance Apply (Lambda_6989586621679127191Sym1 cc6989586621679127190) c6989586621679127186 = Lambda_6989586621679127191Sym2 cc6989586621679127190 c6989586621679127186
instance SuppressUnusedWarnings (Lambda_6989586621679127191Sym1 cc6989586621679127190) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127191Sym1KindInference) ())
data Lambda_6989586621679127191Sym2 cc6989586621679127190 c6989586621679127186 cs6989586621679127187
where
Lambda_6989586621679127191Sym2KindInference :: SameKind (Apply (Lambda_6989586621679127191Sym2 cc6989586621679127190 c6989586621679127186) arg_auxA) (Lambda_6989586621679127191Sym3 cc6989586621679127190 c6989586621679127186 arg_auxA) =>
Lambda_6989586621679127191Sym2 cc6989586621679127190 c6989586621679127186 cs6989586621679127187
type instance Apply (Lambda_6989586621679127191Sym2 cc6989586621679127190 c6989586621679127186) cs6989586621679127187 = Lambda_6989586621679127191Sym3 cc6989586621679127190 c6989586621679127186 cs6989586621679127187
instance SuppressUnusedWarnings (Lambda_6989586621679127191Sym2 cc6989586621679127190 c6989586621679127186) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127191Sym2KindInference) ())
data Lambda_6989586621679127191Sym3 cc6989586621679127190 c6989586621679127186 cs6989586621679127187 ccs6989586621679127193
where
Lambda_6989586621679127191Sym3KindInference :: SameKind (Apply (Lambda_6989586621679127191Sym3 cc6989586621679127190 c6989586621679127186 cs6989586621679127187) arg_auxA) (Lambda_6989586621679127191Sym4 cc6989586621679127190 c6989586621679127186 cs6989586621679127187 arg_auxA) =>
Lambda_6989586621679127191Sym3 cc6989586621679127190 c6989586621679127186 cs6989586621679127187 ccs6989586621679127193
type instance Apply (Lambda_6989586621679127191Sym3 cc6989586621679127190 c6989586621679127186 cs6989586621679127187) ccs6989586621679127193 = Lambda_6989586621679127191_auxy cc6989586621679127190 c6989586621679127186 cs6989586621679127187 ccs6989586621679127193
instance SuppressUnusedWarnings (Lambda_6989586621679127191Sym3 cc6989586621679127190 c6989586621679127186 cs6989586621679127187) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127191Sym3KindInference) ())
type family Lambda_6989586621679127191Sym4 cc6989586621679127190 c6989586621679127186 cs6989586621679127187 ccs6989586621679127193 where
Lambda_6989586621679127191Sym4 cc6989586621679127190 c6989586621679127186 cs6989586621679127187 ccs6989586621679127193 = Lambda_6989586621679127191_auxy cc6989586621679127190 c6989586621679127186 cs6989586621679127187 ccs6989586621679127193
type family Lambda_6989586621679127188_auxv c_auxs cs_auxt cc_auxw where
Lambda_6989586621679127188_auxv c_auxs cs_auxt cc_auxw = Apply (Apply (>>=@#@$) (Apply PstringSym0 cs_auxt)) (Apply (Apply (Apply Lambda_6989586621679127191Sym0 cc_auxw) c_auxs) cs_auxt)
data Lambda_6989586621679127188Sym0 c6989586621679127186
where
Lambda_6989586621679127188Sym0KindInference :: SameKind (Apply Lambda_6989586621679127188Sym0 arg_auxB) (Lambda_6989586621679127188Sym1 arg_auxB) =>
Lambda_6989586621679127188Sym0 c6989586621679127186
type instance Apply Lambda_6989586621679127188Sym0 c6989586621679127186 = Lambda_6989586621679127188Sym1 c6989586621679127186
instance SuppressUnusedWarnings Lambda_6989586621679127188Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127188Sym0KindInference) ())
data Lambda_6989586621679127188Sym1 c6989586621679127186 cs6989586621679127187
where
Lambda_6989586621679127188Sym1KindInference :: SameKind (Apply (Lambda_6989586621679127188Sym1 c6989586621679127186) arg_auxB) (Lambda_6989586621679127188Sym2 c6989586621679127186 arg_auxB) =>
Lambda_6989586621679127188Sym1 c6989586621679127186 cs6989586621679127187
type instance Apply (Lambda_6989586621679127188Sym1 c6989586621679127186) cs6989586621679127187 = Lambda_6989586621679127188Sym2 c6989586621679127186 cs6989586621679127187
instance SuppressUnusedWarnings (Lambda_6989586621679127188Sym1 c6989586621679127186) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127188Sym1KindInference) ())
data Lambda_6989586621679127188Sym2 c6989586621679127186 cs6989586621679127187 cc6989586621679127190
where
Lambda_6989586621679127188Sym2KindInference :: SameKind (Apply (Lambda_6989586621679127188Sym2 c6989586621679127186 cs6989586621679127187) arg_auxB) (Lambda_6989586621679127188Sym3 c6989586621679127186 cs6989586621679127187 arg_auxB) =>
Lambda_6989586621679127188Sym2 c6989586621679127186 cs6989586621679127187 cc6989586621679127190
type instance Apply (Lambda_6989586621679127188Sym2 c6989586621679127186 cs6989586621679127187) cc6989586621679127190 = Lambda_6989586621679127188_auxv c6989586621679127186 cs6989586621679127187 cc6989586621679127190
instance SuppressUnusedWarnings (Lambda_6989586621679127188Sym2 c6989586621679127186 cs6989586621679127187) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127188Sym2KindInference) ())
type family Lambda_6989586621679127188Sym3 c6989586621679127186 cs6989586621679127187 cc6989586621679127190 where
Lambda_6989586621679127188Sym3 c6989586621679127186 cs6989586621679127187 cc6989586621679127190 = Lambda_6989586621679127188_auxv c6989586621679127186 cs6989586621679127187 cc6989586621679127190
type family Lambda_6989586621679127197_auxE c_auxF where
Lambda_6989586621679127197_auxE c_auxF = Apply (Apply (/=@#@$) c_auxF) '%'
data Lambda_6989586621679127197Sym0 c6989586621679127199
where
Lambda_6989586621679127197Sym0KindInference :: SameKind (Apply Lambda_6989586621679127197Sym0 arg_auxG) (Lambda_6989586621679127197Sym1 arg_auxG) =>
Lambda_6989586621679127197Sym0 c6989586621679127199
type instance Apply Lambda_6989586621679127197Sym0 c6989586621679127199 = Lambda_6989586621679127197_auxE c6989586621679127199
instance SuppressUnusedWarnings Lambda_6989586621679127197Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127197Sym0KindInference) ())
type family Lambda_6989586621679127197Sym1 c6989586621679127199 where
Lambda_6989586621679127197Sym1 c6989586621679127199 = Lambda_6989586621679127197_auxE c6989586621679127199
type family Lambda_6989586621679127213_auxU c_auxS p_auxM stop_auxN cs_auxV where
Lambda_6989586621679127213_auxU c_auxS p_auxM stop_auxN cs_auxV = Apply ReturnSym0 (Apply (Apply (:@#@$) c_auxS) cs_auxV)
data Lambda_6989586621679127213Sym0 c6989586621679127212
where
Lambda_6989586621679127213Sym0KindInference :: SameKind (Apply Lambda_6989586621679127213Sym0 arg_auxW) (Lambda_6989586621679127213Sym1 arg_auxW) =>
Lambda_6989586621679127213Sym0 c6989586621679127212
type instance Apply Lambda_6989586621679127213Sym0 c6989586621679127212 = Lambda_6989586621679127213Sym1 c6989586621679127212
instance SuppressUnusedWarnings Lambda_6989586621679127213Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127213Sym0KindInference) ())
data Lambda_6989586621679127213Sym1 c6989586621679127212 p6989586621679127206
where
Lambda_6989586621679127213Sym1KindInference :: SameKind (Apply (Lambda_6989586621679127213Sym1 c6989586621679127212) arg_auxW) (Lambda_6989586621679127213Sym2 c6989586621679127212 arg_auxW) =>
Lambda_6989586621679127213Sym1 c6989586621679127212 p6989586621679127206
type instance Apply (Lambda_6989586621679127213Sym1 c6989586621679127212) p6989586621679127206 = Lambda_6989586621679127213Sym2 c6989586621679127212 p6989586621679127206
instance SuppressUnusedWarnings (Lambda_6989586621679127213Sym1 c6989586621679127212) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127213Sym1KindInference) ())
data Lambda_6989586621679127213Sym2 c6989586621679127212 p6989586621679127206 stop6989586621679127207
where
Lambda_6989586621679127213Sym2KindInference :: SameKind (Apply (Lambda_6989586621679127213Sym2 c6989586621679127212 p6989586621679127206) arg_auxW) (Lambda_6989586621679127213Sym3 c6989586621679127212 p6989586621679127206 arg_auxW) =>
Lambda_6989586621679127213Sym2 c6989586621679127212 p6989586621679127206 stop6989586621679127207
type instance Apply (Lambda_6989586621679127213Sym2 c6989586621679127212 p6989586621679127206) stop6989586621679127207 = Lambda_6989586621679127213Sym3 c6989586621679127212 p6989586621679127206 stop6989586621679127207
instance SuppressUnusedWarnings (Lambda_6989586621679127213Sym2 c6989586621679127212 p6989586621679127206) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127213Sym2KindInference) ())
data Lambda_6989586621679127213Sym3 c6989586621679127212 p6989586621679127206 stop6989586621679127207 cs6989586621679127215
where
Lambda_6989586621679127213Sym3KindInference :: SameKind (Apply (Lambda_6989586621679127213Sym3 c6989586621679127212 p6989586621679127206 stop6989586621679127207) arg_auxW) (Lambda_6989586621679127213Sym4 c6989586621679127212 p6989586621679127206 stop6989586621679127207 arg_auxW) =>
Lambda_6989586621679127213Sym3 c6989586621679127212 p6989586621679127206 stop6989586621679127207 cs6989586621679127215
type instance Apply (Lambda_6989586621679127213Sym3 c6989586621679127212 p6989586621679127206 stop6989586621679127207) cs6989586621679127215 = Lambda_6989586621679127213_auxU c6989586621679127212 p6989586621679127206 stop6989586621679127207 cs6989586621679127215
instance SuppressUnusedWarnings (Lambda_6989586621679127213Sym3 c6989586621679127212 p6989586621679127206 stop6989586621679127207) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127213Sym3KindInference) ())
type family Lambda_6989586621679127213Sym4 c6989586621679127212 p6989586621679127206 stop6989586621679127207 cs6989586621679127215 where
Lambda_6989586621679127213Sym4 c6989586621679127212 p6989586621679127206 stop6989586621679127207 cs6989586621679127215 = Lambda_6989586621679127213_auxU c6989586621679127212 p6989586621679127206 stop6989586621679127207 cs6989586621679127215
type family Lambda_6989586621679127210_auxR p_auxM stop_auxN c_auxS where
Lambda_6989586621679127210_auxR p_auxM stop_auxN c_auxS = Apply (Apply (>>=@#@$) (Let6989586621679127208HelpSym2 p_auxM stop_auxN)) (Apply (Apply (Apply Lambda_6989586621679127213Sym0 c_auxS) p_auxM) stop_auxN)
data Lambda_6989586621679127210Sym0 p6989586621679127206
where
Lambda_6989586621679127210Sym0KindInference :: SameKind (Apply Lambda_6989586621679127210Sym0 arg_auxX) (Lambda_6989586621679127210Sym1 arg_auxX) =>
Lambda_6989586621679127210Sym0 p6989586621679127206
type instance Apply Lambda_6989586621679127210Sym0 p6989586621679127206 = Lambda_6989586621679127210Sym1 p6989586621679127206
instance SuppressUnusedWarnings Lambda_6989586621679127210Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127210Sym0KindInference) ())
data Lambda_6989586621679127210Sym1 p6989586621679127206 stop6989586621679127207
where
Lambda_6989586621679127210Sym1KindInference :: SameKind (Apply (Lambda_6989586621679127210Sym1 p6989586621679127206) arg_auxX) (Lambda_6989586621679127210Sym2 p6989586621679127206 arg_auxX) =>
Lambda_6989586621679127210Sym1 p6989586621679127206 stop6989586621679127207
type instance Apply (Lambda_6989586621679127210Sym1 p6989586621679127206) stop6989586621679127207 = Lambda_6989586621679127210Sym2 p6989586621679127206 stop6989586621679127207
instance SuppressUnusedWarnings (Lambda_6989586621679127210Sym1 p6989586621679127206) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127210Sym1KindInference) ())
data Lambda_6989586621679127210Sym2 p6989586621679127206 stop6989586621679127207 c6989586621679127212
where
Lambda_6989586621679127210Sym2KindInference :: SameKind (Apply (Lambda_6989586621679127210Sym2 p6989586621679127206 stop6989586621679127207) arg_auxX) (Lambda_6989586621679127210Sym3 p6989586621679127206 stop6989586621679127207 arg_auxX) =>
Lambda_6989586621679127210Sym2 p6989586621679127206 stop6989586621679127207 c6989586621679127212
type instance Apply (Lambda_6989586621679127210Sym2 p6989586621679127206 stop6989586621679127207) c6989586621679127212 = Lambda_6989586621679127210_auxR p6989586621679127206 stop6989586621679127207 c6989586621679127212
instance SuppressUnusedWarnings (Lambda_6989586621679127210Sym2 p6989586621679127206 stop6989586621679127207) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127210Sym2KindInference) ())
type family Lambda_6989586621679127210Sym3 p6989586621679127206 stop6989586621679127207 c6989586621679127212 where
Lambda_6989586621679127210Sym3 p6989586621679127206 stop6989586621679127207 c6989586621679127212 = Lambda_6989586621679127210_auxR p6989586621679127206 stop6989586621679127207 c6989586621679127212
data Let6989586621679127208HelpSym0 p6989586621679127206
where
Let6989586621679127208HelpSym0KindInference :: SameKind (Apply Let6989586621679127208HelpSym0 arg_auxP) (Let6989586621679127208HelpSym1 arg_auxP) =>
Let6989586621679127208HelpSym0 p6989586621679127206
type instance Apply Let6989586621679127208HelpSym0 p6989586621679127206 = Let6989586621679127208HelpSym1 p6989586621679127206
instance SuppressUnusedWarnings Let6989586621679127208HelpSym0 where
suppressUnusedWarnings
= snd (((,) Let6989586621679127208HelpSym0KindInference) ())
data Let6989586621679127208HelpSym1 p6989586621679127206 stop6989586621679127207
where
Let6989586621679127208HelpSym1KindInference :: SameKind (Apply (Let6989586621679127208HelpSym1 p6989586621679127206) arg_auxP) (Let6989586621679127208HelpSym2 p6989586621679127206 arg_auxP) =>
Let6989586621679127208HelpSym1 p6989586621679127206 stop6989586621679127207
type instance Apply (Let6989586621679127208HelpSym1 p6989586621679127206) stop6989586621679127207 = Let6989586621679127208Help p6989586621679127206 stop6989586621679127207
instance SuppressUnusedWarnings (Let6989586621679127208HelpSym1 p6989586621679127206) where
suppressUnusedWarnings
= snd (((,) Let6989586621679127208HelpSym1KindInference) ())
type family Let6989586621679127208HelpSym2 p6989586621679127206 stop6989586621679127207 where
Let6989586621679127208HelpSym2 p6989586621679127206 stop6989586621679127207 = Let6989586621679127208Help p6989586621679127206 stop6989586621679127207
type family Let6989586621679127208Help p_auxM stop_auxN where
Let6989586621679127208Help p_auxM stop_auxN = Apply (Apply (<|>@#@$) (Apply (Apply (>>@#@$) stop_auxN) (Apply ReturnSym0 NilSym0))) (Apply (Apply (>>=@#@$) p_auxM) (Apply (Apply Lambda_6989586621679127210Sym0 p_auxM) stop_auxN))
type family Lambda_6989586621679127225_auy6 x_auy4 p_auy1 xs_auy7 where
Lambda_6989586621679127225_auy6 x_auy4 p_auy1 xs_auy7 = Apply ReturnSym0 (Apply (Apply (:@#@$) x_auy4) xs_auy7)
data Lambda_6989586621679127225Sym0 x6989586621679127224
where
Lambda_6989586621679127225Sym0KindInference :: SameKind (Apply Lambda_6989586621679127225Sym0 arg_auy8) (Lambda_6989586621679127225Sym1 arg_auy8) =>
Lambda_6989586621679127225Sym0 x6989586621679127224
type instance Apply Lambda_6989586621679127225Sym0 x6989586621679127224 = Lambda_6989586621679127225Sym1 x6989586621679127224
instance SuppressUnusedWarnings Lambda_6989586621679127225Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127225Sym0KindInference) ())
data Lambda_6989586621679127225Sym1 x6989586621679127224 p6989586621679127221
where
Lambda_6989586621679127225Sym1KindInference :: SameKind (Apply (Lambda_6989586621679127225Sym1 x6989586621679127224) arg_auy8) (Lambda_6989586621679127225Sym2 x6989586621679127224 arg_auy8) =>
Lambda_6989586621679127225Sym1 x6989586621679127224 p6989586621679127221
type instance Apply (Lambda_6989586621679127225Sym1 x6989586621679127224) p6989586621679127221 = Lambda_6989586621679127225Sym2 x6989586621679127224 p6989586621679127221
instance SuppressUnusedWarnings (Lambda_6989586621679127225Sym1 x6989586621679127224) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127225Sym1KindInference) ())
data Lambda_6989586621679127225Sym2 x6989586621679127224 p6989586621679127221 xs6989586621679127227
where
Lambda_6989586621679127225Sym2KindInference :: SameKind (Apply (Lambda_6989586621679127225Sym2 x6989586621679127224 p6989586621679127221) arg_auy8) (Lambda_6989586621679127225Sym3 x6989586621679127224 p6989586621679127221 arg_auy8) =>
Lambda_6989586621679127225Sym2 x6989586621679127224 p6989586621679127221 xs6989586621679127227
type instance Apply (Lambda_6989586621679127225Sym2 x6989586621679127224 p6989586621679127221) xs6989586621679127227 = Lambda_6989586621679127225_auy6 x6989586621679127224 p6989586621679127221 xs6989586621679127227
instance SuppressUnusedWarnings (Lambda_6989586621679127225Sym2 x6989586621679127224 p6989586621679127221) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127225Sym2KindInference) ())
type family Lambda_6989586621679127225Sym3 x6989586621679127224 p6989586621679127221 xs6989586621679127227 where
Lambda_6989586621679127225Sym3 x6989586621679127224 p6989586621679127221 xs6989586621679127227 = Lambda_6989586621679127225_auy6 x6989586621679127224 p6989586621679127221 xs6989586621679127227
type family Lambda_6989586621679127222_auy3 p_auy1 x_auy4 where
Lambda_6989586621679127222_auy3 p_auy1 x_auy4 = Apply (Apply (>>=@#@$) (Apply ManySym0 p_auy1)) (Apply (Apply Lambda_6989586621679127225Sym0 x_auy4) p_auy1)
data Lambda_6989586621679127222Sym0 p6989586621679127221
where
Lambda_6989586621679127222Sym0KindInference :: SameKind (Apply Lambda_6989586621679127222Sym0 arg_auy9) (Lambda_6989586621679127222Sym1 arg_auy9) =>
Lambda_6989586621679127222Sym0 p6989586621679127221
type instance Apply Lambda_6989586621679127222Sym0 p6989586621679127221 = Lambda_6989586621679127222Sym1 p6989586621679127221
instance SuppressUnusedWarnings Lambda_6989586621679127222Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127222Sym0KindInference) ())
data Lambda_6989586621679127222Sym1 p6989586621679127221 x6989586621679127224
where
Lambda_6989586621679127222Sym1KindInference :: SameKind (Apply (Lambda_6989586621679127222Sym1 p6989586621679127221) arg_auy9) (Lambda_6989586621679127222Sym2 p6989586621679127221 arg_auy9) =>
Lambda_6989586621679127222Sym1 p6989586621679127221 x6989586621679127224
type instance Apply (Lambda_6989586621679127222Sym1 p6989586621679127221) x6989586621679127224 = Lambda_6989586621679127222_auy3 p6989586621679127221 x6989586621679127224
instance SuppressUnusedWarnings (Lambda_6989586621679127222Sym1 p6989586621679127221) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127222Sym1KindInference) ())
type family Lambda_6989586621679127222Sym2 p6989586621679127221 x6989586621679127224 where
Lambda_6989586621679127222Sym2 p6989586621679127221 x6989586621679127224 = Lambda_6989586621679127222_auy3 p6989586621679127221 x6989586621679127224
type family Lambda_6989586621679127240_auyl pa_auyi a_auyj p_auyd as_auym where
Lambda_6989586621679127240_auyl pa_auyi a_auyj p_auyd as_auym = Apply ReturnSym0 (Apply (Apply (:@#@$) a_auyj) as_auym)
data Lambda_6989586621679127240Sym0 pa6989586621679127238
where
Lambda_6989586621679127240Sym0KindInference :: SameKind (Apply Lambda_6989586621679127240Sym0 arg_auyn) (Lambda_6989586621679127240Sym1 arg_auyn) =>
Lambda_6989586621679127240Sym0 pa6989586621679127238
type instance Apply Lambda_6989586621679127240Sym0 pa6989586621679127238 = Lambda_6989586621679127240Sym1 pa6989586621679127238
instance SuppressUnusedWarnings Lambda_6989586621679127240Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127240Sym0KindInference) ())
data Lambda_6989586621679127240Sym1 pa6989586621679127238 a6989586621679127239
where
Lambda_6989586621679127240Sym1KindInference :: SameKind (Apply (Lambda_6989586621679127240Sym1 pa6989586621679127238) arg_auyn) (Lambda_6989586621679127240Sym2 pa6989586621679127238 arg_auyn) =>
Lambda_6989586621679127240Sym1 pa6989586621679127238 a6989586621679127239
type instance Apply (Lambda_6989586621679127240Sym1 pa6989586621679127238) a6989586621679127239 = Lambda_6989586621679127240Sym2 pa6989586621679127238 a6989586621679127239
instance SuppressUnusedWarnings (Lambda_6989586621679127240Sym1 pa6989586621679127238) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127240Sym1KindInference) ())
data Lambda_6989586621679127240Sym2 pa6989586621679127238 a6989586621679127239 p6989586621679127233
where
Lambda_6989586621679127240Sym2KindInference :: SameKind (Apply (Lambda_6989586621679127240Sym2 pa6989586621679127238 a6989586621679127239) arg_auyn) (Lambda_6989586621679127240Sym3 pa6989586621679127238 a6989586621679127239 arg_auyn) =>
Lambda_6989586621679127240Sym2 pa6989586621679127238 a6989586621679127239 p6989586621679127233
type instance Apply (Lambda_6989586621679127240Sym2 pa6989586621679127238 a6989586621679127239) p6989586621679127233 = Lambda_6989586621679127240Sym3 pa6989586621679127238 a6989586621679127239 p6989586621679127233
instance SuppressUnusedWarnings (Lambda_6989586621679127240Sym2 pa6989586621679127238 a6989586621679127239) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127240Sym2KindInference) ())
data Lambda_6989586621679127240Sym3 pa6989586621679127238 a6989586621679127239 p6989586621679127233 as6989586621679127242
where
Lambda_6989586621679127240Sym3KindInference :: SameKind (Apply (Lambda_6989586621679127240Sym3 pa6989586621679127238 a6989586621679127239 p6989586621679127233) arg_auyn) (Lambda_6989586621679127240Sym4 pa6989586621679127238 a6989586621679127239 p6989586621679127233 arg_auyn) =>
Lambda_6989586621679127240Sym3 pa6989586621679127238 a6989586621679127239 p6989586621679127233 as6989586621679127242
type instance Apply (Lambda_6989586621679127240Sym3 pa6989586621679127238 a6989586621679127239 p6989586621679127233) as6989586621679127242 = Lambda_6989586621679127240_auyl pa6989586621679127238 a6989586621679127239 p6989586621679127233 as6989586621679127242
instance SuppressUnusedWarnings (Lambda_6989586621679127240Sym3 pa6989586621679127238 a6989586621679127239 p6989586621679127233) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127240Sym3KindInference) ())
type family Lambda_6989586621679127240Sym4 pa6989586621679127238 a6989586621679127239 p6989586621679127233 as6989586621679127242 where
Lambda_6989586621679127240Sym4 pa6989586621679127238 a6989586621679127239 p6989586621679127233 as6989586621679127242 = Lambda_6989586621679127240_auyl pa6989586621679127238 a6989586621679127239 p6989586621679127233 as6989586621679127242
data Let6989586621679127234ManyContSym0 p6989586621679127233
where
Let6989586621679127234ManyContSym0KindInference :: SameKind (Apply Let6989586621679127234ManyContSym0 arg_auyh) (Let6989586621679127234ManyContSym1 arg_auyh) =>
Let6989586621679127234ManyContSym0 p6989586621679127233
type instance Apply Let6989586621679127234ManyContSym0 p6989586621679127233 = Let6989586621679127234ManyContSym1 p6989586621679127233
instance SuppressUnusedWarnings Let6989586621679127234ManyContSym0 where
suppressUnusedWarnings
= snd (((,) Let6989586621679127234ManyContSym0KindInference) ())
data Let6989586621679127234ManyContSym1 p6989586621679127233 a6989586621679127235
where
Let6989586621679127234ManyContSym1KindInference :: SameKind (Apply (Let6989586621679127234ManyContSym1 p6989586621679127233) arg_auyh) (Let6989586621679127234ManyContSym2 p6989586621679127233 arg_auyh) =>
Let6989586621679127234ManyContSym1 p6989586621679127233 a6989586621679127235
type instance Apply (Let6989586621679127234ManyContSym1 p6989586621679127233) a6989586621679127235 = Let6989586621679127234ManyContSym2 p6989586621679127233 a6989586621679127235
instance SuppressUnusedWarnings (Let6989586621679127234ManyContSym1 p6989586621679127233) where
suppressUnusedWarnings
= snd (((,) Let6989586621679127234ManyContSym1KindInference) ())
data Let6989586621679127234ManyContSym2 p6989586621679127233 a6989586621679127235 a6989586621679127236
where
Let6989586621679127234ManyContSym2KindInference :: SameKind (Apply (Let6989586621679127234ManyContSym2 p6989586621679127233 a6989586621679127235) arg_auyh) (Let6989586621679127234ManyContSym3 p6989586621679127233 a6989586621679127235 arg_auyh) =>
Let6989586621679127234ManyContSym2 p6989586621679127233 a6989586621679127235 a6989586621679127236
type instance Apply (Let6989586621679127234ManyContSym2 p6989586621679127233 a6989586621679127235) a6989586621679127236 = Let6989586621679127234ManyCont p6989586621679127233 a6989586621679127235 a6989586621679127236
instance SuppressUnusedWarnings (Let6989586621679127234ManyContSym2 p6989586621679127233 a6989586621679127235) where
suppressUnusedWarnings
= snd (((,) Let6989586621679127234ManyContSym2KindInference) ())
type family Let6989586621679127234ManyContSym3 p6989586621679127233 a6989586621679127235 a6989586621679127236 where
Let6989586621679127234ManyContSym3 p6989586621679127233 a6989586621679127235 a6989586621679127236 = Let6989586621679127234ManyCont p6989586621679127233 a6989586621679127235 a6989586621679127236
type family Let6989586621679127234ManyCont p_auyd a_auyf a_auyg where
Let6989586621679127234ManyCont p_auyd pa_auyi a_auyj = Apply (Apply (>>=@#@$) (Apply ManySym0 pa_auyi)) (Apply (Apply (Apply Lambda_6989586621679127240Sym0 pa_auyi) a_auyj) p_auyd)
data Let6989586621679127256Scrutinee_6989586621679126477Sym0 c6989586621679127254
where
Let6989586621679127256Scrutinee_6989586621679126477Sym0KindInference :: SameKind (Apply Let6989586621679127256Scrutinee_6989586621679126477Sym0 arg_auyB) (Let6989586621679127256Scrutinee_6989586621679126477Sym1 arg_auyB) =>
Let6989586621679127256Scrutinee_6989586621679126477Sym0 c6989586621679127254
type instance Apply Let6989586621679127256Scrutinee_6989586621679126477Sym0 c6989586621679127254 = Let6989586621679127256Scrutinee_6989586621679126477Sym1 c6989586621679127254
instance SuppressUnusedWarnings Let6989586621679127256Scrutinee_6989586621679126477Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127256Scrutinee_6989586621679126477Sym0KindInference)
())
data Let6989586621679127256Scrutinee_6989586621679126477Sym1 c6989586621679127254 cs6989586621679127255
where
Let6989586621679127256Scrutinee_6989586621679126477Sym1KindInference :: SameKind (Apply (Let6989586621679127256Scrutinee_6989586621679126477Sym1 c6989586621679127254) arg_auyB) (Let6989586621679127256Scrutinee_6989586621679126477Sym2 c6989586621679127254 arg_auyB) =>
Let6989586621679127256Scrutinee_6989586621679126477Sym1 c6989586621679127254 cs6989586621679127255
type instance Apply (Let6989586621679127256Scrutinee_6989586621679126477Sym1 c6989586621679127254) cs6989586621679127255 = Let6989586621679127256Scrutinee_6989586621679126477Sym2 c6989586621679127254 cs6989586621679127255
instance SuppressUnusedWarnings (Let6989586621679127256Scrutinee_6989586621679126477Sym1 c6989586621679127254) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127256Scrutinee_6989586621679126477Sym1KindInference)
())
data Let6989586621679127256Scrutinee_6989586621679126477Sym2 c6989586621679127254 cs6989586621679127255 x_69895866216791264756989586621679127251
where
Let6989586621679127256Scrutinee_6989586621679126477Sym2KindInference :: SameKind (Apply (Let6989586621679127256Scrutinee_6989586621679126477Sym2 c6989586621679127254 cs6989586621679127255) arg_auyB) (Let6989586621679127256Scrutinee_6989586621679126477Sym3 c6989586621679127254 cs6989586621679127255 arg_auyB) =>
Let6989586621679127256Scrutinee_6989586621679126477Sym2 c6989586621679127254 cs6989586621679127255 x_69895866216791264756989586621679127251
type instance Apply (Let6989586621679127256Scrutinee_6989586621679126477Sym2 c6989586621679127254 cs6989586621679127255) x_69895866216791264756989586621679127251 = Let6989586621679127256Scrutinee_6989586621679126477Sym3 c6989586621679127254 cs6989586621679127255 x_69895866216791264756989586621679127251
instance SuppressUnusedWarnings (Let6989586621679127256Scrutinee_6989586621679126477Sym2 c6989586621679127254 cs6989586621679127255) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127256Scrutinee_6989586621679126477Sym2KindInference)
())
data Let6989586621679127256Scrutinee_6989586621679126477Sym3 c6989586621679127254 cs6989586621679127255 x_69895866216791264756989586621679127251 predicat6989586621679127248
where
Let6989586621679127256Scrutinee_6989586621679126477Sym3KindInference :: SameKind (Apply (Let6989586621679127256Scrutinee_6989586621679126477Sym3 c6989586621679127254 cs6989586621679127255 x_69895866216791264756989586621679127251) arg_auyB) (Let6989586621679127256Scrutinee_6989586621679126477Sym4 c6989586621679127254 cs6989586621679127255 x_69895866216791264756989586621679127251 arg_auyB) =>
Let6989586621679127256Scrutinee_6989586621679126477Sym3 c6989586621679127254 cs6989586621679127255 x_69895866216791264756989586621679127251 predicat6989586621679127248
type instance Apply (Let6989586621679127256Scrutinee_6989586621679126477Sym3 c6989586621679127254 cs6989586621679127255 x_69895866216791264756989586621679127251) predicat6989586621679127248 = Let6989586621679127256Scrutinee_6989586621679126477 c6989586621679127254 cs6989586621679127255 x_69895866216791264756989586621679127251 predicat6989586621679127248
instance SuppressUnusedWarnings (Let6989586621679127256Scrutinee_6989586621679126477Sym3 c6989586621679127254 cs6989586621679127255 x_69895866216791264756989586621679127251) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127256Scrutinee_6989586621679126477Sym3KindInference)
())
type family Let6989586621679127256Scrutinee_6989586621679126477Sym4 c6989586621679127254 cs6989586621679127255 x_69895866216791264756989586621679127251 predicat6989586621679127248 where
Let6989586621679127256Scrutinee_6989586621679126477Sym4 c6989586621679127254 cs6989586621679127255 x_69895866216791264756989586621679127251 predicat6989586621679127248 = Let6989586621679127256Scrutinee_6989586621679126477 c6989586621679127254 cs6989586621679127255 x_69895866216791264756989586621679127251 predicat6989586621679127248
type family Let6989586621679127256Scrutinee_6989586621679126477 c_auyy cs_auyz x_6989586621679126475_auyv predicat_auys where
Let6989586621679127256Scrutinee_6989586621679126477 c_auyy cs_auyz x_6989586621679126475_auyv predicat_auys = Apply predicat_auys c_auyy
type family Case_6989586621679127258_auyD c_auyy cs_auyz x_6989586621679126475_auyv predicat_auys t_auyE where
Case_6989586621679127258_auyD c_auyy cs_auyz x_6989586621679126475_auyv predicat_auys 'True = Apply RightSym0 (Apply (Apply Tuple2Sym0 cs_auyz) c_auyy)
Case_6989586621679127258_auyD c_auyy cs_auyz x_6989586621679126475_auyv predicat_auys 'False = Apply (Apply ($@#@$) LeftSym0) "Expected another input"
type family Case_6989586621679127252_auyx x_6989586621679126475_auyv predicat_auys t_auyF where
Case_6989586621679127252_auyx x_6989586621679126475_auyv predicat_auys '[] = Apply LeftSym0 "End of input"
Case_6989586621679127252_auyx x_6989586621679126475_auyv predicat_auys ('(:) c_auyy cs_auyz) = Case_6989586621679127258_auyD c_auyy cs_auyz x_6989586621679126475_auyv predicat_auys (Let6989586621679127256Scrutinee_6989586621679126477Sym4 c_auyy cs_auyz x_6989586621679126475_auyv predicat_auys)
type family Lambda_6989586621679127249_auyu predicat_auys x_6989586621679126475_auyv where
Lambda_6989586621679127249_auyu predicat_auys x_6989586621679126475_auyv = Case_6989586621679127252_auyx x_6989586621679126475_auyv predicat_auys x_6989586621679126475_auyv
data Lambda_6989586621679127249Sym0 predicat6989586621679127248
where
Lambda_6989586621679127249Sym0KindInference :: SameKind (Apply Lambda_6989586621679127249Sym0 arg_auyG) (Lambda_6989586621679127249Sym1 arg_auyG) =>
Lambda_6989586621679127249Sym0 predicat6989586621679127248
type instance Apply Lambda_6989586621679127249Sym0 predicat6989586621679127248 = Lambda_6989586621679127249Sym1 predicat6989586621679127248
instance SuppressUnusedWarnings Lambda_6989586621679127249Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127249Sym0KindInference) ())
data Lambda_6989586621679127249Sym1 predicat6989586621679127248 x_69895866216791264756989586621679127251
where
Lambda_6989586621679127249Sym1KindInference :: SameKind (Apply (Lambda_6989586621679127249Sym1 predicat6989586621679127248) arg_auyG) (Lambda_6989586621679127249Sym2 predicat6989586621679127248 arg_auyG) =>
Lambda_6989586621679127249Sym1 predicat6989586621679127248 x_69895866216791264756989586621679127251
type instance Apply (Lambda_6989586621679127249Sym1 predicat6989586621679127248) x_69895866216791264756989586621679127251 = Lambda_6989586621679127249_auyu predicat6989586621679127248 x_69895866216791264756989586621679127251
instance SuppressUnusedWarnings (Lambda_6989586621679127249Sym1 predicat6989586621679127248) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127249Sym1KindInference) ())
type family Lambda_6989586621679127249Sym2 predicat6989586621679127248 x_69895866216791264756989586621679127251 where
Lambda_6989586621679127249Sym2 predicat6989586621679127248 x_69895866216791264756989586621679127251 = Lambda_6989586621679127249_auyu predicat6989586621679127248 x_69895866216791264756989586621679127251
data Let6989586621679127271Scrutinee_6989586621679126469Sym0 c6989586621679127269
where
Let6989586621679127271Scrutinee_6989586621679126469Sym0KindInference :: SameKind (Apply Let6989586621679127271Scrutinee_6989586621679126469Sym0 arg_auyQ) (Let6989586621679127271Scrutinee_6989586621679126469Sym1 arg_auyQ) =>
Let6989586621679127271Scrutinee_6989586621679126469Sym0 c6989586621679127269
type instance Apply Let6989586621679127271Scrutinee_6989586621679126469Sym0 c6989586621679127269 = Let6989586621679127271Scrutinee_6989586621679126469Sym1 c6989586621679127269
instance SuppressUnusedWarnings Let6989586621679127271Scrutinee_6989586621679126469Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127271Scrutinee_6989586621679126469Sym0KindInference)
())
data Let6989586621679127271Scrutinee_6989586621679126469Sym1 c6989586621679127269 cs6989586621679127270
where
Let6989586621679127271Scrutinee_6989586621679126469Sym1KindInference :: SameKind (Apply (Let6989586621679127271Scrutinee_6989586621679126469Sym1 c6989586621679127269) arg_auyQ) (Let6989586621679127271Scrutinee_6989586621679126469Sym2 c6989586621679127269 arg_auyQ) =>
Let6989586621679127271Scrutinee_6989586621679126469Sym1 c6989586621679127269 cs6989586621679127270
type instance Apply (Let6989586621679127271Scrutinee_6989586621679126469Sym1 c6989586621679127269) cs6989586621679127270 = Let6989586621679127271Scrutinee_6989586621679126469Sym2 c6989586621679127269 cs6989586621679127270
instance SuppressUnusedWarnings (Let6989586621679127271Scrutinee_6989586621679126469Sym1 c6989586621679127269) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127271Scrutinee_6989586621679126469Sym1KindInference)
())
data Let6989586621679127271Scrutinee_6989586621679126469Sym2 c6989586621679127269 cs6989586621679127270 x_69895866216791264676989586621679127266
where
Let6989586621679127271Scrutinee_6989586621679126469Sym2KindInference :: SameKind (Apply (Let6989586621679127271Scrutinee_6989586621679126469Sym2 c6989586621679127269 cs6989586621679127270) arg_auyQ) (Let6989586621679127271Scrutinee_6989586621679126469Sym3 c6989586621679127269 cs6989586621679127270 arg_auyQ) =>
Let6989586621679127271Scrutinee_6989586621679126469Sym2 c6989586621679127269 cs6989586621679127270 x_69895866216791264676989586621679127266
type instance Apply (Let6989586621679127271Scrutinee_6989586621679126469Sym2 c6989586621679127269 cs6989586621679127270) x_69895866216791264676989586621679127266 = Let6989586621679127271Scrutinee_6989586621679126469 c6989586621679127269 cs6989586621679127270 x_69895866216791264676989586621679127266
instance SuppressUnusedWarnings (Let6989586621679127271Scrutinee_6989586621679126469Sym2 c6989586621679127269 cs6989586621679127270) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127271Scrutinee_6989586621679126469Sym2KindInference)
())
type family Let6989586621679127271Scrutinee_6989586621679126469Sym3 c6989586621679127269 cs6989586621679127270 x_69895866216791264676989586621679127266 where
Let6989586621679127271Scrutinee_6989586621679126469Sym3 c6989586621679127269 cs6989586621679127270 x_69895866216791264676989586621679127266 = Let6989586621679127271Scrutinee_6989586621679126469 c6989586621679127269 cs6989586621679127270 x_69895866216791264676989586621679127266
type family Let6989586621679127271Scrutinee_6989586621679126469 c_auyN cs_auyO x_6989586621679126467_auyK where
Let6989586621679127271Scrutinee_6989586621679126469 c_auyN cs_auyO x_6989586621679126467_auyK = Apply NoNewLineSym0 c_auyN
type family Case_6989586621679127273_auyS c_auyN cs_auyO x_6989586621679126467_auyK t_auyT where
Case_6989586621679127273_auyS c_auyN cs_auyO x_6989586621679126467_auyK 'True = Apply RightSym0 (Apply (Apply Tuple2Sym0 cs_auyO) c_auyN)
Case_6989586621679127273_auyS c_auyN cs_auyO x_6989586621679126467_auyK 'False = Apply (Apply ($@#@$) LeftSym0) (Apply (Apply (<>@#@$) "Expected any char. But ") "has been met")
type family Case_6989586621679127267_auyM x_6989586621679126467_auyK t_auyU where
Case_6989586621679127267_auyM x_6989586621679126467_auyK '[] = Apply LeftSym0 "End of input"
Case_6989586621679127267_auyM x_6989586621679126467_auyK ('(:) c_auyN cs_auyO) = Case_6989586621679127273_auyS c_auyN cs_auyO x_6989586621679126467_auyK (Let6989586621679127271Scrutinee_6989586621679126469Sym3 c_auyN cs_auyO x_6989586621679126467_auyK)
type family Lambda_6989586621679127264_auyJ x_6989586621679126467_auyK where
Lambda_6989586621679127264_auyJ x_6989586621679126467_auyK = Case_6989586621679127267_auyM x_6989586621679126467_auyK x_6989586621679126467_auyK
data Lambda_6989586621679127264Sym0 x_69895866216791264676989586621679127266
where
Lambda_6989586621679127264Sym0KindInference :: SameKind (Apply Lambda_6989586621679127264Sym0 arg_auyV) (Lambda_6989586621679127264Sym1 arg_auyV) =>
Lambda_6989586621679127264Sym0 x_69895866216791264676989586621679127266
type instance Apply Lambda_6989586621679127264Sym0 x_69895866216791264676989586621679127266 = Lambda_6989586621679127264_auyJ x_69895866216791264676989586621679127266
instance SuppressUnusedWarnings Lambda_6989586621679127264Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127264Sym0KindInference) ())
type family Lambda_6989586621679127264Sym1 x_69895866216791264676989586621679127266 where
Lambda_6989586621679127264Sym1 x_69895866216791264676989586621679127266 = Lambda_6989586621679127264_auyJ x_69895866216791264676989586621679127266
data Let6989586621679127286Scrutinee_6989586621679126461Sym0 c6989586621679127284
where
Let6989586621679127286Scrutinee_6989586621679126461Sym0KindInference :: SameKind (Apply Let6989586621679127286Scrutinee_6989586621679126461Sym0 arg_auz5) (Let6989586621679127286Scrutinee_6989586621679126461Sym1 arg_auz5) =>
Let6989586621679127286Scrutinee_6989586621679126461Sym0 c6989586621679127284
type instance Apply Let6989586621679127286Scrutinee_6989586621679126461Sym0 c6989586621679127284 = Let6989586621679127286Scrutinee_6989586621679126461Sym1 c6989586621679127284
instance SuppressUnusedWarnings Let6989586621679127286Scrutinee_6989586621679126461Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127286Scrutinee_6989586621679126461Sym0KindInference)
())
data Let6989586621679127286Scrutinee_6989586621679126461Sym1 c6989586621679127284 cs6989586621679127285
where
Let6989586621679127286Scrutinee_6989586621679126461Sym1KindInference :: SameKind (Apply (Let6989586621679127286Scrutinee_6989586621679126461Sym1 c6989586621679127284) arg_auz5) (Let6989586621679127286Scrutinee_6989586621679126461Sym2 c6989586621679127284 arg_auz5) =>
Let6989586621679127286Scrutinee_6989586621679126461Sym1 c6989586621679127284 cs6989586621679127285
type instance Apply (Let6989586621679127286Scrutinee_6989586621679126461Sym1 c6989586621679127284) cs6989586621679127285 = Let6989586621679127286Scrutinee_6989586621679126461Sym2 c6989586621679127284 cs6989586621679127285
instance SuppressUnusedWarnings (Let6989586621679127286Scrutinee_6989586621679126461Sym1 c6989586621679127284) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127286Scrutinee_6989586621679126461Sym1KindInference)
())
data Let6989586621679127286Scrutinee_6989586621679126461Sym2 c6989586621679127284 cs6989586621679127285 x_69895866216791264596989586621679127281
where
Let6989586621679127286Scrutinee_6989586621679126461Sym2KindInference :: SameKind (Apply (Let6989586621679127286Scrutinee_6989586621679126461Sym2 c6989586621679127284 cs6989586621679127285) arg_auz5) (Let6989586621679127286Scrutinee_6989586621679126461Sym3 c6989586621679127284 cs6989586621679127285 arg_auz5) =>
Let6989586621679127286Scrutinee_6989586621679126461Sym2 c6989586621679127284 cs6989586621679127285 x_69895866216791264596989586621679127281
type instance Apply (Let6989586621679127286Scrutinee_6989586621679126461Sym2 c6989586621679127284 cs6989586621679127285) x_69895866216791264596989586621679127281 = Let6989586621679127286Scrutinee_6989586621679126461 c6989586621679127284 cs6989586621679127285 x_69895866216791264596989586621679127281
instance SuppressUnusedWarnings (Let6989586621679127286Scrutinee_6989586621679126461Sym2 c6989586621679127284 cs6989586621679127285) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127286Scrutinee_6989586621679126461Sym2KindInference)
())
type family Let6989586621679127286Scrutinee_6989586621679126461Sym3 c6989586621679127284 cs6989586621679127285 x_69895866216791264596989586621679127281 where
Let6989586621679127286Scrutinee_6989586621679126461Sym3 c6989586621679127284 cs6989586621679127285 x_69895866216791264596989586621679127281 = Let6989586621679127286Scrutinee_6989586621679126461 c6989586621679127284 cs6989586621679127285 x_69895866216791264596989586621679127281
type family Let6989586621679127286Scrutinee_6989586621679126461 c_auz2 cs_auz3 x_6989586621679126459_auyZ where
Let6989586621679127286Scrutinee_6989586621679126461 c_auz2 cs_auz3 x_6989586621679126459_auyZ = Apply IsDigitSym0 c_auz2
type family Case_6989586621679127288_auz7 c_auz2 cs_auz3 x_6989586621679126459_auyZ t_auz8 where
Case_6989586621679127288_auz7 c_auz2 cs_auz3 x_6989586621679126459_auyZ 'True = Apply RightSym0 (Apply (Apply Tuple2Sym0 cs_auz3) (Apply DigitToIntSym0 c_auz2))
Case_6989586621679127288_auz7 c_auz2 cs_auz3 x_6989586621679126459_auyZ 'False = Apply (Apply ($@#@$) LeftSym0) (Apply (Apply (<>@#@$) "Expected a digit char. But ") "has been met")
type family Case_6989586621679127282_auz1 x_6989586621679126459_auyZ t_auz9 where
Case_6989586621679127282_auz1 x_6989586621679126459_auyZ '[] = Apply LeftSym0 "End of input"
Case_6989586621679127282_auz1 x_6989586621679126459_auyZ ('(:) c_auz2 cs_auz3) = Case_6989586621679127288_auz7 c_auz2 cs_auz3 x_6989586621679126459_auyZ (Let6989586621679127286Scrutinee_6989586621679126461Sym3 c_auz2 cs_auz3 x_6989586621679126459_auyZ)
type family Lambda_6989586621679127279_auyY x_6989586621679126459_auyZ where
Lambda_6989586621679127279_auyY x_6989586621679126459_auyZ = Case_6989586621679127282_auz1 x_6989586621679126459_auyZ x_6989586621679126459_auyZ
data Lambda_6989586621679127279Sym0 x_69895866216791264596989586621679127281
where
Lambda_6989586621679127279Sym0KindInference :: SameKind (Apply Lambda_6989586621679127279Sym0 arg_auza) (Lambda_6989586621679127279Sym1 arg_auza) =>
Lambda_6989586621679127279Sym0 x_69895866216791264596989586621679127281
type instance Apply Lambda_6989586621679127279Sym0 x_69895866216791264596989586621679127281 = Lambda_6989586621679127279_auyY x_69895866216791264596989586621679127281
instance SuppressUnusedWarnings Lambda_6989586621679127279Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127279Sym0KindInference) ())
type family Lambda_6989586621679127279Sym1 x_69895866216791264596989586621679127281 where
Lambda_6989586621679127279Sym1 x_69895866216791264596989586621679127281 = Lambda_6989586621679127279_auyY x_69895866216791264596989586621679127281
data Let6989586621679127301Scrutinee_6989586621679126453Sym0 c6989586621679127299
where
Let6989586621679127301Scrutinee_6989586621679126453Sym0KindInference :: SameKind (Apply Let6989586621679127301Scrutinee_6989586621679126453Sym0 arg_auzk) (Let6989586621679127301Scrutinee_6989586621679126453Sym1 arg_auzk) =>
Let6989586621679127301Scrutinee_6989586621679126453Sym0 c6989586621679127299
type instance Apply Let6989586621679127301Scrutinee_6989586621679126453Sym0 c6989586621679127299 = Let6989586621679127301Scrutinee_6989586621679126453Sym1 c6989586621679127299
instance SuppressUnusedWarnings Let6989586621679127301Scrutinee_6989586621679126453Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127301Scrutinee_6989586621679126453Sym0KindInference)
())
data Let6989586621679127301Scrutinee_6989586621679126453Sym1 c6989586621679127299 cs6989586621679127300
where
Let6989586621679127301Scrutinee_6989586621679126453Sym1KindInference :: SameKind (Apply (Let6989586621679127301Scrutinee_6989586621679126453Sym1 c6989586621679127299) arg_auzk) (Let6989586621679127301Scrutinee_6989586621679126453Sym2 c6989586621679127299 arg_auzk) =>
Let6989586621679127301Scrutinee_6989586621679126453Sym1 c6989586621679127299 cs6989586621679127300
type instance Apply (Let6989586621679127301Scrutinee_6989586621679126453Sym1 c6989586621679127299) cs6989586621679127300 = Let6989586621679127301Scrutinee_6989586621679126453Sym2 c6989586621679127299 cs6989586621679127300
instance SuppressUnusedWarnings (Let6989586621679127301Scrutinee_6989586621679126453Sym1 c6989586621679127299) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127301Scrutinee_6989586621679126453Sym1KindInference)
())
data Let6989586621679127301Scrutinee_6989586621679126453Sym2 c6989586621679127299 cs6989586621679127300 x_69895866216791264516989586621679127296
where
Let6989586621679127301Scrutinee_6989586621679126453Sym2KindInference :: SameKind (Apply (Let6989586621679127301Scrutinee_6989586621679126453Sym2 c6989586621679127299 cs6989586621679127300) arg_auzk) (Let6989586621679127301Scrutinee_6989586621679126453Sym3 c6989586621679127299 cs6989586621679127300 arg_auzk) =>
Let6989586621679127301Scrutinee_6989586621679126453Sym2 c6989586621679127299 cs6989586621679127300 x_69895866216791264516989586621679127296
type instance Apply (Let6989586621679127301Scrutinee_6989586621679126453Sym2 c6989586621679127299 cs6989586621679127300) x_69895866216791264516989586621679127296 = Let6989586621679127301Scrutinee_6989586621679126453 c6989586621679127299 cs6989586621679127300 x_69895866216791264516989586621679127296
instance SuppressUnusedWarnings (Let6989586621679127301Scrutinee_6989586621679126453Sym2 c6989586621679127299 cs6989586621679127300) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127301Scrutinee_6989586621679126453Sym2KindInference)
())
type family Let6989586621679127301Scrutinee_6989586621679126453Sym3 c6989586621679127299 cs6989586621679127300 x_69895866216791264516989586621679127296 where
Let6989586621679127301Scrutinee_6989586621679126453Sym3 c6989586621679127299 cs6989586621679127300 x_69895866216791264516989586621679127296 = Let6989586621679127301Scrutinee_6989586621679126453 c6989586621679127299 cs6989586621679127300 x_69895866216791264516989586621679127296
type family Let6989586621679127301Scrutinee_6989586621679126453 c_auzh cs_auzi x_6989586621679126451_auze where
Let6989586621679127301Scrutinee_6989586621679126453 c_auzh cs_auzi x_6989586621679126451_auze = Apply (Apply (&&@#@$) (Apply (Apply (>=@#@$) c_auzh) 'A')) (Apply (Apply (<=@#@$) c_auzh) 'z')
type family Case_6989586621679127303_auzm c_auzh cs_auzi x_6989586621679126451_auze t_auzn where
Case_6989586621679127303_auzm c_auzh cs_auzi x_6989586621679126451_auze 'True = Apply RightSym0 (Apply (Apply Tuple2Sym0 cs_auzi) c_auzh)
Case_6989586621679127303_auzm c_auzh cs_auzi x_6989586621679126451_auze 'False = Apply (Apply ($@#@$) LeftSym0) (Apply (Apply (<>@#@$) "Expected alphabetic char. But ") "has been met")
type family Case_6989586621679127297_auzg x_6989586621679126451_auze t_auzo where
Case_6989586621679127297_auzg x_6989586621679126451_auze '[] = Apply LeftSym0 "End of input"
Case_6989586621679127297_auzg x_6989586621679126451_auze ('(:) c_auzh cs_auzi) = Case_6989586621679127303_auzm c_auzh cs_auzi x_6989586621679126451_auze (Let6989586621679127301Scrutinee_6989586621679126453Sym3 c_auzh cs_auzi x_6989586621679126451_auze)
type family Lambda_6989586621679127294_auzd x_6989586621679126451_auze where
Lambda_6989586621679127294_auzd x_6989586621679126451_auze = Case_6989586621679127297_auzg x_6989586621679126451_auze x_6989586621679126451_auze
data Lambda_6989586621679127294Sym0 x_69895866216791264516989586621679127296
where
Lambda_6989586621679127294Sym0KindInference :: SameKind (Apply Lambda_6989586621679127294Sym0 arg_auzp) (Lambda_6989586621679127294Sym1 arg_auzp) =>
Lambda_6989586621679127294Sym0 x_69895866216791264516989586621679127296
type instance Apply Lambda_6989586621679127294Sym0 x_69895866216791264516989586621679127296 = Lambda_6989586621679127294_auzd x_69895866216791264516989586621679127296
instance SuppressUnusedWarnings Lambda_6989586621679127294Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127294Sym0KindInference) ())
type family Lambda_6989586621679127294Sym1 x_69895866216791264516989586621679127296 where
Lambda_6989586621679127294Sym1 x_69895866216791264516989586621679127296 = Lambda_6989586621679127294_auzd x_69895866216791264516989586621679127296
data Let6989586621679127316Scrutinee_6989586621679126445Sym0 c6989586621679127314
where
Let6989586621679127316Scrutinee_6989586621679126445Sym0KindInference :: SameKind (Apply Let6989586621679127316Scrutinee_6989586621679126445Sym0 arg_auzz) (Let6989586621679127316Scrutinee_6989586621679126445Sym1 arg_auzz) =>
Let6989586621679127316Scrutinee_6989586621679126445Sym0 c6989586621679127314
type instance Apply Let6989586621679127316Scrutinee_6989586621679126445Sym0 c6989586621679127314 = Let6989586621679127316Scrutinee_6989586621679126445Sym1 c6989586621679127314
instance SuppressUnusedWarnings Let6989586621679127316Scrutinee_6989586621679126445Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127316Scrutinee_6989586621679126445Sym0KindInference)
())
data Let6989586621679127316Scrutinee_6989586621679126445Sym1 c6989586621679127314 cs6989586621679127315
where
Let6989586621679127316Scrutinee_6989586621679126445Sym1KindInference :: SameKind (Apply (Let6989586621679127316Scrutinee_6989586621679126445Sym1 c6989586621679127314) arg_auzz) (Let6989586621679127316Scrutinee_6989586621679126445Sym2 c6989586621679127314 arg_auzz) =>
Let6989586621679127316Scrutinee_6989586621679126445Sym1 c6989586621679127314 cs6989586621679127315
type instance Apply (Let6989586621679127316Scrutinee_6989586621679126445Sym1 c6989586621679127314) cs6989586621679127315 = Let6989586621679127316Scrutinee_6989586621679126445Sym2 c6989586621679127314 cs6989586621679127315
instance SuppressUnusedWarnings (Let6989586621679127316Scrutinee_6989586621679126445Sym1 c6989586621679127314) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127316Scrutinee_6989586621679126445Sym1KindInference)
())
data Let6989586621679127316Scrutinee_6989586621679126445Sym2 c6989586621679127314 cs6989586621679127315 x_69895866216791264436989586621679127311
where
Let6989586621679127316Scrutinee_6989586621679126445Sym2KindInference :: SameKind (Apply (Let6989586621679127316Scrutinee_6989586621679126445Sym2 c6989586621679127314 cs6989586621679127315) arg_auzz) (Let6989586621679127316Scrutinee_6989586621679126445Sym3 c6989586621679127314 cs6989586621679127315 arg_auzz) =>
Let6989586621679127316Scrutinee_6989586621679126445Sym2 c6989586621679127314 cs6989586621679127315 x_69895866216791264436989586621679127311
type instance Apply (Let6989586621679127316Scrutinee_6989586621679126445Sym2 c6989586621679127314 cs6989586621679127315) x_69895866216791264436989586621679127311 = Let6989586621679127316Scrutinee_6989586621679126445 c6989586621679127314 cs6989586621679127315 x_69895866216791264436989586621679127311
instance SuppressUnusedWarnings (Let6989586621679127316Scrutinee_6989586621679126445Sym2 c6989586621679127314 cs6989586621679127315) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127316Scrutinee_6989586621679126445Sym2KindInference)
())
type family Let6989586621679127316Scrutinee_6989586621679126445Sym3 c6989586621679127314 cs6989586621679127315 x_69895866216791264436989586621679127311 where
Let6989586621679127316Scrutinee_6989586621679126445Sym3 c6989586621679127314 cs6989586621679127315 x_69895866216791264436989586621679127311 = Let6989586621679127316Scrutinee_6989586621679126445 c6989586621679127314 cs6989586621679127315 x_69895866216791264436989586621679127311
type family Let6989586621679127316Scrutinee_6989586621679126445 c_auzw cs_auzx x_6989586621679126443_auzt where
Let6989586621679127316Scrutinee_6989586621679126445 c_auzw cs_auzx x_6989586621679126443_auzt = Apply (Apply (&&@#@$) (Apply (Apply (>=@#@$) c_auzw) 'A')) (Apply (Apply (<=@#@$) c_auzw) 'Z')
type family Case_6989586621679127318_auzB c_auzw cs_auzx x_6989586621679126443_auzt t_auzC where
Case_6989586621679127318_auzB c_auzw cs_auzx x_6989586621679126443_auzt 'True = Apply RightSym0 (Apply (Apply Tuple2Sym0 cs_auzx) c_auzw)
Case_6989586621679127318_auzB c_auzw cs_auzx x_6989586621679126443_auzt 'False = Apply (Apply ($@#@$) LeftSym0) (Apply (Apply (<>@#@$) "Expected upper-case char. But ") "has been met")
type family Case_6989586621679127312_auzv x_6989586621679126443_auzt t_auzD where
Case_6989586621679127312_auzv x_6989586621679126443_auzt '[] = Apply LeftSym0 "End of input"
Case_6989586621679127312_auzv x_6989586621679126443_auzt ('(:) c_auzw cs_auzx) = Case_6989586621679127318_auzB c_auzw cs_auzx x_6989586621679126443_auzt (Let6989586621679127316Scrutinee_6989586621679126445Sym3 c_auzw cs_auzx x_6989586621679126443_auzt)
type family Lambda_6989586621679127309_auzs x_6989586621679126443_auzt where
Lambda_6989586621679127309_auzs x_6989586621679126443_auzt = Case_6989586621679127312_auzv x_6989586621679126443_auzt x_6989586621679126443_auzt
data Lambda_6989586621679127309Sym0 x_69895866216791264436989586621679127311
where
Lambda_6989586621679127309Sym0KindInference :: SameKind (Apply Lambda_6989586621679127309Sym0 arg_auzE) (Lambda_6989586621679127309Sym1 arg_auzE) =>
Lambda_6989586621679127309Sym0 x_69895866216791264436989586621679127311
type instance Apply Lambda_6989586621679127309Sym0 x_69895866216791264436989586621679127311 = Lambda_6989586621679127309_auzs x_69895866216791264436989586621679127311
instance SuppressUnusedWarnings Lambda_6989586621679127309Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127309Sym0KindInference) ())
type family Lambda_6989586621679127309Sym1 x_69895866216791264436989586621679127311 where
Lambda_6989586621679127309Sym1 x_69895866216791264436989586621679127311 = Lambda_6989586621679127309_auzs x_69895866216791264436989586621679127311
data Let6989586621679127334Scrutinee_6989586621679126437Sym0 c6989586621679127332
where
Let6989586621679127334Scrutinee_6989586621679126437Sym0KindInference :: SameKind (Apply Let6989586621679127334Scrutinee_6989586621679126437Sym0 arg_auzR) (Let6989586621679127334Scrutinee_6989586621679126437Sym1 arg_auzR) =>
Let6989586621679127334Scrutinee_6989586621679126437Sym0 c6989586621679127332
type instance Apply Let6989586621679127334Scrutinee_6989586621679126437Sym0 c6989586621679127332 = Let6989586621679127334Scrutinee_6989586621679126437Sym1 c6989586621679127332
instance SuppressUnusedWarnings Let6989586621679127334Scrutinee_6989586621679126437Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127334Scrutinee_6989586621679126437Sym0KindInference)
())
data Let6989586621679127334Scrutinee_6989586621679126437Sym1 c6989586621679127332 cs6989586621679127333
where
Let6989586621679127334Scrutinee_6989586621679126437Sym1KindInference :: SameKind (Apply (Let6989586621679127334Scrutinee_6989586621679126437Sym1 c6989586621679127332) arg_auzR) (Let6989586621679127334Scrutinee_6989586621679126437Sym2 c6989586621679127332 arg_auzR) =>
Let6989586621679127334Scrutinee_6989586621679126437Sym1 c6989586621679127332 cs6989586621679127333
type instance Apply (Let6989586621679127334Scrutinee_6989586621679126437Sym1 c6989586621679127332) cs6989586621679127333 = Let6989586621679127334Scrutinee_6989586621679126437Sym2 c6989586621679127332 cs6989586621679127333
instance SuppressUnusedWarnings (Let6989586621679127334Scrutinee_6989586621679126437Sym1 c6989586621679127332) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127334Scrutinee_6989586621679126437Sym1KindInference)
())
data Let6989586621679127334Scrutinee_6989586621679126437Sym2 c6989586621679127332 cs6989586621679127333 x_69895866216791264356989586621679127329
where
Let6989586621679127334Scrutinee_6989586621679126437Sym2KindInference :: SameKind (Apply (Let6989586621679127334Scrutinee_6989586621679126437Sym2 c6989586621679127332 cs6989586621679127333) arg_auzR) (Let6989586621679127334Scrutinee_6989586621679126437Sym3 c6989586621679127332 cs6989586621679127333 arg_auzR) =>
Let6989586621679127334Scrutinee_6989586621679126437Sym2 c6989586621679127332 cs6989586621679127333 x_69895866216791264356989586621679127329
type instance Apply (Let6989586621679127334Scrutinee_6989586621679126437Sym2 c6989586621679127332 cs6989586621679127333) x_69895866216791264356989586621679127329 = Let6989586621679127334Scrutinee_6989586621679126437Sym3 c6989586621679127332 cs6989586621679127333 x_69895866216791264356989586621679127329
instance SuppressUnusedWarnings (Let6989586621679127334Scrutinee_6989586621679126437Sym2 c6989586621679127332 cs6989586621679127333) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127334Scrutinee_6989586621679126437Sym2KindInference)
())
data Let6989586621679127334Scrutinee_6989586621679126437Sym3 c6989586621679127332 cs6989586621679127333 x_69895866216791264356989586621679127329 inp6989586621679127326
where
Let6989586621679127334Scrutinee_6989586621679126437Sym3KindInference :: SameKind (Apply (Let6989586621679127334Scrutinee_6989586621679126437Sym3 c6989586621679127332 cs6989586621679127333 x_69895866216791264356989586621679127329) arg_auzR) (Let6989586621679127334Scrutinee_6989586621679126437Sym4 c6989586621679127332 cs6989586621679127333 x_69895866216791264356989586621679127329 arg_auzR) =>
Let6989586621679127334Scrutinee_6989586621679126437Sym3 c6989586621679127332 cs6989586621679127333 x_69895866216791264356989586621679127329 inp6989586621679127326
type instance Apply (Let6989586621679127334Scrutinee_6989586621679126437Sym3 c6989586621679127332 cs6989586621679127333 x_69895866216791264356989586621679127329) inp6989586621679127326 = Let6989586621679127334Scrutinee_6989586621679126437 c6989586621679127332 cs6989586621679127333 x_69895866216791264356989586621679127329 inp6989586621679127326
instance SuppressUnusedWarnings (Let6989586621679127334Scrutinee_6989586621679126437Sym3 c6989586621679127332 cs6989586621679127333 x_69895866216791264356989586621679127329) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127334Scrutinee_6989586621679126437Sym3KindInference)
())
type family Let6989586621679127334Scrutinee_6989586621679126437Sym4 c6989586621679127332 cs6989586621679127333 x_69895866216791264356989586621679127329 inp6989586621679127326 where
Let6989586621679127334Scrutinee_6989586621679126437Sym4 c6989586621679127332 cs6989586621679127333 x_69895866216791264356989586621679127329 inp6989586621679127326 = Let6989586621679127334Scrutinee_6989586621679126437 c6989586621679127332 cs6989586621679127333 x_69895866216791264356989586621679127329 inp6989586621679127326
type family Let6989586621679127334Scrutinee_6989586621679126437 c_auzO cs_auzP x_6989586621679126435_auzL inp_auzI where
Let6989586621679127334Scrutinee_6989586621679126437 c_auzO cs_auzP x_6989586621679126435_auzL inp_auzI = Apply (Apply (==@#@$) c_auzO) inp_auzI
type family Case_6989586621679127336_auzT c_auzO cs_auzP x_6989586621679126435_auzL inp_auzI t_auzU where
Case_6989586621679127336_auzT c_auzO cs_auzP x_6989586621679126435_auzL inp_auzI 'True = Apply RightSym0 (Apply (Apply Tuple2Sym0 cs_auzP) c_auzO)
Case_6989586621679127336_auzT c_auzO cs_auzP x_6989586621679126435_auzL inp_auzI 'False = Apply LeftSym0 (Apply (Apply (<>@#@$) "Expected char \"") (Apply (Apply (<>@#@$) "\" but \"") "\" has been met"))
type family Case_6989586621679127330_auzN x_6989586621679126435_auzL inp_auzI t_auzV where
Case_6989586621679127330_auzN x_6989586621679126435_auzL inp_auzI '[] = Apply (Apply ($@#@$) LeftSym0) "Unexpected End of input, expected a char "
Case_6989586621679127330_auzN x_6989586621679126435_auzL inp_auzI ('(:) c_auzO cs_auzP) = Case_6989586621679127336_auzT c_auzO cs_auzP x_6989586621679126435_auzL inp_auzI (Let6989586621679127334Scrutinee_6989586621679126437Sym4 c_auzO cs_auzP x_6989586621679126435_auzL inp_auzI)
type family Lambda_6989586621679127327_auzK inp_auzI x_6989586621679126435_auzL where
Lambda_6989586621679127327_auzK inp_auzI x_6989586621679126435_auzL = Case_6989586621679127330_auzN x_6989586621679126435_auzL inp_auzI x_6989586621679126435_auzL
data Lambda_6989586621679127327Sym0 inp6989586621679127326
where
Lambda_6989586621679127327Sym0KindInference :: SameKind (Apply Lambda_6989586621679127327Sym0 arg_auzW) (Lambda_6989586621679127327Sym1 arg_auzW) =>
Lambda_6989586621679127327Sym0 inp6989586621679127326
type instance Apply Lambda_6989586621679127327Sym0 inp6989586621679127326 = Lambda_6989586621679127327Sym1 inp6989586621679127326
instance SuppressUnusedWarnings Lambda_6989586621679127327Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127327Sym0KindInference) ())
data Lambda_6989586621679127327Sym1 inp6989586621679127326 x_69895866216791264356989586621679127329
where
Lambda_6989586621679127327Sym1KindInference :: SameKind (Apply (Lambda_6989586621679127327Sym1 inp6989586621679127326) arg_auzW) (Lambda_6989586621679127327Sym2 inp6989586621679127326 arg_auzW) =>
Lambda_6989586621679127327Sym1 inp6989586621679127326 x_69895866216791264356989586621679127329
type instance Apply (Lambda_6989586621679127327Sym1 inp6989586621679127326) x_69895866216791264356989586621679127329 = Lambda_6989586621679127327_auzK inp6989586621679127326 x_69895866216791264356989586621679127329
instance SuppressUnusedWarnings (Lambda_6989586621679127327Sym1 inp6989586621679127326) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127327Sym1KindInference) ())
type family Lambda_6989586621679127327Sym2 inp6989586621679127326 x_69895866216791264356989586621679127329 where
Lambda_6989586621679127327Sym2 inp6989586621679127326 x_69895866216791264356989586621679127329 = Lambda_6989586621679127327_auzK inp6989586621679127326 x_69895866216791264356989586621679127329
type family Case_6989586621679127345_auA2 x_6989586621679126429_auA0 t_auA5 where
Case_6989586621679127345_auA2 x_6989586621679126429_auA0 '[] = Apply LeftSym0 "Unexpected end of input, expected a char"
Case_6989586621679127345_auA2 x_6989586621679126429_auA0 ('(:) c_auA3 cs_auA4) = Apply RightSym0 (Apply (Apply Tuple2Sym0 cs_auA4) c_auA3)
type family Lambda_6989586621679127342_auzZ x_6989586621679126429_auA0 where
Lambda_6989586621679127342_auzZ x_6989586621679126429_auA0 = Case_6989586621679127345_auA2 x_6989586621679126429_auA0 x_6989586621679126429_auA0
data Lambda_6989586621679127342Sym0 x_69895866216791264296989586621679127344
where
Lambda_6989586621679127342Sym0KindInference :: SameKind (Apply Lambda_6989586621679127342Sym0 arg_auA6) (Lambda_6989586621679127342Sym1 arg_auA6) =>
Lambda_6989586621679127342Sym0 x_69895866216791264296989586621679127344
type instance Apply Lambda_6989586621679127342Sym0 x_69895866216791264296989586621679127344 = Lambda_6989586621679127342_auzZ x_69895866216791264296989586621679127344
instance SuppressUnusedWarnings Lambda_6989586621679127342Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127342Sym0KindInference) ())
type family Lambda_6989586621679127342Sym1 x_69895866216791264296989586621679127344 where
Lambda_6989586621679127342Sym1 x_69895866216791264296989586621679127344 = Lambda_6989586621679127342_auzZ x_69895866216791264296989586621679127344
data Let6989586621679127359Scrutinee_6989586621679126419Sym0 str6989586621679127358
where
Let6989586621679127359Scrutinee_6989586621679126419Sym0KindInference :: SameKind (Apply Let6989586621679127359Scrutinee_6989586621679126419Sym0 arg_auAg) (Let6989586621679127359Scrutinee_6989586621679126419Sym1 arg_auAg) =>
Let6989586621679127359Scrutinee_6989586621679126419Sym0 str6989586621679127358
type instance Apply Let6989586621679127359Scrutinee_6989586621679126419Sym0 str6989586621679127358 = Let6989586621679127359Scrutinee_6989586621679126419Sym1 str6989586621679127358
instance SuppressUnusedWarnings Let6989586621679127359Scrutinee_6989586621679126419Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127359Scrutinee_6989586621679126419Sym0KindInference)
())
data Let6989586621679127359Scrutinee_6989586621679126419Sym1 str6989586621679127358 x6989586621679127354
where
Let6989586621679127359Scrutinee_6989586621679126419Sym1KindInference :: SameKind (Apply (Let6989586621679127359Scrutinee_6989586621679126419Sym1 str6989586621679127358) arg_auAg) (Let6989586621679127359Scrutinee_6989586621679126419Sym2 str6989586621679127358 arg_auAg) =>
Let6989586621679127359Scrutinee_6989586621679126419Sym1 str6989586621679127358 x6989586621679127354
type instance Apply (Let6989586621679127359Scrutinee_6989586621679126419Sym1 str6989586621679127358) x6989586621679127354 = Let6989586621679127359Scrutinee_6989586621679126419Sym2 str6989586621679127358 x6989586621679127354
instance SuppressUnusedWarnings (Let6989586621679127359Scrutinee_6989586621679126419Sym1 str6989586621679127358) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127359Scrutinee_6989586621679126419Sym1KindInference)
())
data Let6989586621679127359Scrutinee_6989586621679126419Sym2 str6989586621679127358 x6989586621679127354 y6989586621679127355
where
Let6989586621679127359Scrutinee_6989586621679126419Sym2KindInference :: SameKind (Apply (Let6989586621679127359Scrutinee_6989586621679126419Sym2 str6989586621679127358 x6989586621679127354) arg_auAg) (Let6989586621679127359Scrutinee_6989586621679126419Sym3 str6989586621679127358 x6989586621679127354 arg_auAg) =>
Let6989586621679127359Scrutinee_6989586621679126419Sym2 str6989586621679127358 x6989586621679127354 y6989586621679127355
type instance Apply (Let6989586621679127359Scrutinee_6989586621679126419Sym2 str6989586621679127358 x6989586621679127354) y6989586621679127355 = Let6989586621679127359Scrutinee_6989586621679126419 str6989586621679127358 x6989586621679127354 y6989586621679127355
instance SuppressUnusedWarnings (Let6989586621679127359Scrutinee_6989586621679126419Sym2 str6989586621679127358 x6989586621679127354) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127359Scrutinee_6989586621679126419Sym2KindInference)
())
type family Let6989586621679127359Scrutinee_6989586621679126419Sym3 str6989586621679127358 x6989586621679127354 y6989586621679127355 where
Let6989586621679127359Scrutinee_6989586621679126419Sym3 str6989586621679127358 x6989586621679127354 y6989586621679127355 = Let6989586621679127359Scrutinee_6989586621679126419 str6989586621679127358 x6989586621679127354 y6989586621679127355
type family Let6989586621679127359Scrutinee_6989586621679126419 str_auAe x_auAa y_auAb where
Let6989586621679127359Scrutinee_6989586621679126419 str_auAe x_auAa y_auAb = Apply (Apply ParseSym0 str_auAe) x_auAa
type family Case_6989586621679127361_auAi str_auAe x_auAa y_auAb t_auAk where
Case_6989586621679127361_auAi str_auAe x_auAa y_auAb ('Left e_auAj) = Apply LeftSym0 e_auAj
Case_6989586621679127361_auAi str_auAe x_auAa y_auAb ('Right _) = Apply (Apply ParseSym0 str_auAe) y_auAb
type family Lambda_6989586621679127356_auAd x_auAa y_auAb str_auAe where
Lambda_6989586621679127356_auAd x_auAa y_auAb str_auAe = Case_6989586621679127361_auAi str_auAe x_auAa y_auAb (Let6989586621679127359Scrutinee_6989586621679126419Sym3 str_auAe x_auAa y_auAb)
data Lambda_6989586621679127356Sym0 x6989586621679127354
where
Lambda_6989586621679127356Sym0KindInference :: SameKind (Apply Lambda_6989586621679127356Sym0 arg_auAl) (Lambda_6989586621679127356Sym1 arg_auAl) =>
Lambda_6989586621679127356Sym0 x6989586621679127354
type instance Apply Lambda_6989586621679127356Sym0 x6989586621679127354 = Lambda_6989586621679127356Sym1 x6989586621679127354
instance SuppressUnusedWarnings Lambda_6989586621679127356Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127356Sym0KindInference) ())
data Lambda_6989586621679127356Sym1 x6989586621679127354 y6989586621679127355
where
Lambda_6989586621679127356Sym1KindInference :: SameKind (Apply (Lambda_6989586621679127356Sym1 x6989586621679127354) arg_auAl) (Lambda_6989586621679127356Sym2 x6989586621679127354 arg_auAl) =>
Lambda_6989586621679127356Sym1 x6989586621679127354 y6989586621679127355
type instance Apply (Lambda_6989586621679127356Sym1 x6989586621679127354) y6989586621679127355 = Lambda_6989586621679127356Sym2 x6989586621679127354 y6989586621679127355
instance SuppressUnusedWarnings (Lambda_6989586621679127356Sym1 x6989586621679127354) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127356Sym1KindInference) ())
data Lambda_6989586621679127356Sym2 x6989586621679127354 y6989586621679127355 str6989586621679127358
where
Lambda_6989586621679127356Sym2KindInference :: SameKind (Apply (Lambda_6989586621679127356Sym2 x6989586621679127354 y6989586621679127355) arg_auAl) (Lambda_6989586621679127356Sym3 x6989586621679127354 y6989586621679127355 arg_auAl) =>
Lambda_6989586621679127356Sym2 x6989586621679127354 y6989586621679127355 str6989586621679127358
type instance Apply (Lambda_6989586621679127356Sym2 x6989586621679127354 y6989586621679127355) str6989586621679127358 = Lambda_6989586621679127356_auAd x6989586621679127354 y6989586621679127355 str6989586621679127358
instance SuppressUnusedWarnings (Lambda_6989586621679127356Sym2 x6989586621679127354 y6989586621679127355) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127356Sym2KindInference) ())
type family Lambda_6989586621679127356Sym3 x6989586621679127354 y6989586621679127355 str6989586621679127358 where
Lambda_6989586621679127356Sym3 x6989586621679127354 y6989586621679127355 str6989586621679127358 = Lambda_6989586621679127356_auAd x6989586621679127354 y6989586621679127355 str6989586621679127358
data Let6989586621679127373Scrutinee_6989586621679126375Sym0 str6989586621679127371
where
Let6989586621679127373Scrutinee_6989586621679126375Sym0KindInference :: SameKind (Apply Let6989586621679127373Scrutinee_6989586621679126375Sym0 arg_auAu) (Let6989586621679127373Scrutinee_6989586621679126375Sym1 arg_auAu) =>
Let6989586621679127373Scrutinee_6989586621679126375Sym0 str6989586621679127371
type instance Apply Let6989586621679127373Scrutinee_6989586621679126375Sym0 str6989586621679127371 = Let6989586621679127373Scrutinee_6989586621679126375Sym1 str6989586621679127371
instance SuppressUnusedWarnings Let6989586621679127373Scrutinee_6989586621679126375Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127373Scrutinee_6989586621679126375Sym0KindInference)
())
data Let6989586621679127373Scrutinee_6989586621679126375Sym1 str6989586621679127371 p6989586621679127372
where
Let6989586621679127373Scrutinee_6989586621679126375Sym1KindInference :: SameKind (Apply (Let6989586621679127373Scrutinee_6989586621679126375Sym1 str6989586621679127371) arg_auAu) (Let6989586621679127373Scrutinee_6989586621679126375Sym2 str6989586621679127371 arg_auAu) =>
Let6989586621679127373Scrutinee_6989586621679126375Sym1 str6989586621679127371 p6989586621679127372
type instance Apply (Let6989586621679127373Scrutinee_6989586621679126375Sym1 str6989586621679127371) p6989586621679127372 = Let6989586621679127373Scrutinee_6989586621679126375 str6989586621679127371 p6989586621679127372
instance SuppressUnusedWarnings (Let6989586621679127373Scrutinee_6989586621679126375Sym1 str6989586621679127371) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127373Scrutinee_6989586621679126375Sym1KindInference)
())
type family Let6989586621679127373Scrutinee_6989586621679126375Sym2 str6989586621679127371 p6989586621679127372 where
Let6989586621679127373Scrutinee_6989586621679126375Sym2 str6989586621679127371 p6989586621679127372 = Let6989586621679127373Scrutinee_6989586621679126375 str6989586621679127371 p6989586621679127372
type family Let6989586621679127373Scrutinee_6989586621679126375 str_auAr p_auAs where
Let6989586621679127373Scrutinee_6989586621679126375 str_auAr p_auAs = Apply p_auAs str_auAr
data Let6989586621679127380Scrutinee_6989586621679126377Sym0 unused6989586621679127378
where
Let6989586621679127380Scrutinee_6989586621679126377Sym0KindInference :: SameKind (Apply Let6989586621679127380Scrutinee_6989586621679126377Sym0 arg_auAB) (Let6989586621679127380Scrutinee_6989586621679126377Sym1 arg_auAB) =>
Let6989586621679127380Scrutinee_6989586621679126377Sym0 unused6989586621679127378
type instance Apply Let6989586621679127380Scrutinee_6989586621679126377Sym0 unused6989586621679127378 = Let6989586621679127380Scrutinee_6989586621679126377Sym1 unused6989586621679127378
instance SuppressUnusedWarnings Let6989586621679127380Scrutinee_6989586621679126377Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127380Scrutinee_6989586621679126377Sym0KindInference)
())
data Let6989586621679127380Scrutinee_6989586621679126377Sym1 unused6989586621679127378 res6989586621679127379
where
Let6989586621679127380Scrutinee_6989586621679126377Sym1KindInference :: SameKind (Apply (Let6989586621679127380Scrutinee_6989586621679126377Sym1 unused6989586621679127378) arg_auAB) (Let6989586621679127380Scrutinee_6989586621679126377Sym2 unused6989586621679127378 arg_auAB) =>
Let6989586621679127380Scrutinee_6989586621679126377Sym1 unused6989586621679127378 res6989586621679127379
type instance Apply (Let6989586621679127380Scrutinee_6989586621679126377Sym1 unused6989586621679127378) res6989586621679127379 = Let6989586621679127380Scrutinee_6989586621679126377Sym2 unused6989586621679127378 res6989586621679127379
instance SuppressUnusedWarnings (Let6989586621679127380Scrutinee_6989586621679126377Sym1 unused6989586621679127378) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127380Scrutinee_6989586621679126377Sym1KindInference)
())
data Let6989586621679127380Scrutinee_6989586621679126377Sym2 unused6989586621679127378 res6989586621679127379 str6989586621679127371
where
Let6989586621679127380Scrutinee_6989586621679126377Sym2KindInference :: SameKind (Apply (Let6989586621679127380Scrutinee_6989586621679126377Sym2 unused6989586621679127378 res6989586621679127379) arg_auAB) (Let6989586621679127380Scrutinee_6989586621679126377Sym3 unused6989586621679127378 res6989586621679127379 arg_auAB) =>
Let6989586621679127380Scrutinee_6989586621679126377Sym2 unused6989586621679127378 res6989586621679127379 str6989586621679127371
type instance Apply (Let6989586621679127380Scrutinee_6989586621679126377Sym2 unused6989586621679127378 res6989586621679127379) str6989586621679127371 = Let6989586621679127380Scrutinee_6989586621679126377Sym3 unused6989586621679127378 res6989586621679127379 str6989586621679127371
instance SuppressUnusedWarnings (Let6989586621679127380Scrutinee_6989586621679126377Sym2 unused6989586621679127378 res6989586621679127379) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127380Scrutinee_6989586621679126377Sym2KindInference)
())
data Let6989586621679127380Scrutinee_6989586621679126377Sym3 unused6989586621679127378 res6989586621679127379 str6989586621679127371 p6989586621679127372
where
Let6989586621679127380Scrutinee_6989586621679126377Sym3KindInference :: SameKind (Apply (Let6989586621679127380Scrutinee_6989586621679126377Sym3 unused6989586621679127378 res6989586621679127379 str6989586621679127371) arg_auAB) (Let6989586621679127380Scrutinee_6989586621679126377Sym4 unused6989586621679127378 res6989586621679127379 str6989586621679127371 arg_auAB) =>
Let6989586621679127380Scrutinee_6989586621679126377Sym3 unused6989586621679127378 res6989586621679127379 str6989586621679127371 p6989586621679127372
type instance Apply (Let6989586621679127380Scrutinee_6989586621679126377Sym3 unused6989586621679127378 res6989586621679127379 str6989586621679127371) p6989586621679127372 = Let6989586621679127380Scrutinee_6989586621679126377 unused6989586621679127378 res6989586621679127379 str6989586621679127371 p6989586621679127372
instance SuppressUnusedWarnings (Let6989586621679127380Scrutinee_6989586621679126377Sym3 unused6989586621679127378 res6989586621679127379 str6989586621679127371) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127380Scrutinee_6989586621679126377Sym3KindInference)
())
type family Let6989586621679127380Scrutinee_6989586621679126377Sym4 unused6989586621679127378 res6989586621679127379 str6989586621679127371 p6989586621679127372 where
Let6989586621679127380Scrutinee_6989586621679126377Sym4 unused6989586621679127378 res6989586621679127379 str6989586621679127371 p6989586621679127372 = Let6989586621679127380Scrutinee_6989586621679126377 unused6989586621679127378 res6989586621679127379 str6989586621679127371 p6989586621679127372
type family Let6989586621679127380Scrutinee_6989586621679126377 unused_auAy res_auAz str_auAr p_auAs where
Let6989586621679127380Scrutinee_6989586621679126377 unused_auAy res_auAz str_auAr p_auAs = Apply (Apply (==@#@$) unused_auAy) NilSym0
type family Case_6989586621679127382_auAD unused_auAy res_auAz str_auAr p_auAs t_auAE where
Case_6989586621679127382_auAD unused_auAy res_auAz str_auAr p_auAs 'True = Apply RightSym0 res_auAz
Case_6989586621679127382_auAD unused_auAy res_auAz str_auAr p_auAs 'False = Apply LeftSym0 "Parsing succeed, but unexpected unparsed string has been met: "
type family Case_6989586621679127375_auAw str_auAr p_auAs t_auAF where
Case_6989586621679127375_auAw str_auAr p_auAs ('Left err_auAx) = Apply LeftSym0 err_auAx
Case_6989586621679127375_auAw str_auAr p_auAs ('Right '(unused_auAy,
res_auAz)) = Case_6989586621679127382_auAD unused_auAy res_auAz str_auAr p_auAs (Let6989586621679127380Scrutinee_6989586621679126377Sym4 unused_auAy res_auAz str_auAr p_auAs)
type TupleCharSym0 :: (~>) Char (PParser (Char, Char))
data TupleCharSym0 :: (~>) Char (PParser (Char, Char))
where
TupleCharSym0KindInference :: SameKind (Apply TupleCharSym0 arg_auwi) (TupleCharSym1 arg_auwi) =>
TupleCharSym0 a6989586621679127115
type instance Apply TupleCharSym0 a6989586621679127115 = TupleChar a6989586621679127115
instance SuppressUnusedWarnings TupleCharSym0 where
suppressUnusedWarnings = snd (((,) TupleCharSym0KindInference) ())
type TupleCharSym1 :: Char -> PParser (Char, Char)
type family TupleCharSym1 (a6989586621679127115 :: Char) :: PParser (Char,
Char) where
TupleCharSym1 a6989586621679127115 = TupleChar a6989586621679127115
type PInvCharSym0 :: (~>) (PParser Char) (PParser Char)
data PInvCharSym0 :: (~>) (PParser Char) (PParser Char)
where
PInvCharSym0KindInference :: SameKind (Apply PInvCharSym0 arg_auwu) (PInvCharSym1 arg_auwu) =>
PInvCharSym0 a6989586621679127127
type instance Apply PInvCharSym0 a6989586621679127127 = PInvChar a6989586621679127127
instance SuppressUnusedWarnings PInvCharSym0 where
suppressUnusedWarnings = snd (((,) PInvCharSym0KindInference) ())
type PInvCharSym1 :: PParser Char -> PParser Char
type family PInvCharSym1 (a6989586621679127127 :: PParser Char) :: PParser Char where
PInvCharSym1 a6989586621679127127 = PInvChar a6989586621679127127
type EofSym0 :: PParser ()
type family EofSym0 :: PParser () where
EofSym0 = Eof
data IsHexSym0 a6989586621679127152
where
IsHexSym0KindInference :: SameKind (Apply IsHexSym0 arg_auwV) (IsHexSym1 arg_auwV) =>
IsHexSym0 a6989586621679127152
type instance Apply IsHexSym0 a6989586621679127152 = IsHex a6989586621679127152
instance SuppressUnusedWarnings IsHexSym0 where
suppressUnusedWarnings = snd (((,) IsHexSym0KindInference) ())
type family IsHexSym1 a6989586621679127152 where
IsHexSym1 a6989586621679127152 = IsHex a6989586621679127152
data DigitToIntHexSym0 a6989586621679127155
where
DigitToIntHexSym0KindInference :: SameKind (Apply DigitToIntHexSym0 arg_auwY) (DigitToIntHexSym1 arg_auwY) =>
DigitToIntHexSym0 a6989586621679127155
type instance Apply DigitToIntHexSym0 a6989586621679127155 = DigitToIntHex a6989586621679127155
instance SuppressUnusedWarnings DigitToIntHexSym0 where
suppressUnusedWarnings
= snd (((,) DigitToIntHexSym0KindInference) ())
type family DigitToIntHexSym1 a6989586621679127155 where
DigitToIntHexSym1 a6989586621679127155 = DigitToIntHex a6989586621679127155
type DigitToIntSym0 :: (~>) Char Natural
data DigitToIntSym0 :: (~>) Char Natural
where
DigitToIntSym0KindInference :: SameKind (Apply DigitToIntSym0 arg_auxb) (DigitToIntSym1 arg_auxb) =>
DigitToIntSym0 a6989586621679127170
type instance Apply DigitToIntSym0 a6989586621679127170 = DigitToInt a6989586621679127170
instance SuppressUnusedWarnings DigitToIntSym0 where
suppressUnusedWarnings = snd (((,) DigitToIntSym0KindInference) ())
type DigitToIntSym1 :: Char -> Natural
type family DigitToIntSym1 (a6989586621679127170 :: Char) :: Natural where
DigitToIntSym1 a6989586621679127170 = DigitToInt a6989586621679127170
type NoNewLineSym0 :: (~>) Char Bool
data NoNewLineSym0 :: (~>) Char Bool
where
NoNewLineSym0KindInference :: SameKind (Apply NoNewLineSym0 arg_auxe) (NoNewLineSym1 arg_auxe) =>
NoNewLineSym0 a6989586621679127173
type instance Apply NoNewLineSym0 a6989586621679127173 = NoNewLine a6989586621679127173
instance SuppressUnusedWarnings NoNewLineSym0 where
suppressUnusedWarnings = snd (((,) NoNewLineSym0KindInference) ())
type NoNewLineSym1 :: Char -> Bool
type family NoNewLineSym1 (a6989586621679127173 :: Char) :: Bool where
NoNewLineSym1 a6989586621679127173 = NoNewLine a6989586621679127173
type IsNotRegSpecialSym0 :: (~>) Char Bool
data IsNotRegSpecialSym0 :: (~>) Char Bool
where
IsNotRegSpecialSym0KindInference :: SameKind (Apply IsNotRegSpecialSym0 arg_auxi) (IsNotRegSpecialSym1 arg_auxi) =>
IsNotRegSpecialSym0 a6989586621679127177
type instance Apply IsNotRegSpecialSym0 a6989586621679127177 = IsNotRegSpecial a6989586621679127177
instance SuppressUnusedWarnings IsNotRegSpecialSym0 where
suppressUnusedWarnings
= snd (((,) IsNotRegSpecialSym0KindInference) ())
type IsNotRegSpecialSym1 :: Char -> Bool
type family IsNotRegSpecialSym1 (a6989586621679127177 :: Char) :: Bool where
IsNotRegSpecialSym1 a6989586621679127177 = IsNotRegSpecial a6989586621679127177
type IsDigitSym0 :: (~>) Char Bool
data IsDigitSym0 :: (~>) Char Bool
where
IsDigitSym0KindInference :: SameKind (Apply IsDigitSym0 arg_auxm) (IsDigitSym1 arg_auxm) =>
IsDigitSym0 a6989586621679127181
type instance Apply IsDigitSym0 a6989586621679127181 = IsDigit a6989586621679127181
instance SuppressUnusedWarnings IsDigitSym0 where
suppressUnusedWarnings = snd (((,) IsDigitSym0KindInference) ())
type IsDigitSym1 :: Char -> Bool
type family IsDigitSym1 (a6989586621679127181 :: Char) :: Bool where
IsDigitSym1 a6989586621679127181 = IsDigit a6989586621679127181
type PstringSym0 :: (~>) [Char] (PParser [Char])
data PstringSym0 :: (~>) [Char] (PParser [Char])
where
PstringSym0KindInference :: SameKind (Apply PstringSym0 arg_auxq) (PstringSym1 arg_auxq) =>
PstringSym0 a6989586621679127185
type instance Apply PstringSym0 a6989586621679127185 = Pstring a6989586621679127185
instance SuppressUnusedWarnings PstringSym0 where
suppressUnusedWarnings = snd (((,) PstringSym0KindInference) ())
type PstringSym1 :: [Char] -> PParser [Char]
type family PstringSym1 (a6989586621679127185 :: [Char]) :: PParser [Char] where
PstringSym1 a6989586621679127185 = Pstring a6989586621679127185
type NotFormatCharSym0 :: PParser Char
type family NotFormatCharSym0 :: PParser Char where
NotFormatCharSym0 = NotFormatChar
type ManyTillSym0 :: (~>) (PParser a_auiy) ((~>) (PParser b_auiz) (PParser [a_auiy]))
data ManyTillSym0 :: (~>) (PParser a_auiy) ((~>) (PParser b_auiz) (PParser [a_auiy]))
where
ManyTillSym0KindInference :: SameKind (Apply ManyTillSym0 arg_auxJ) (ManyTillSym1 arg_auxJ) =>
ManyTillSym0 a6989586621679127204
type instance Apply ManyTillSym0 a6989586621679127204 = ManyTillSym1 a6989586621679127204
instance SuppressUnusedWarnings ManyTillSym0 where
suppressUnusedWarnings = snd (((,) ManyTillSym0KindInference) ())
type ManyTillSym1 :: PParser a_auiy
-> (~>) (PParser b_auiz) (PParser [a_auiy])
data ManyTillSym1 (a6989586621679127204 :: PParser a_auiy) :: (~>) (PParser b_auiz) (PParser [a_auiy])
where
ManyTillSym1KindInference :: SameKind (Apply (ManyTillSym1 a6989586621679127204) arg_auxJ) (ManyTillSym2 a6989586621679127204 arg_auxJ) =>
ManyTillSym1 a6989586621679127204 a6989586621679127205
type instance Apply (ManyTillSym1 a6989586621679127204) a6989586621679127205 = ManyTill a6989586621679127204 a6989586621679127205
instance SuppressUnusedWarnings (ManyTillSym1 a6989586621679127204) where
suppressUnusedWarnings = snd (((,) ManyTillSym1KindInference) ())
type ManyTillSym2 :: PParser a_auiy
-> PParser b_auiz -> PParser [a_auiy]
type family ManyTillSym2 (a6989586621679127204 :: PParser a_auiy) (a6989586621679127205 :: PParser b_auiz) :: PParser [a_auiy] where
ManyTillSym2 a6989586621679127204 a6989586621679127205 = ManyTill a6989586621679127204 a6989586621679127205
type SomeSym0 :: (~>) (PParser a_auiA) (PParser [a_auiA])
data SomeSym0 :: (~>) (PParser a_auiA) (PParser [a_auiA])
where
SomeSym0KindInference :: SameKind (Apply SomeSym0 arg_auxZ) (SomeSym1 arg_auxZ) =>
SomeSym0 a6989586621679127220
type instance Apply SomeSym0 a6989586621679127220 = Some a6989586621679127220
instance SuppressUnusedWarnings SomeSym0 where
suppressUnusedWarnings = snd (((,) SomeSym0KindInference) ())
type SomeSym1 :: PParser a_auiA -> PParser [a_auiA]
type family SomeSym1 (a6989586621679127220 :: PParser a_auiA) :: PParser [a_auiA] where
SomeSym1 a6989586621679127220 = Some a6989586621679127220
type ManySym0 :: (~>) (PParser a_auiB) (PParser [a_auiB])
data ManySym0 :: (~>) (PParser a_auiB) (PParser [a_auiB])
where
ManySym0KindInference :: SameKind (Apply ManySym0 arg_auyb) (ManySym1 arg_auyb) =>
ManySym0 a6989586621679127232
type instance Apply ManySym0 a6989586621679127232 = Many a6989586621679127232
instance SuppressUnusedWarnings ManySym0 where
suppressUnusedWarnings = snd (((,) ManySym0KindInference) ())
type ManySym1 :: PParser a_auiB -> PParser [a_auiB]
type family ManySym1 (a6989586621679127232 :: PParser a_auiB) :: PParser [a_auiB] where
ManySym1 a6989586621679127232 = Many a6989586621679127232
type RegNotSpecialSym0 :: PParser Char
type family RegNotSpecialSym0 :: PParser Char where
RegNotSpecialSym0 = RegNotSpecial
type PredicCharSym0 :: (~>) ((~>) Char Bool) (PParser Char)
data PredicCharSym0 :: (~>) ((~>) Char Bool) (PParser Char)
where
PredicCharSym0KindInference :: SameKind (Apply PredicCharSym0 arg_auyq) (PredicCharSym1 arg_auyq) =>
PredicCharSym0 a6989586621679127247
type instance Apply PredicCharSym0 a6989586621679127247 = PredicChar a6989586621679127247
instance SuppressUnusedWarnings PredicCharSym0 where
suppressUnusedWarnings = snd (((,) PredicCharSym0KindInference) ())
type PredicCharSym1 :: (~>) Char Bool -> PParser Char
type family PredicCharSym1 (a6989586621679127247 :: (~>) Char Bool) :: PParser Char where
PredicCharSym1 a6989586621679127247 = PredicChar a6989586621679127247
type NoNewLineCharSym0 :: PParser Char
type family NoNewLineCharSym0 :: PParser Char where
NoNewLineCharSym0 = NoNewLineChar
type DigitCharSym0 :: PParser Natural
type family DigitCharSym0 :: PParser Natural where
DigitCharSym0 = DigitChar
type AlphaCharSym0 :: PParser Char
type family AlphaCharSym0 :: PParser Char where
AlphaCharSym0 = AlphaChar
type UpCaseCharSym0 :: PParser Char
type family UpCaseCharSym0 :: PParser Char where
UpCaseCharSym0 = UpCaseChar
type PcharSym0 :: (~>) Char (PParser Char)
data PcharSym0 :: (~>) Char (PParser Char)
where
PcharSym0KindInference :: SameKind (Apply PcharSym0 arg_auzG) (PcharSym1 arg_auzG) =>
PcharSym0 a6989586621679127325
type instance Apply PcharSym0 a6989586621679127325 = Pchar a6989586621679127325
instance SuppressUnusedWarnings PcharSym0 where
suppressUnusedWarnings = snd (((,) PcharSym0KindInference) ())
type PcharSym1 :: Char -> PParser Char
type family PcharSym1 (a6989586621679127325 :: Char) :: PParser Char where
PcharSym1 a6989586621679127325 = Pchar a6989586621679127325
type AnycharSym0 :: PParser Char
type family AnycharSym0 :: PParser Char where
AnycharSym0 = Anychar
data (<||>@#@$) a6989586621679127351
where
(:<||>@#@$###) :: SameKind (Apply (<||>@#@$) arg_auA9) ((<||>@#@$$) arg_auA9) =>
(<||>@#@$) a6989586621679127351
type instance Apply (<||>@#@$) a6989586621679127351 = (<||>@#@$$) a6989586621679127351
instance SuppressUnusedWarnings (<||>@#@$) where
suppressUnusedWarnings = snd (((,) (:<||>@#@$###)) ())
data (<||>@#@$$) a6989586621679127351 a6989586621679127352
where
(:<||>@#@$$###) :: SameKind (Apply ((<||>@#@$$) a6989586621679127351) arg_auA9) ((<||>@#@$$$) a6989586621679127351 arg_auA9) =>
(<||>@#@$$) a6989586621679127351 a6989586621679127352
type instance Apply ((<||>@#@$$) a6989586621679127351) a6989586621679127352 = (<||>) a6989586621679127351 a6989586621679127352
instance SuppressUnusedWarnings ((<||>@#@$$) a6989586621679127351) where
suppressUnusedWarnings = snd (((,) (:<||>@#@$$###)) ())
type family (<||>@#@$$$) a6989586621679127351 a6989586621679127352 where
(<||>@#@$$$) a6989586621679127351 a6989586621679127352 = (<||>) a6989586621679127351 a6989586621679127352
type ParseFinalSym0 :: (~>) [Char] ((~>) (PParser a_auiC) (Either Symbol a_auiC))
data ParseFinalSym0 :: (~>) [Char] ((~>) (PParser a_auiC) (Either Symbol a_auiC))
where
ParseFinalSym0KindInference :: SameKind (Apply ParseFinalSym0 arg_auAo) (ParseFinalSym1 arg_auAo) =>
ParseFinalSym0 a6989586621679127369
type instance Apply ParseFinalSym0 a6989586621679127369 = ParseFinalSym1 a6989586621679127369
instance SuppressUnusedWarnings ParseFinalSym0 where
suppressUnusedWarnings = snd (((,) ParseFinalSym0KindInference) ())
type ParseFinalSym1 :: [Char]
-> (~>) (PParser a_auiC) (Either Symbol a_auiC)
data ParseFinalSym1 (a6989586621679127369 :: [Char]) :: (~>) (PParser a_auiC) (Either Symbol a_auiC)
where
ParseFinalSym1KindInference :: SameKind (Apply (ParseFinalSym1 a6989586621679127369) arg_auAo) (ParseFinalSym2 a6989586621679127369 arg_auAo) =>
ParseFinalSym1 a6989586621679127369 a6989586621679127370
type instance Apply (ParseFinalSym1 a6989586621679127369) a6989586621679127370 = ParseFinal a6989586621679127369 a6989586621679127370
instance SuppressUnusedWarnings (ParseFinalSym1 a6989586621679127369) where
suppressUnusedWarnings = snd (((,) ParseFinalSym1KindInference) ())
type ParseFinalSym2 :: [Char]
-> PParser a_auiC -> Either Symbol a_auiC
type family ParseFinalSym2 (a6989586621679127369 :: [Char]) (a6989586621679127370 :: PParser a_auiC) :: Either Symbol a_auiC where
ParseFinalSym2 a6989586621679127369 a6989586621679127370 = ParseFinal a6989586621679127369 a6989586621679127370
type ParseSym0 :: (~>) [Char] ((~>) (PParser a_auiD) (Either Symbol ([Char],
a_auiD)))
data ParseSym0 :: (~>) [Char] ((~>) (PParser a_auiD) (Either Symbol ([Char],
a_auiD)))
where
ParseSym0KindInference :: SameKind (Apply ParseSym0 arg_auAI) (ParseSym1 arg_auAI) =>
ParseSym0 a6989586621679127389
type instance Apply ParseSym0 a6989586621679127389 = ParseSym1 a6989586621679127389
instance SuppressUnusedWarnings ParseSym0 where
suppressUnusedWarnings = snd (((,) ParseSym0KindInference) ())
type ParseSym1 :: [Char]
-> (~>) (PParser a_auiD) (Either Symbol ([Char], a_auiD))
data ParseSym1 (a6989586621679127389 :: [Char]) :: (~>) (PParser a_auiD) (Either Symbol ([Char],
a_auiD))
where
ParseSym1KindInference :: SameKind (Apply (ParseSym1 a6989586621679127389) arg_auAI) (ParseSym2 a6989586621679127389 arg_auAI) =>
ParseSym1 a6989586621679127389 a6989586621679127390
type instance Apply (ParseSym1 a6989586621679127389) a6989586621679127390 = Parse a6989586621679127389 a6989586621679127390
instance SuppressUnusedWarnings (ParseSym1 a6989586621679127389) where
suppressUnusedWarnings = snd (((,) ParseSym1KindInference) ())
type ParseSym2 :: [Char]
-> PParser a_auiD -> Either Symbol ([Char], a_auiD)
type family ParseSym2 (a6989586621679127389 :: [Char]) (a6989586621679127390 :: PParser a_auiD) :: Either Symbol ([Char],
a_auiD) where
ParseSym2 a6989586621679127389 a6989586621679127390 = Parse a6989586621679127389 a6989586621679127390
type CharToTextSym0 :: (~>) Char Symbol
data CharToTextSym0 :: (~>) Char Symbol
where
CharToTextSym0KindInference :: SameKind (Apply CharToTextSym0 arg_auAO) (CharToTextSym1 arg_auAO) =>
CharToTextSym0 a6989586621679127395
type instance Apply CharToTextSym0 a6989586621679127395 = CharToText a6989586621679127395
instance SuppressUnusedWarnings CharToTextSym0 where
suppressUnusedWarnings = snd (((,) CharToTextSym0KindInference) ())
type CharToTextSym1 :: Char -> Symbol
type family CharToTextSym1 (a6989586621679127395 :: Char) :: Symbol where
CharToTextSym1 a6989586621679127395 = CharToText a6989586621679127395
type StringtoTextSym0 :: (~>) [Char] Symbol
data StringtoTextSym0 :: (~>) [Char] Symbol
where
StringtoTextSym0KindInference :: SameKind (Apply StringtoTextSym0 arg_auAS) (StringtoTextSym1 arg_auAS) =>
StringtoTextSym0 a6989586621679127399
type instance Apply StringtoTextSym0 a6989586621679127399 = StringtoText a6989586621679127399
instance SuppressUnusedWarnings StringtoTextSym0 where
suppressUnusedWarnings
= snd (((,) StringtoTextSym0KindInference) ())
type StringtoTextSym1 :: [Char] -> Symbol
type family StringtoTextSym1 (a6989586621679127399 :: [Char]) :: Symbol where
StringtoTextSym1 a6989586621679127399 = StringtoText a6989586621679127399
type TupleChar :: Char -> PParser (Char, Char)
type family TupleChar (a_auwh :: Char) :: PParser (Char,
Char) where
TupleChar c_auwk = Apply (Apply (>>=@#@$) (Apply PcharSym0 c_auwk)) (Apply Lambda_6989586621679127117Sym0 c_auwk)
type PInvChar :: PParser Char -> PParser Char
type family PInvChar (a_auwt :: PParser Char) :: PParser Char where
PInvChar p_auww = Apply PPSym0 (Apply Lambda_6989586621679127129Sym0 p_auww)
type Eof :: PParser ()
type family Eof :: PParser () where
Eof = Apply PPSym0 Lambda_6989586621679127144Sym0
type family IsHex a_auwU where
IsHex c_auwW = Apply (Apply (||@#@$) (Apply IsDigitSym0 c_auwW)) (Apply (Apply (&&@#@$) (Apply (Apply (>=@#@$) c_auwW) 'A')) (Apply (Apply (<=@#@$) c_auwW) 'F'))
type family DigitToIntHex a_auwX where
DigitToIntHex arg_6989586621679126483_auwZ = Case_6989586621679127158_aux1 arg_6989586621679126483_auwZ arg_6989586621679126483_auwZ
type DigitToInt :: Char -> Natural
type family DigitToInt (a_auxa :: Char) :: Natural where
DigitToInt '1' = FromInteger 1
DigitToInt '2' = FromInteger 2
DigitToInt '3' = FromInteger 3
DigitToInt '4' = FromInteger 4
DigitToInt '5' = FromInteger 5
DigitToInt '6' = FromInteger 6
DigitToInt '7' = FromInteger 7
DigitToInt '8' = FromInteger 8
DigitToInt '9' = FromInteger 9
DigitToInt '0' = FromInteger 0
type NoNewLine :: Char -> Bool
type family NoNewLine (a_auxd :: Char) :: Bool where
NoNewLine c_auxg = Apply (Apply (/=@#@$) c_auxg) '\n'
type IsNotRegSpecial :: Char -> Bool
type family IsNotRegSpecial (a_auxh :: Char) :: Bool where
IsNotRegSpecial c_auxk = Apply (Apply (&&@#@$) (Apply (Apply (/=@#@$) c_auxk) '\\')) (Apply (Apply (&&@#@$) (Apply (Apply (/=@#@$) c_auxk) '\n')) (Apply (Apply (&&@#@$) (Apply (Apply (/=@#@$) c_auxk) '[')) (Apply (Apply (/=@#@$) c_auxk) ']')))
type IsDigit :: Char -> Bool
type family IsDigit (a_auxl :: Char) :: Bool where
IsDigit c_auxo = Apply (Apply (&&@#@$) (Apply (Apply (>=@#@$) c_auxo) '0')) (Apply (Apply (<=@#@$) c_auxo) '9')
type Pstring :: [Char] -> PParser [Char]
type family Pstring (a_auxp :: [Char]) :: PParser [Char] where
Pstring '[] = Apply ReturnSym0 NilSym0
Pstring ('(:) c_auxs cs_auxt) = Apply (Apply (>>=@#@$) (Apply PcharSym0 c_auxs)) (Apply (Apply Lambda_6989586621679127188Sym0 c_auxs) cs_auxt)
type NotFormatChar :: PParser Char
type family NotFormatChar :: PParser Char where
NotFormatChar = Apply PredicCharSym0 Lambda_6989586621679127197Sym0
type ManyTill :: PParser a_auiy
-> PParser b_auiz -> PParser [a_auiy]
type family ManyTill (a_auxH :: PParser a_auiy) (a_auxI :: PParser b_auiz) :: PParser [a_auiy] where
ManyTill p_auxM stop_auxN = Let6989586621679127208HelpSym2 p_auxM stop_auxN
type Some :: PParser a_auiA -> PParser [a_auiA]
type family Some (a_auxY :: PParser a_auiA) :: PParser [a_auiA] where
Some p_auy1 = Apply (Apply (>>=@#@$) p_auy1) (Apply Lambda_6989586621679127222Sym0 p_auy1)
type Many :: PParser a_auiB -> PParser [a_auiB]
type family Many (a_auya :: PParser a_auiB) :: PParser [a_auiB] where
Many p_auyd = Apply (Apply (<|>@#@$) (Apply (Apply (>>=@#@$) p_auyd) (Apply (Let6989586621679127234ManyContSym1 p_auyd) p_auyd))) (Apply ReturnSym0 NilSym0)
type RegNotSpecial :: PParser Char
type family RegNotSpecial :: PParser Char where
RegNotSpecial = Apply PredicCharSym0 IsNotRegSpecialSym0
type PredicChar :: (~>) Char Bool -> PParser Char
type family PredicChar (a_auyp :: (~>) Char Bool) :: PParser Char where
PredicChar predicat_auys = Apply PPSym0 (Apply Lambda_6989586621679127249Sym0 predicat_auys)
type NoNewLineChar :: PParser Char
type family NoNewLineChar :: PParser Char where
NoNewLineChar = Apply PPSym0 Lambda_6989586621679127264Sym0
type DigitChar :: PParser Natural
type family DigitChar :: PParser Natural where
DigitChar = Apply PPSym0 Lambda_6989586621679127279Sym0
type AlphaChar :: PParser Char
type family AlphaChar :: PParser Char where
AlphaChar = Apply PPSym0 Lambda_6989586621679127294Sym0
type UpCaseChar :: PParser Char
type family UpCaseChar :: PParser Char where
UpCaseChar = Apply PPSym0 Lambda_6989586621679127309Sym0
type Pchar :: Char -> PParser Char
type family Pchar (a_auzF :: Char) :: PParser Char where
Pchar inp_auzI = Apply PPSym0 (Apply Lambda_6989586621679127327Sym0 inp_auzI)
type Anychar :: PParser Char
type family Anychar :: PParser Char where
Anychar = Apply PPSym0 Lambda_6989586621679127342Sym0
type family (<||>) a_auA7 a_auA8 where
(<||>) x_auAa y_auAb = Apply PPSym0 (Apply (Apply Lambda_6989586621679127356Sym0 x_auAa) y_auAb)
type ParseFinal :: [Char] -> PParser a_auiC -> Either Symbol a_auiC
type family ParseFinal (a_auAm :: [Char]) (a_auAn :: PParser a_auiC) :: Either Symbol a_auiC where
ParseFinal str_auAr ('PP p_auAs) = Case_6989586621679127375_auAw str_auAr p_auAs (Let6989586621679127373Scrutinee_6989586621679126375Sym2 str_auAr p_auAs)
type Parse :: [Char]
-> PParser a_auiD -> Either Symbol ([Char], a_auiD)
type family Parse (a_auAG :: [Char]) (a_auAH :: PParser a_auiD) :: Either Symbol ([Char],
a_auiD) where
Parse str_auAL ('PP p_auAM) = Apply p_auAM str_auAL
type CharToText :: Char -> Symbol
type family CharToText (a_auAN :: Char) :: Symbol where
CharToText c_auAQ = Apply (Apply ConsSymbolSym0 c_auAQ) ""
type StringtoText :: [Char] -> Symbol
type family StringtoText (a_auAR :: [Char]) :: Symbol where
StringtoText s_auAU = Apply (Apply (Apply FoldrSym0 (<>@#@$)) "") (Apply (Apply (<$>@#@$) CharToTextSym0) s_auAU)
type family Lambda_6989586621679127412_auB7 f_auB4 tf_auB5 str_auB8 where
Lambda_6989586621679127412_auB7 f_auB4 tf_auB5 str_auB8 = Apply (Apply (<$>@#@$) (Apply FmapSym0 f_auB4)) (Apply tf_auB5 str_auB8)
data Lambda_6989586621679127412Sym0 f6989586621679127410
where
Lambda_6989586621679127412Sym0KindInference :: SameKind (Apply Lambda_6989586621679127412Sym0 arg_auB9) (Lambda_6989586621679127412Sym1 arg_auB9) =>
Lambda_6989586621679127412Sym0 f6989586621679127410
type instance Apply Lambda_6989586621679127412Sym0 f6989586621679127410 = Lambda_6989586621679127412Sym1 f6989586621679127410
instance SuppressUnusedWarnings Lambda_6989586621679127412Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127412Sym0KindInference) ())
data Lambda_6989586621679127412Sym1 f6989586621679127410 tf6989586621679127411
where
Lambda_6989586621679127412Sym1KindInference :: SameKind (Apply (Lambda_6989586621679127412Sym1 f6989586621679127410) arg_auB9) (Lambda_6989586621679127412Sym2 f6989586621679127410 arg_auB9) =>
Lambda_6989586621679127412Sym1 f6989586621679127410 tf6989586621679127411
type instance Apply (Lambda_6989586621679127412Sym1 f6989586621679127410) tf6989586621679127411 = Lambda_6989586621679127412Sym2 f6989586621679127410 tf6989586621679127411
instance SuppressUnusedWarnings (Lambda_6989586621679127412Sym1 f6989586621679127410) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127412Sym1KindInference) ())
data Lambda_6989586621679127412Sym2 f6989586621679127410 tf6989586621679127411 str6989586621679127414
where
Lambda_6989586621679127412Sym2KindInference :: SameKind (Apply (Lambda_6989586621679127412Sym2 f6989586621679127410 tf6989586621679127411) arg_auB9) (Lambda_6989586621679127412Sym3 f6989586621679127410 tf6989586621679127411 arg_auB9) =>
Lambda_6989586621679127412Sym2 f6989586621679127410 tf6989586621679127411 str6989586621679127414
type instance Apply (Lambda_6989586621679127412Sym2 f6989586621679127410 tf6989586621679127411) str6989586621679127414 = Lambda_6989586621679127412_auB7 f6989586621679127410 tf6989586621679127411 str6989586621679127414
instance SuppressUnusedWarnings (Lambda_6989586621679127412Sym2 f6989586621679127410 tf6989586621679127411) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127412Sym2KindInference) ())
type family Lambda_6989586621679127412Sym3 f6989586621679127410 tf6989586621679127411 str6989586621679127414 where
Lambda_6989586621679127412Sym3 f6989586621679127410 tf6989586621679127411 str6989586621679127414 = Lambda_6989586621679127412_auB7 f6989586621679127410 tf6989586621679127411 str6989586621679127414
type Fmap_6989586621679127403 :: (~>) a_akVw b_akVx
-> PParser a_akVw -> PParser b_akVx
type family Fmap_6989586621679127403 (a_auAZ :: (~>) a_akVw b_akVx) (a_auB0 :: PParser a_akVw) :: PParser b_akVx where
Fmap_6989586621679127403 f_auB4 ('PP tf_auB5) = Apply PPSym0 (Apply (Apply Lambda_6989586621679127412Sym0 f_auB4) tf_auB5)
type Fmap_6989586621679127403Sym0 :: (~>) ((~>) a_akVw b_akVx) ((~>) (PParser a_akVw) (PParser b_akVx))
data Fmap_6989586621679127403Sym0 :: (~>) ((~>) a_akVw b_akVx) ((~>) (PParser a_akVw) (PParser b_akVx))
where
Fmap_6989586621679127403Sym0KindInference :: SameKind (Apply Fmap_6989586621679127403Sym0 arg_auB1) (Fmap_6989586621679127403Sym1 arg_auB1) =>
Fmap_6989586621679127403Sym0 a6989586621679127408
type instance Apply Fmap_6989586621679127403Sym0 a6989586621679127408 = Fmap_6989586621679127403Sym1 a6989586621679127408
instance SuppressUnusedWarnings Fmap_6989586621679127403Sym0 where
suppressUnusedWarnings
= snd (((,) Fmap_6989586621679127403Sym0KindInference) ())
type Fmap_6989586621679127403Sym1 :: (~>) a_akVw b_akVx
-> (~>) (PParser a_akVw) (PParser b_akVx)
data Fmap_6989586621679127403Sym1 (a6989586621679127408 :: (~>) a_akVw b_akVx) :: (~>) (PParser a_akVw) (PParser b_akVx)
where
Fmap_6989586621679127403Sym1KindInference :: SameKind (Apply (Fmap_6989586621679127403Sym1 a6989586621679127408) arg_auB1) (Fmap_6989586621679127403Sym2 a6989586621679127408 arg_auB1) =>
Fmap_6989586621679127403Sym1 a6989586621679127408 a6989586621679127409
type instance Apply (Fmap_6989586621679127403Sym1 a6989586621679127408) a6989586621679127409 = Fmap_6989586621679127403 a6989586621679127408 a6989586621679127409
instance SuppressUnusedWarnings (Fmap_6989586621679127403Sym1 a6989586621679127408) where
suppressUnusedWarnings
= snd (((,) Fmap_6989586621679127403Sym1KindInference) ())
type Fmap_6989586621679127403Sym2 :: (~>) a_akVw b_akVx
-> PParser a_akVw -> PParser b_akVx
type family Fmap_6989586621679127403Sym2 (a6989586621679127408 :: (~>) a_akVw b_akVx) (a6989586621679127409 :: PParser a_akVw) :: PParser b_akVx where
Fmap_6989586621679127403Sym2 a6989586621679127408 a6989586621679127409 = Fmap_6989586621679127403 a6989586621679127408 a6989586621679127409
instance PFunctor PParser where
type Fmap a_auAV a_auAW = Apply (Apply Fmap_6989586621679127403Sym0 a_auAV) a_auAW
type family Lambda_6989586621679127423_auBi v_auBg str_auBj where
Lambda_6989586621679127423_auBi v_auBg str_auBj = Apply RightSym0 (Apply (Apply Tuple2Sym0 str_auBj) v_auBg)
data Lambda_6989586621679127423Sym0 v6989586621679127422
where
Lambda_6989586621679127423Sym0KindInference :: SameKind (Apply Lambda_6989586621679127423Sym0 arg_auBk) (Lambda_6989586621679127423Sym1 arg_auBk) =>
Lambda_6989586621679127423Sym0 v6989586621679127422
type instance Apply Lambda_6989586621679127423Sym0 v6989586621679127422 = Lambda_6989586621679127423Sym1 v6989586621679127422
instance SuppressUnusedWarnings Lambda_6989586621679127423Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127423Sym0KindInference) ())
data Lambda_6989586621679127423Sym1 v6989586621679127422 str6989586621679127425
where
Lambda_6989586621679127423Sym1KindInference :: SameKind (Apply (Lambda_6989586621679127423Sym1 v6989586621679127422) arg_auBk) (Lambda_6989586621679127423Sym2 v6989586621679127422 arg_auBk) =>
Lambda_6989586621679127423Sym1 v6989586621679127422 str6989586621679127425
type instance Apply (Lambda_6989586621679127423Sym1 v6989586621679127422) str6989586621679127425 = Lambda_6989586621679127423_auBi v6989586621679127422 str6989586621679127425
instance SuppressUnusedWarnings (Lambda_6989586621679127423Sym1 v6989586621679127422) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127423Sym1KindInference) ())
type family Lambda_6989586621679127423Sym2 v6989586621679127422 str6989586621679127425 where
Lambda_6989586621679127423Sym2 v6989586621679127422 str6989586621679127425 = Lambda_6989586621679127423_auBi v6989586621679127422 str6989586621679127425
type Pure_6989586621679127417 :: a_akVB -> PParser a_akVB
type family Pure_6989586621679127417 (a_auBd :: a_akVB) :: PParser a_akVB where
Pure_6989586621679127417 v_auBg = Apply PPSym0 (Apply Lambda_6989586621679127423Sym0 v_auBg)
type Pure_6989586621679127417Sym0 :: (~>) a_akVB (PParser a_akVB)
data Pure_6989586621679127417Sym0 :: (~>) a_akVB (PParser a_akVB)
where
Pure_6989586621679127417Sym0KindInference :: SameKind (Apply Pure_6989586621679127417Sym0 arg_auBe) (Pure_6989586621679127417Sym1 arg_auBe) =>
Pure_6989586621679127417Sym0 a6989586621679127421
type instance Apply Pure_6989586621679127417Sym0 a6989586621679127421 = Pure_6989586621679127417 a6989586621679127421
instance SuppressUnusedWarnings Pure_6989586621679127417Sym0 where
suppressUnusedWarnings
= snd (((,) Pure_6989586621679127417Sym0KindInference) ())
type Pure_6989586621679127417Sym1 :: a_akVB -> PParser a_akVB
type family Pure_6989586621679127417Sym1 (a6989586621679127421 :: a_akVB) :: PParser a_akVB where
Pure_6989586621679127417Sym1 a6989586621679127421 = Pure_6989586621679127417 a6989586621679127421
data Let6989586621679127441Scrutinee_6989586621679126387Sym0 str6989586621679127440
where
Let6989586621679127441Scrutinee_6989586621679126387Sym0KindInference :: SameKind (Apply Let6989586621679127441Scrutinee_6989586621679126387Sym0 arg_auBA) (Let6989586621679127441Scrutinee_6989586621679126387Sym1 arg_auBA) =>
Let6989586621679127441Scrutinee_6989586621679126387Sym0 str6989586621679127440
type instance Apply Let6989586621679127441Scrutinee_6989586621679126387Sym0 str6989586621679127440 = Let6989586621679127441Scrutinee_6989586621679126387Sym1 str6989586621679127440
instance SuppressUnusedWarnings Let6989586621679127441Scrutinee_6989586621679126387Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127441Scrutinee_6989586621679126387Sym0KindInference)
())
data Let6989586621679127441Scrutinee_6989586621679126387Sym1 str6989586621679127440 px6989586621679127436
where
Let6989586621679127441Scrutinee_6989586621679126387Sym1KindInference :: SameKind (Apply (Let6989586621679127441Scrutinee_6989586621679126387Sym1 str6989586621679127440) arg_auBA) (Let6989586621679127441Scrutinee_6989586621679126387Sym2 str6989586621679127440 arg_auBA) =>
Let6989586621679127441Scrutinee_6989586621679126387Sym1 str6989586621679127440 px6989586621679127436
type instance Apply (Let6989586621679127441Scrutinee_6989586621679126387Sym1 str6989586621679127440) px6989586621679127436 = Let6989586621679127441Scrutinee_6989586621679126387Sym2 str6989586621679127440 px6989586621679127436
instance SuppressUnusedWarnings (Let6989586621679127441Scrutinee_6989586621679126387Sym1 str6989586621679127440) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127441Scrutinee_6989586621679126387Sym1KindInference)
())
data Let6989586621679127441Scrutinee_6989586621679126387Sym2 str6989586621679127440 px6989586621679127436 py6989586621679127437
where
Let6989586621679127441Scrutinee_6989586621679126387Sym2KindInference :: SameKind (Apply (Let6989586621679127441Scrutinee_6989586621679126387Sym2 str6989586621679127440 px6989586621679127436) arg_auBA) (Let6989586621679127441Scrutinee_6989586621679126387Sym3 str6989586621679127440 px6989586621679127436 arg_auBA) =>
Let6989586621679127441Scrutinee_6989586621679126387Sym2 str6989586621679127440 px6989586621679127436 py6989586621679127437
type instance Apply (Let6989586621679127441Scrutinee_6989586621679126387Sym2 str6989586621679127440 px6989586621679127436) py6989586621679127437 = Let6989586621679127441Scrutinee_6989586621679126387 str6989586621679127440 px6989586621679127436 py6989586621679127437
instance SuppressUnusedWarnings (Let6989586621679127441Scrutinee_6989586621679126387Sym2 str6989586621679127440 px6989586621679127436) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127441Scrutinee_6989586621679126387Sym2KindInference)
())
type family Let6989586621679127441Scrutinee_6989586621679126387Sym3 str6989586621679127440 px6989586621679127436 py6989586621679127437 where
Let6989586621679127441Scrutinee_6989586621679126387Sym3 str6989586621679127440 px6989586621679127436 py6989586621679127437 = Let6989586621679127441Scrutinee_6989586621679126387 str6989586621679127440 px6989586621679127436 py6989586621679127437
type family Let6989586621679127441Scrutinee_6989586621679126387 str_auBy px_auBu py_auBv where
Let6989586621679127441Scrutinee_6989586621679126387 str_auBy px_auBu py_auBv = Apply (Apply ParseSym0 str_auBy) px_auBu
type family Case_6989586621679127443_auBC str_auBy px_auBu py_auBv t_auBG where
Case_6989586621679127443_auBC str_auBy px_auBu py_auBv ('Left e_auBD) = Apply LeftSym0 e_auBD
Case_6989586621679127443_auBC str_auBy px_auBu py_auBv ('Right '(str2_auBE,
out_auBF)) = Apply (Apply ParseSym0 str2_auBE) (Apply (Apply (<$>@#@$) out_auBF) py_auBv)
type family Lambda_6989586621679127438_auBx px_auBu py_auBv str_auBy where
Lambda_6989586621679127438_auBx px_auBu py_auBv str_auBy = Case_6989586621679127443_auBC str_auBy px_auBu py_auBv (Let6989586621679127441Scrutinee_6989586621679126387Sym3 str_auBy px_auBu py_auBv)
data Lambda_6989586621679127438Sym0 px6989586621679127436
where
Lambda_6989586621679127438Sym0KindInference :: SameKind (Apply Lambda_6989586621679127438Sym0 arg_auBH) (Lambda_6989586621679127438Sym1 arg_auBH) =>
Lambda_6989586621679127438Sym0 px6989586621679127436
type instance Apply Lambda_6989586621679127438Sym0 px6989586621679127436 = Lambda_6989586621679127438Sym1 px6989586621679127436
instance SuppressUnusedWarnings Lambda_6989586621679127438Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127438Sym0KindInference) ())
data Lambda_6989586621679127438Sym1 px6989586621679127436 py6989586621679127437
where
Lambda_6989586621679127438Sym1KindInference :: SameKind (Apply (Lambda_6989586621679127438Sym1 px6989586621679127436) arg_auBH) (Lambda_6989586621679127438Sym2 px6989586621679127436 arg_auBH) =>
Lambda_6989586621679127438Sym1 px6989586621679127436 py6989586621679127437
type instance Apply (Lambda_6989586621679127438Sym1 px6989586621679127436) py6989586621679127437 = Lambda_6989586621679127438Sym2 px6989586621679127436 py6989586621679127437
instance SuppressUnusedWarnings (Lambda_6989586621679127438Sym1 px6989586621679127436) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127438Sym1KindInference) ())
data Lambda_6989586621679127438Sym2 px6989586621679127436 py6989586621679127437 str6989586621679127440
where
Lambda_6989586621679127438Sym2KindInference :: SameKind (Apply (Lambda_6989586621679127438Sym2 px6989586621679127436 py6989586621679127437) arg_auBH) (Lambda_6989586621679127438Sym3 px6989586621679127436 py6989586621679127437 arg_auBH) =>
Lambda_6989586621679127438Sym2 px6989586621679127436 py6989586621679127437 str6989586621679127440
type instance Apply (Lambda_6989586621679127438Sym2 px6989586621679127436 py6989586621679127437) str6989586621679127440 = Lambda_6989586621679127438_auBx px6989586621679127436 py6989586621679127437 str6989586621679127440
instance SuppressUnusedWarnings (Lambda_6989586621679127438Sym2 px6989586621679127436 py6989586621679127437) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127438Sym2KindInference) ())
type family Lambda_6989586621679127438Sym3 px6989586621679127436 py6989586621679127437 str6989586621679127440 where
Lambda_6989586621679127438Sym3 px6989586621679127436 py6989586621679127437 str6989586621679127440 = Lambda_6989586621679127438_auBx px6989586621679127436 py6989586621679127437 str6989586621679127440
type TFHelper_6989586621679127429 :: PParser ((~>) a_akVC b_akVD)
-> PParser a_akVC -> PParser b_akVD
type family TFHelper_6989586621679127429 (a_auBp :: PParser ((~>) a_akVC b_akVD)) (a_auBq :: PParser a_akVC) :: PParser b_akVD where
TFHelper_6989586621679127429 px_auBu py_auBv = Apply PPSym0 (Apply (Apply Lambda_6989586621679127438Sym0 px_auBu) py_auBv)
type TFHelper_6989586621679127429Sym0 :: (~>) (PParser ((~>) a_akVC b_akVD)) ((~>) (PParser a_akVC) (PParser b_akVD))
data TFHelper_6989586621679127429Sym0 :: (~>) (PParser ((~>) a_akVC b_akVD)) ((~>) (PParser a_akVC) (PParser b_akVD))
where
TFHelper_6989586621679127429Sym0KindInference :: SameKind (Apply TFHelper_6989586621679127429Sym0 arg_auBr) (TFHelper_6989586621679127429Sym1 arg_auBr) =>
TFHelper_6989586621679127429Sym0 a6989586621679127434
type instance Apply TFHelper_6989586621679127429Sym0 a6989586621679127434 = TFHelper_6989586621679127429Sym1 a6989586621679127434
instance SuppressUnusedWarnings TFHelper_6989586621679127429Sym0 where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679127429Sym0KindInference) ())
type TFHelper_6989586621679127429Sym1 :: PParser ((~>) a_akVC b_akVD)
-> (~>) (PParser a_akVC) (PParser b_akVD)
data TFHelper_6989586621679127429Sym1 (a6989586621679127434 :: PParser ((~>) a_akVC b_akVD)) :: (~>) (PParser a_akVC) (PParser b_akVD)
where
TFHelper_6989586621679127429Sym1KindInference :: SameKind (Apply (TFHelper_6989586621679127429Sym1 a6989586621679127434) arg_auBr) (TFHelper_6989586621679127429Sym2 a6989586621679127434 arg_auBr) =>
TFHelper_6989586621679127429Sym1 a6989586621679127434 a6989586621679127435
type instance Apply (TFHelper_6989586621679127429Sym1 a6989586621679127434) a6989586621679127435 = TFHelper_6989586621679127429 a6989586621679127434 a6989586621679127435
instance SuppressUnusedWarnings (TFHelper_6989586621679127429Sym1 a6989586621679127434) where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679127429Sym1KindInference) ())
type TFHelper_6989586621679127429Sym2 :: PParser ((~>) a_akVC b_akVD)
-> PParser a_akVC -> PParser b_akVD
type family TFHelper_6989586621679127429Sym2 (a6989586621679127434 :: PParser ((~>) a_akVC b_akVD)) (a6989586621679127435 :: PParser a_akVC) :: PParser b_akVD where
TFHelper_6989586621679127429Sym2 a6989586621679127434 a6989586621679127435 = TFHelper_6989586621679127429 a6989586621679127434 a6989586621679127435
instance PApplicative PParser where
type Pure a_auBa = Apply Pure_6989586621679127417Sym0 a_auBa
type (<*>) a_auBl a_auBm = Apply (Apply TFHelper_6989586621679127429Sym0 a_auBl) a_auBm
type family Case_6989586621679127456_auBP arg_6989586621679126397_auBN t_auBQ where
Case_6989586621679127456_auBP arg_6989586621679126397_auBN _ = Apply LeftSym0 ""
type family Lambda_6989586621679127453_auBM arg_6989586621679126397_auBN where
Lambda_6989586621679127453_auBM arg_6989586621679126397_auBN = Case_6989586621679127456_auBP arg_6989586621679126397_auBN arg_6989586621679126397_auBN
data Lambda_6989586621679127453Sym0 arg_69895866216791263976989586621679127455
where
Lambda_6989586621679127453Sym0KindInference :: SameKind (Apply Lambda_6989586621679127453Sym0 arg_auBR) (Lambda_6989586621679127453Sym1 arg_auBR) =>
Lambda_6989586621679127453Sym0 arg_69895866216791263976989586621679127455
type instance Apply Lambda_6989586621679127453Sym0 arg_69895866216791263976989586621679127455 = Lambda_6989586621679127453_auBM arg_69895866216791263976989586621679127455
instance SuppressUnusedWarnings Lambda_6989586621679127453Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127453Sym0KindInference) ())
type family Lambda_6989586621679127453Sym1 arg_69895866216791263976989586621679127455 where
Lambda_6989586621679127453Sym1 arg_69895866216791263976989586621679127455 = Lambda_6989586621679127453_auBM arg_69895866216791263976989586621679127455
type Empty_6989586621679127450 :: PParser a_akWf
type family Empty_6989586621679127450 :: PParser a_akWf where
Empty_6989586621679127450 = Apply PPSym0 Lambda_6989586621679127453Sym0
type Empty_6989586621679127450Sym0 :: PParser a_akWf
type family Empty_6989586621679127450Sym0 :: PParser a_akWf where
Empty_6989586621679127450Sym0 = Empty_6989586621679127450
data Let6989586621679127474Scrutinee_6989586621679126399Sym0 str6989586621679127473
where
Let6989586621679127474Scrutinee_6989586621679126399Sym0KindInference :: SameKind (Apply Let6989586621679127474Scrutinee_6989586621679126399Sym0 arg_auC7) (Let6989586621679127474Scrutinee_6989586621679126399Sym1 arg_auC7) =>
Let6989586621679127474Scrutinee_6989586621679126399Sym0 str6989586621679127473
type instance Apply Let6989586621679127474Scrutinee_6989586621679126399Sym0 str6989586621679127473 = Let6989586621679127474Scrutinee_6989586621679126399Sym1 str6989586621679127473
instance SuppressUnusedWarnings Let6989586621679127474Scrutinee_6989586621679126399Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127474Scrutinee_6989586621679126399Sym0KindInference)
())
data Let6989586621679127474Scrutinee_6989586621679126399Sym1 str6989586621679127473 x6989586621679127469
where
Let6989586621679127474Scrutinee_6989586621679126399Sym1KindInference :: SameKind (Apply (Let6989586621679127474Scrutinee_6989586621679126399Sym1 str6989586621679127473) arg_auC7) (Let6989586621679127474Scrutinee_6989586621679126399Sym2 str6989586621679127473 arg_auC7) =>
Let6989586621679127474Scrutinee_6989586621679126399Sym1 str6989586621679127473 x6989586621679127469
type instance Apply (Let6989586621679127474Scrutinee_6989586621679126399Sym1 str6989586621679127473) x6989586621679127469 = Let6989586621679127474Scrutinee_6989586621679126399Sym2 str6989586621679127473 x6989586621679127469
instance SuppressUnusedWarnings (Let6989586621679127474Scrutinee_6989586621679126399Sym1 str6989586621679127473) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127474Scrutinee_6989586621679126399Sym1KindInference)
())
data Let6989586621679127474Scrutinee_6989586621679126399Sym2 str6989586621679127473 x6989586621679127469 y6989586621679127470
where
Let6989586621679127474Scrutinee_6989586621679126399Sym2KindInference :: SameKind (Apply (Let6989586621679127474Scrutinee_6989586621679126399Sym2 str6989586621679127473 x6989586621679127469) arg_auC7) (Let6989586621679127474Scrutinee_6989586621679126399Sym3 str6989586621679127473 x6989586621679127469 arg_auC7) =>
Let6989586621679127474Scrutinee_6989586621679126399Sym2 str6989586621679127473 x6989586621679127469 y6989586621679127470
type instance Apply (Let6989586621679127474Scrutinee_6989586621679126399Sym2 str6989586621679127473 x6989586621679127469) y6989586621679127470 = Let6989586621679127474Scrutinee_6989586621679126399 str6989586621679127473 x6989586621679127469 y6989586621679127470
instance SuppressUnusedWarnings (Let6989586621679127474Scrutinee_6989586621679126399Sym2 str6989586621679127473 x6989586621679127469) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127474Scrutinee_6989586621679126399Sym2KindInference)
())
type family Let6989586621679127474Scrutinee_6989586621679126399Sym3 str6989586621679127473 x6989586621679127469 y6989586621679127470 where
Let6989586621679127474Scrutinee_6989586621679126399Sym3 str6989586621679127473 x6989586621679127469 y6989586621679127470 = Let6989586621679127474Scrutinee_6989586621679126399 str6989586621679127473 x6989586621679127469 y6989586621679127470
type family Let6989586621679127474Scrutinee_6989586621679126399 str_auC5 x_auC1 y_auC2 where
Let6989586621679127474Scrutinee_6989586621679126399 str_auC5 x_auC1 y_auC2 = Apply (Apply ParseSym0 str_auC5) x_auC1
type family Case_6989586621679127476_auC9 str_auC5 x_auC1 y_auC2 t_auCb where
Case_6989586621679127476_auC9 str_auC5 x_auC1 y_auC2 ('Left _) = Apply (Apply ParseSym0 str_auC5) y_auC2
Case_6989586621679127476_auC9 str_auC5 x_auC1 y_auC2 ('Right res_auCa) = Apply RightSym0 res_auCa
type family Lambda_6989586621679127471_auC4 x_auC1 y_auC2 str_auC5 where
Lambda_6989586621679127471_auC4 x_auC1 y_auC2 str_auC5 = Case_6989586621679127476_auC9 str_auC5 x_auC1 y_auC2 (Let6989586621679127474Scrutinee_6989586621679126399Sym3 str_auC5 x_auC1 y_auC2)
data Lambda_6989586621679127471Sym0 x6989586621679127469
where
Lambda_6989586621679127471Sym0KindInference :: SameKind (Apply Lambda_6989586621679127471Sym0 arg_auCc) (Lambda_6989586621679127471Sym1 arg_auCc) =>
Lambda_6989586621679127471Sym0 x6989586621679127469
type instance Apply Lambda_6989586621679127471Sym0 x6989586621679127469 = Lambda_6989586621679127471Sym1 x6989586621679127469
instance SuppressUnusedWarnings Lambda_6989586621679127471Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127471Sym0KindInference) ())
data Lambda_6989586621679127471Sym1 x6989586621679127469 y6989586621679127470
where
Lambda_6989586621679127471Sym1KindInference :: SameKind (Apply (Lambda_6989586621679127471Sym1 x6989586621679127469) arg_auCc) (Lambda_6989586621679127471Sym2 x6989586621679127469 arg_auCc) =>
Lambda_6989586621679127471Sym1 x6989586621679127469 y6989586621679127470
type instance Apply (Lambda_6989586621679127471Sym1 x6989586621679127469) y6989586621679127470 = Lambda_6989586621679127471Sym2 x6989586621679127469 y6989586621679127470
instance SuppressUnusedWarnings (Lambda_6989586621679127471Sym1 x6989586621679127469) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127471Sym1KindInference) ())
data Lambda_6989586621679127471Sym2 x6989586621679127469 y6989586621679127470 str6989586621679127473
where
Lambda_6989586621679127471Sym2KindInference :: SameKind (Apply (Lambda_6989586621679127471Sym2 x6989586621679127469 y6989586621679127470) arg_auCc) (Lambda_6989586621679127471Sym3 x6989586621679127469 y6989586621679127470 arg_auCc) =>
Lambda_6989586621679127471Sym2 x6989586621679127469 y6989586621679127470 str6989586621679127473
type instance Apply (Lambda_6989586621679127471Sym2 x6989586621679127469 y6989586621679127470) str6989586621679127473 = Lambda_6989586621679127471_auC4 x6989586621679127469 y6989586621679127470 str6989586621679127473
instance SuppressUnusedWarnings (Lambda_6989586621679127471Sym2 x6989586621679127469 y6989586621679127470) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127471Sym2KindInference) ())
type family Lambda_6989586621679127471Sym3 x6989586621679127469 y6989586621679127470 str6989586621679127473 where
Lambda_6989586621679127471Sym3 x6989586621679127469 y6989586621679127470 str6989586621679127473 = Lambda_6989586621679127471_auC4 x6989586621679127469 y6989586621679127470 str6989586621679127473
type TFHelper_6989586621679127462 :: PParser a_akWg
-> PParser a_akWg -> PParser a_akWg
type family TFHelper_6989586621679127462 (a_auBW :: PParser a_akWg) (a_auBX :: PParser a_akWg) :: PParser a_akWg where
TFHelper_6989586621679127462 x_auC1 y_auC2 = Apply PPSym0 (Apply (Apply Lambda_6989586621679127471Sym0 x_auC1) y_auC2)
type TFHelper_6989586621679127462Sym0 :: (~>) (PParser a_akWg) ((~>) (PParser a_akWg) (PParser a_akWg))
data TFHelper_6989586621679127462Sym0 :: (~>) (PParser a_akWg) ((~>) (PParser a_akWg) (PParser a_akWg))
where
TFHelper_6989586621679127462Sym0KindInference :: SameKind (Apply TFHelper_6989586621679127462Sym0 arg_auBY) (TFHelper_6989586621679127462Sym1 arg_auBY) =>
TFHelper_6989586621679127462Sym0 a6989586621679127467
type instance Apply TFHelper_6989586621679127462Sym0 a6989586621679127467 = TFHelper_6989586621679127462Sym1 a6989586621679127467
instance SuppressUnusedWarnings TFHelper_6989586621679127462Sym0 where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679127462Sym0KindInference) ())
type TFHelper_6989586621679127462Sym1 :: PParser a_akWg
-> (~>) (PParser a_akWg) (PParser a_akWg)
data TFHelper_6989586621679127462Sym1 (a6989586621679127467 :: PParser a_akWg) :: (~>) (PParser a_akWg) (PParser a_akWg)
where
TFHelper_6989586621679127462Sym1KindInference :: SameKind (Apply (TFHelper_6989586621679127462Sym1 a6989586621679127467) arg_auBY) (TFHelper_6989586621679127462Sym2 a6989586621679127467 arg_auBY) =>
TFHelper_6989586621679127462Sym1 a6989586621679127467 a6989586621679127468
type instance Apply (TFHelper_6989586621679127462Sym1 a6989586621679127467) a6989586621679127468 = TFHelper_6989586621679127462 a6989586621679127467 a6989586621679127468
instance SuppressUnusedWarnings (TFHelper_6989586621679127462Sym1 a6989586621679127467) where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679127462Sym1KindInference) ())
type TFHelper_6989586621679127462Sym2 :: PParser a_akWg
-> PParser a_akWg -> PParser a_akWg
type family TFHelper_6989586621679127462Sym2 (a6989586621679127467 :: PParser a_akWg) (a6989586621679127468 :: PParser a_akWg) :: PParser a_akWg where
TFHelper_6989586621679127462Sym2 a6989586621679127467 a6989586621679127468 = TFHelper_6989586621679127462 a6989586621679127467 a6989586621679127468
instance PAlternative PParser where
type Empty = Empty_6989586621679127450Sym0
type (<|>) a_auBS a_auBT = Apply (Apply TFHelper_6989586621679127462Sym0 a_auBS) a_auBT
data Let6989586621679127495Scrutinee_6989586621679126409Sym0 str6989586621679127494
where
Let6989586621679127495Scrutinee_6989586621679126409Sym0KindInference :: SameKind (Apply Let6989586621679127495Scrutinee_6989586621679126409Sym0 arg_auCs) (Let6989586621679127495Scrutinee_6989586621679126409Sym1 arg_auCs) =>
Let6989586621679127495Scrutinee_6989586621679126409Sym0 str6989586621679127494
type instance Apply Let6989586621679127495Scrutinee_6989586621679126409Sym0 str6989586621679127494 = Let6989586621679127495Scrutinee_6989586621679126409Sym1 str6989586621679127494
instance SuppressUnusedWarnings Let6989586621679127495Scrutinee_6989586621679126409Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127495Scrutinee_6989586621679126409Sym0KindInference)
())
data Let6989586621679127495Scrutinee_6989586621679126409Sym1 str6989586621679127494 x6989586621679127490
where
Let6989586621679127495Scrutinee_6989586621679126409Sym1KindInference :: SameKind (Apply (Let6989586621679127495Scrutinee_6989586621679126409Sym1 str6989586621679127494) arg_auCs) (Let6989586621679127495Scrutinee_6989586621679126409Sym2 str6989586621679127494 arg_auCs) =>
Let6989586621679127495Scrutinee_6989586621679126409Sym1 str6989586621679127494 x6989586621679127490
type instance Apply (Let6989586621679127495Scrutinee_6989586621679126409Sym1 str6989586621679127494) x6989586621679127490 = Let6989586621679127495Scrutinee_6989586621679126409Sym2 str6989586621679127494 x6989586621679127490
instance SuppressUnusedWarnings (Let6989586621679127495Scrutinee_6989586621679126409Sym1 str6989586621679127494) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127495Scrutinee_6989586621679126409Sym1KindInference)
())
data Let6989586621679127495Scrutinee_6989586621679126409Sym2 str6989586621679127494 x6989586621679127490 f6989586621679127491
where
Let6989586621679127495Scrutinee_6989586621679126409Sym2KindInference :: SameKind (Apply (Let6989586621679127495Scrutinee_6989586621679126409Sym2 str6989586621679127494 x6989586621679127490) arg_auCs) (Let6989586621679127495Scrutinee_6989586621679126409Sym3 str6989586621679127494 x6989586621679127490 arg_auCs) =>
Let6989586621679127495Scrutinee_6989586621679126409Sym2 str6989586621679127494 x6989586621679127490 f6989586621679127491
type instance Apply (Let6989586621679127495Scrutinee_6989586621679126409Sym2 str6989586621679127494 x6989586621679127490) f6989586621679127491 = Let6989586621679127495Scrutinee_6989586621679126409 str6989586621679127494 x6989586621679127490 f6989586621679127491
instance SuppressUnusedWarnings (Let6989586621679127495Scrutinee_6989586621679126409Sym2 str6989586621679127494 x6989586621679127490) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679127495Scrutinee_6989586621679126409Sym2KindInference)
())
type family Let6989586621679127495Scrutinee_6989586621679126409Sym3 str6989586621679127494 x6989586621679127490 f6989586621679127491 where
Let6989586621679127495Scrutinee_6989586621679126409Sym3 str6989586621679127494 x6989586621679127490 f6989586621679127491 = Let6989586621679127495Scrutinee_6989586621679126409 str6989586621679127494 x6989586621679127490 f6989586621679127491
type family Let6989586621679127495Scrutinee_6989586621679126409 str_auCq x_auCm f_auCn where
Let6989586621679127495Scrutinee_6989586621679126409 str_auCq x_auCm f_auCn = Apply (Apply ParseSym0 str_auCq) x_auCm
type family Case_6989586621679127497_auCu str_auCq x_auCm f_auCn t_auCy where
Case_6989586621679127497_auCu str_auCq x_auCm f_auCn ('Left e_auCv) = Apply LeftSym0 e_auCv
Case_6989586621679127497_auCu str_auCq x_auCm f_auCn ('Right '(str1_auCw,
res_auCx)) = Apply (Apply ParseSym0 str1_auCw) (Apply f_auCn res_auCx)
type family Lambda_6989586621679127492_auCp x_auCm f_auCn str_auCq where
Lambda_6989586621679127492_auCp x_auCm f_auCn str_auCq = Case_6989586621679127497_auCu str_auCq x_auCm f_auCn (Let6989586621679127495Scrutinee_6989586621679126409Sym3 str_auCq x_auCm f_auCn)
data Lambda_6989586621679127492Sym0 x6989586621679127490
where
Lambda_6989586621679127492Sym0KindInference :: SameKind (Apply Lambda_6989586621679127492Sym0 arg_auCz) (Lambda_6989586621679127492Sym1 arg_auCz) =>
Lambda_6989586621679127492Sym0 x6989586621679127490
type instance Apply Lambda_6989586621679127492Sym0 x6989586621679127490 = Lambda_6989586621679127492Sym1 x6989586621679127490
instance SuppressUnusedWarnings Lambda_6989586621679127492Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127492Sym0KindInference) ())
data Lambda_6989586621679127492Sym1 x6989586621679127490 f6989586621679127491
where
Lambda_6989586621679127492Sym1KindInference :: SameKind (Apply (Lambda_6989586621679127492Sym1 x6989586621679127490) arg_auCz) (Lambda_6989586621679127492Sym2 x6989586621679127490 arg_auCz) =>
Lambda_6989586621679127492Sym1 x6989586621679127490 f6989586621679127491
type instance Apply (Lambda_6989586621679127492Sym1 x6989586621679127490) f6989586621679127491 = Lambda_6989586621679127492Sym2 x6989586621679127490 f6989586621679127491
instance SuppressUnusedWarnings (Lambda_6989586621679127492Sym1 x6989586621679127490) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127492Sym1KindInference) ())
data Lambda_6989586621679127492Sym2 x6989586621679127490 f6989586621679127491 str6989586621679127494
where
Lambda_6989586621679127492Sym2KindInference :: SameKind (Apply (Lambda_6989586621679127492Sym2 x6989586621679127490 f6989586621679127491) arg_auCz) (Lambda_6989586621679127492Sym3 x6989586621679127490 f6989586621679127491 arg_auCz) =>
Lambda_6989586621679127492Sym2 x6989586621679127490 f6989586621679127491 str6989586621679127494
type instance Apply (Lambda_6989586621679127492Sym2 x6989586621679127490 f6989586621679127491) str6989586621679127494 = Lambda_6989586621679127492_auCp x6989586621679127490 f6989586621679127491 str6989586621679127494
instance SuppressUnusedWarnings (Lambda_6989586621679127492Sym2 x6989586621679127490 f6989586621679127491) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679127492Sym2KindInference) ())
type family Lambda_6989586621679127492Sym3 x6989586621679127490 f6989586621679127491 str6989586621679127494 where
Lambda_6989586621679127492Sym3 x6989586621679127490 f6989586621679127491 str6989586621679127494 = Lambda_6989586621679127492_auCp x6989586621679127490 f6989586621679127491 str6989586621679127494
type TFHelper_6989586621679127483 :: PParser a_akVW
-> (~>) a_akVW (PParser b_akVX) -> PParser b_akVX
type family TFHelper_6989586621679127483 (a_auCh :: PParser a_akVW) (a_auCi :: (~>) a_akVW (PParser b_akVX)) :: PParser b_akVX where
TFHelper_6989586621679127483 x_auCm f_auCn = Apply PPSym0 (Apply (Apply Lambda_6989586621679127492Sym0 x_auCm) f_auCn)
type TFHelper_6989586621679127483Sym0 :: (~>) (PParser a_akVW) ((~>) ((~>) a_akVW (PParser b_akVX)) (PParser b_akVX))
data TFHelper_6989586621679127483Sym0 :: (~>) (PParser a_akVW) ((~>) ((~>) a_akVW (PParser b_akVX)) (PParser b_akVX))
where
TFHelper_6989586621679127483Sym0KindInference :: SameKind (Apply TFHelper_6989586621679127483Sym0 arg_auCj) (TFHelper_6989586621679127483Sym1 arg_auCj) =>
TFHelper_6989586621679127483Sym0 a6989586621679127488
type instance Apply TFHelper_6989586621679127483Sym0 a6989586621679127488 = TFHelper_6989586621679127483Sym1 a6989586621679127488
instance SuppressUnusedWarnings TFHelper_6989586621679127483Sym0 where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679127483Sym0KindInference) ())
type TFHelper_6989586621679127483Sym1 :: PParser a_akVW
-> (~>) ((~>) a_akVW (PParser b_akVX)) (PParser b_akVX)
data TFHelper_6989586621679127483Sym1 (a6989586621679127488 :: PParser a_akVW) :: (~>) ((~>) a_akVW (PParser b_akVX)) (PParser b_akVX)
where
TFHelper_6989586621679127483Sym1KindInference :: SameKind (Apply (TFHelper_6989586621679127483Sym1 a6989586621679127488) arg_auCj) (TFHelper_6989586621679127483Sym2 a6989586621679127488 arg_auCj) =>
TFHelper_6989586621679127483Sym1 a6989586621679127488 a6989586621679127489
type instance Apply (TFHelper_6989586621679127483Sym1 a6989586621679127488) a6989586621679127489 = TFHelper_6989586621679127483 a6989586621679127488 a6989586621679127489
instance SuppressUnusedWarnings (TFHelper_6989586621679127483Sym1 a6989586621679127488) where
suppressUnusedWarnings
= snd (((,) TFHelper_6989586621679127483Sym1KindInference) ())
type TFHelper_6989586621679127483Sym2 :: PParser a_akVW
-> (~>) a_akVW (PParser b_akVX) -> PParser b_akVX
type family TFHelper_6989586621679127483Sym2 (a6989586621679127488 :: PParser a_akVW) (a6989586621679127489 :: (~>) a_akVW (PParser b_akVX)) :: PParser b_akVX where
TFHelper_6989586621679127483Sym2 a6989586621679127488 a6989586621679127489 = TFHelper_6989586621679127483 a6989586621679127488 a6989586621679127489
instance PMonad PParser where
type (>>=) a_auCd a_auCe = Apply (Apply TFHelper_6989586621679127483Sym0 a_auCd) a_auCe
type Report :: Either Symbol a -> a
type family Report r where
Report ('Left err) = TypeError ('Text err)
Report ('Right a) = a
runParser :: forall {a} (p :: PParser a) (s :: Symbol). (SingKind a, (SingI (Report (Parse (SymbolToString s) p)))) => Demote (String,a)
runParser = fromSing (sing @(Report (Parse (SymbolToString s) p)))
runParserFinal :: forall {a} (p :: PParser a) (s :: Symbol). (SingKind a, (SingI (Report (ParseFinal (SymbolToString s) p)))) => Demote a
runParserFinal = fromSing (sing @(Report (ParseFinal (SymbolToString s) p)))
type PPathSym0 :: (~>) PathParam ((~>) (NonEmpty Symbol) PPath)
data PPathSym0 :: (~>) PathParam ((~>) (NonEmpty Symbol) PPath)
where
PPathSym0KindInference :: SameKind (Apply PPathSym0 arg_azXJ) (PPathSym1 arg_azXJ) =>
PPathSym0 a6989586621679148036
type instance Apply PPathSym0 a6989586621679148036 = PPathSym1 a6989586621679148036
instance SuppressUnusedWarnings PPathSym0 where
suppressUnusedWarnings = snd (((,) PPathSym0KindInference) ())
type PPathSym1 :: PathParam -> (~>) (NonEmpty Symbol) PPath
data PPathSym1 (a6989586621679148036 :: PathParam) :: (~>) (NonEmpty Symbol) PPath
where
PPathSym1KindInference :: SameKind (Apply (PPathSym1 a6989586621679148036) arg_azXJ) (PPathSym2 a6989586621679148036 arg_azXJ) =>
PPathSym1 a6989586621679148036 a6989586621679148037
type instance Apply (PPathSym1 a6989586621679148036) a6989586621679148037 = 'PPath a6989586621679148036 a6989586621679148037
instance SuppressUnusedWarnings (PPathSym1 a6989586621679148036) where
suppressUnusedWarnings = snd (((,) PPathSym1KindInference) ())
type PPathSym2 :: PathParam -> NonEmpty Symbol -> PPath
type family PPathSym2 (a6989586621679148036 :: PathParam) (a6989586621679148037 :: NonEmpty Symbol) :: PPath where
PPathSym2 a6989586621679148036 a6989586621679148037 = 'PPath a6989586621679148036 a6989586621679148037
type SPath :: PPath -> Type
data SPath :: PPath -> Type
where
SPath :: forall (n_azXM :: PathParam) (n_azXN :: NonEmpty Symbol).
(Sing n_azXM)
-> (Sing n_azXN)
-> SPath ('PPath n_azXM n_azXN :: PPath)
type instance Sing @PPath = SPath
instance SingKind PPath where
type Demote PPath = Path
fromSing (SPath b_azXQ b_azXR)
= (Path (fromSing b_azXQ)) (fromSing b_azXR)
toSing
(Path (b_azXT :: Demote PathParam)
(b_azXU :: Demote (NonEmpty Symbol)))
= case
((,) (toSing b_azXT :: SomeSing PathParam))
(toSing b_azXU :: SomeSing (NonEmpty Symbol))
of {
(,) (SomeSing c_azXV) (SomeSing c_azXW)
-> SomeSing ((SPath c_azXV) c_azXW) }
instance (SingI n_azXM, SingI n_azXN) =>
SingI ('PPath (n_azXM :: PathParam) (n_azXN :: NonEmpty Symbol)) where
sing = (SPath sing) sing
instance SingI (PPathSym0 :: (~>) PathParam ((~>) (NonEmpty Symbol) PPath)) where
sing = (singFun2 @PPathSym0) SPath
instance SingI d_azXO =>
SingI (PPathSym1 (d_azXO :: PathParam) :: (~>) (NonEmpty Symbol) PPath) where
sing
= (singFun1 @(PPathSym1 (d_azXO :: PathParam)))
(SPath (sing @d_azXO))
data Let6989586621679148842Scrutinee_6989586621679148821Sym0 c6989586621679148840
where
Let6989586621679148842Scrutinee_6989586621679148821Sym0KindInference :: SameKind (Apply Let6989586621679148842Scrutinee_6989586621679148821Sym0 arg_aAaL) (Let6989586621679148842Scrutinee_6989586621679148821Sym1 arg_aAaL) =>
Let6989586621679148842Scrutinee_6989586621679148821Sym0 c6989586621679148840
type instance Apply Let6989586621679148842Scrutinee_6989586621679148821Sym0 c6989586621679148840 = Let6989586621679148842Scrutinee_6989586621679148821Sym1 c6989586621679148840
instance SuppressUnusedWarnings Let6989586621679148842Scrutinee_6989586621679148821Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679148842Scrutinee_6989586621679148821Sym0KindInference)
())
data Let6989586621679148842Scrutinee_6989586621679148821Sym1 c6989586621679148840 cs6989586621679148841
where
Let6989586621679148842Scrutinee_6989586621679148821Sym1KindInference :: SameKind (Apply (Let6989586621679148842Scrutinee_6989586621679148821Sym1 c6989586621679148840) arg_aAaL) (Let6989586621679148842Scrutinee_6989586621679148821Sym2 c6989586621679148840 arg_aAaL) =>
Let6989586621679148842Scrutinee_6989586621679148821Sym1 c6989586621679148840 cs6989586621679148841
type instance Apply (Let6989586621679148842Scrutinee_6989586621679148821Sym1 c6989586621679148840) cs6989586621679148841 = Let6989586621679148842Scrutinee_6989586621679148821Sym2 c6989586621679148840 cs6989586621679148841
instance SuppressUnusedWarnings (Let6989586621679148842Scrutinee_6989586621679148821Sym1 c6989586621679148840) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679148842Scrutinee_6989586621679148821Sym1KindInference)
())
data Let6989586621679148842Scrutinee_6989586621679148821Sym2 c6989586621679148840 cs6989586621679148841 x_69895866216791488196989586621679148837
where
Let6989586621679148842Scrutinee_6989586621679148821Sym2KindInference :: SameKind (Apply (Let6989586621679148842Scrutinee_6989586621679148821Sym2 c6989586621679148840 cs6989586621679148841) arg_aAaL) (Let6989586621679148842Scrutinee_6989586621679148821Sym3 c6989586621679148840 cs6989586621679148841 arg_aAaL) =>
Let6989586621679148842Scrutinee_6989586621679148821Sym2 c6989586621679148840 cs6989586621679148841 x_69895866216791488196989586621679148837
type instance Apply (Let6989586621679148842Scrutinee_6989586621679148821Sym2 c6989586621679148840 cs6989586621679148841) x_69895866216791488196989586621679148837 = Let6989586621679148842Scrutinee_6989586621679148821 c6989586621679148840 cs6989586621679148841 x_69895866216791488196989586621679148837
instance SuppressUnusedWarnings (Let6989586621679148842Scrutinee_6989586621679148821Sym2 c6989586621679148840 cs6989586621679148841) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679148842Scrutinee_6989586621679148821Sym2KindInference)
())
type family Let6989586621679148842Scrutinee_6989586621679148821Sym3 c6989586621679148840 cs6989586621679148841 x_69895866216791488196989586621679148837 where
Let6989586621679148842Scrutinee_6989586621679148821Sym3 c6989586621679148840 cs6989586621679148841 x_69895866216791488196989586621679148837 = Let6989586621679148842Scrutinee_6989586621679148821 c6989586621679148840 cs6989586621679148841 x_69895866216791488196989586621679148837
type family Let6989586621679148842Scrutinee_6989586621679148821 c_aAaI cs_aAaJ x_6989586621679148819_aAaF where
Let6989586621679148842Scrutinee_6989586621679148821 c_aAaI cs_aAaJ x_6989586621679148819_aAaF = Apply CheckLinPathCharSym0 c_aAaI
type family Case_6989586621679148844_aAaN c_aAaI cs_aAaJ x_6989586621679148819_aAaF t_aAaO where
Case_6989586621679148844_aAaN c_aAaI cs_aAaJ x_6989586621679148819_aAaF 'True = Apply RightSym0 (Apply (Apply Tuple2Sym0 cs_aAaJ) c_aAaI)
Case_6989586621679148844_aAaN c_aAaI cs_aAaJ x_6989586621679148819_aAaF 'False = Apply (Apply ($@#@$) LeftSym0) "Expected allowed Unix path char. But"
type family Case_6989586621679148838_aAaH x_6989586621679148819_aAaF t_aAaP where
Case_6989586621679148838_aAaH x_6989586621679148819_aAaF '[] = Apply LeftSym0 "End of input"
Case_6989586621679148838_aAaH x_6989586621679148819_aAaF ('(:) c_aAaI cs_aAaJ) = Case_6989586621679148844_aAaN c_aAaI cs_aAaJ x_6989586621679148819_aAaF (Let6989586621679148842Scrutinee_6989586621679148821Sym3 c_aAaI cs_aAaJ x_6989586621679148819_aAaF)
type family Lambda_6989586621679148835_aAaE x_6989586621679148819_aAaF where
Lambda_6989586621679148835_aAaE x_6989586621679148819_aAaF = Case_6989586621679148838_aAaH x_6989586621679148819_aAaF x_6989586621679148819_aAaF
data Lambda_6989586621679148835Sym0 x_69895866216791488196989586621679148837
where
Lambda_6989586621679148835Sym0KindInference :: SameKind (Apply Lambda_6989586621679148835Sym0 arg_aAaQ) (Lambda_6989586621679148835Sym1 arg_aAaQ) =>
Lambda_6989586621679148835Sym0 x_69895866216791488196989586621679148837
type instance Apply Lambda_6989586621679148835Sym0 x_69895866216791488196989586621679148837 = Lambda_6989586621679148835_aAaE x_69895866216791488196989586621679148837
instance SuppressUnusedWarnings Lambda_6989586621679148835Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679148835Sym0KindInference) ())
type family Lambda_6989586621679148835Sym1 x_69895866216791488196989586621679148837 where
Lambda_6989586621679148835Sym1 x_69895866216791488196989586621679148837 = Lambda_6989586621679148835_aAaE x_69895866216791488196989586621679148837
data Let6989586621679148857Scrutinee_6989586621679148813Sym0 c6989586621679148855
where
Let6989586621679148857Scrutinee_6989586621679148813Sym0KindInference :: SameKind (Apply Let6989586621679148857Scrutinee_6989586621679148813Sym0 arg_aAb0) (Let6989586621679148857Scrutinee_6989586621679148813Sym1 arg_aAb0) =>
Let6989586621679148857Scrutinee_6989586621679148813Sym0 c6989586621679148855
type instance Apply Let6989586621679148857Scrutinee_6989586621679148813Sym0 c6989586621679148855 = Let6989586621679148857Scrutinee_6989586621679148813Sym1 c6989586621679148855
instance SuppressUnusedWarnings Let6989586621679148857Scrutinee_6989586621679148813Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679148857Scrutinee_6989586621679148813Sym0KindInference)
())
data Let6989586621679148857Scrutinee_6989586621679148813Sym1 c6989586621679148855 cs6989586621679148856
where
Let6989586621679148857Scrutinee_6989586621679148813Sym1KindInference :: SameKind (Apply (Let6989586621679148857Scrutinee_6989586621679148813Sym1 c6989586621679148855) arg_aAb0) (Let6989586621679148857Scrutinee_6989586621679148813Sym2 c6989586621679148855 arg_aAb0) =>
Let6989586621679148857Scrutinee_6989586621679148813Sym1 c6989586621679148855 cs6989586621679148856
type instance Apply (Let6989586621679148857Scrutinee_6989586621679148813Sym1 c6989586621679148855) cs6989586621679148856 = Let6989586621679148857Scrutinee_6989586621679148813Sym2 c6989586621679148855 cs6989586621679148856
instance SuppressUnusedWarnings (Let6989586621679148857Scrutinee_6989586621679148813Sym1 c6989586621679148855) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679148857Scrutinee_6989586621679148813Sym1KindInference)
())
data Let6989586621679148857Scrutinee_6989586621679148813Sym2 c6989586621679148855 cs6989586621679148856 x_69895866216791488116989586621679148852
where
Let6989586621679148857Scrutinee_6989586621679148813Sym2KindInference :: SameKind (Apply (Let6989586621679148857Scrutinee_6989586621679148813Sym2 c6989586621679148855 cs6989586621679148856) arg_aAb0) (Let6989586621679148857Scrutinee_6989586621679148813Sym3 c6989586621679148855 cs6989586621679148856 arg_aAb0) =>
Let6989586621679148857Scrutinee_6989586621679148813Sym2 c6989586621679148855 cs6989586621679148856 x_69895866216791488116989586621679148852
type instance Apply (Let6989586621679148857Scrutinee_6989586621679148813Sym2 c6989586621679148855 cs6989586621679148856) x_69895866216791488116989586621679148852 = Let6989586621679148857Scrutinee_6989586621679148813 c6989586621679148855 cs6989586621679148856 x_69895866216791488116989586621679148852
instance SuppressUnusedWarnings (Let6989586621679148857Scrutinee_6989586621679148813Sym2 c6989586621679148855 cs6989586621679148856) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679148857Scrutinee_6989586621679148813Sym2KindInference)
())
type family Let6989586621679148857Scrutinee_6989586621679148813Sym3 c6989586621679148855 cs6989586621679148856 x_69895866216791488116989586621679148852 where
Let6989586621679148857Scrutinee_6989586621679148813Sym3 c6989586621679148855 cs6989586621679148856 x_69895866216791488116989586621679148852 = Let6989586621679148857Scrutinee_6989586621679148813 c6989586621679148855 cs6989586621679148856 x_69895866216791488116989586621679148852
type family Let6989586621679148857Scrutinee_6989586621679148813 c_aAaX cs_aAaY x_6989586621679148811_aAaU where
Let6989586621679148857Scrutinee_6989586621679148813 c_aAaX cs_aAaY x_6989586621679148811_aAaU = Apply CheckWinPathCharSym0 c_aAaX
type family Case_6989586621679148859_aAb2 c_aAaX cs_aAaY x_6989586621679148811_aAaU t_aAb3 where
Case_6989586621679148859_aAb2 c_aAaX cs_aAaY x_6989586621679148811_aAaU 'True = Apply RightSym0 (Apply (Apply Tuple2Sym0 cs_aAaY) c_aAaX)
Case_6989586621679148859_aAb2 c_aAaX cs_aAaY x_6989586621679148811_aAaU 'False = Apply (Apply ($@#@$) LeftSym0) "Expected allowed Windows path char."
type family Case_6989586621679148853_aAaW x_6989586621679148811_aAaU t_aAb4 where
Case_6989586621679148853_aAaW x_6989586621679148811_aAaU '[] = Apply LeftSym0 "End of input"
Case_6989586621679148853_aAaW x_6989586621679148811_aAaU ('(:) c_aAaX cs_aAaY) = Case_6989586621679148859_aAb2 c_aAaX cs_aAaY x_6989586621679148811_aAaU (Let6989586621679148857Scrutinee_6989586621679148813Sym3 c_aAaX cs_aAaY x_6989586621679148811_aAaU)
type family Lambda_6989586621679148850_aAaT x_6989586621679148811_aAaU where
Lambda_6989586621679148850_aAaT x_6989586621679148811_aAaU = Case_6989586621679148853_aAaW x_6989586621679148811_aAaU x_6989586621679148811_aAaU
data Lambda_6989586621679148850Sym0 x_69895866216791488116989586621679148852
where
Lambda_6989586621679148850Sym0KindInference :: SameKind (Apply Lambda_6989586621679148850Sym0 arg_aAb5) (Lambda_6989586621679148850Sym1 arg_aAb5) =>
Lambda_6989586621679148850Sym0 x_69895866216791488116989586621679148852
type instance Apply Lambda_6989586621679148850Sym0 x_69895866216791488116989586621679148852 = Lambda_6989586621679148850_aAaT x_69895866216791488116989586621679148852
instance SuppressUnusedWarnings Lambda_6989586621679148850Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679148850Sym0KindInference) ())
type family Lambda_6989586621679148850Sym1 x_69895866216791488116989586621679148852 where
Lambda_6989586621679148850Sym1 x_69895866216791488116989586621679148852 = Lambda_6989586621679148850_aAaT x_69895866216791488116989586621679148852
data CheckLinPathCharSym0 a6989586621679148827
where
CheckLinPathCharSym0KindInference :: SameKind (Apply CheckLinPathCharSym0 arg_aAaw) (CheckLinPathCharSym1 arg_aAaw) =>
CheckLinPathCharSym0 a6989586621679148827
type instance Apply CheckLinPathCharSym0 a6989586621679148827 = CheckLinPathChar a6989586621679148827
instance SuppressUnusedWarnings CheckLinPathCharSym0 where
suppressUnusedWarnings
= snd (((,) CheckLinPathCharSym0KindInference) ())
type family CheckLinPathCharSym1 a6989586621679148827 where
CheckLinPathCharSym1 a6989586621679148827 = CheckLinPathChar a6989586621679148827
type CheckWinPathCharSym0 :: (~>) Char Bool
data CheckWinPathCharSym0 :: (~>) Char Bool
where
CheckWinPathCharSym0KindInference :: SameKind (Apply CheckWinPathCharSym0 arg_aAaz) (CheckWinPathCharSym1 arg_aAaz) =>
CheckWinPathCharSym0 a6989586621679148832
type instance Apply CheckWinPathCharSym0 a6989586621679148832 = CheckWinPathChar a6989586621679148832
instance SuppressUnusedWarnings CheckWinPathCharSym0 where
suppressUnusedWarnings
= snd (((,) CheckWinPathCharSym0KindInference) ())
type CheckWinPathCharSym1 :: Char -> Bool
type family CheckWinPathCharSym1 (a6989586621679148832 :: Char) :: Bool where
CheckWinPathCharSym1 a6989586621679148832 = CheckWinPathChar a6989586621679148832
type family UnixPathCharSym0 where
UnixPathCharSym0 = UnixPathChar
type family WinPathCharSym0 where
WinPathCharSym0 = WinPathChar
type family CheckLinPathChar a_aAav where
CheckLinPathChar c_aAax = Apply (Apply (&&@#@$) (Apply (Apply (>@#@$) c_aAax) '\NUL')) (Apply (Apply (/=@#@$) c_aAax) '/')
type CheckWinPathChar :: Char -> Bool
type family CheckWinPathChar (a_aAay :: Char) :: Bool where
CheckWinPathChar c_aAaB = Apply (Apply (&&@#@$) (Apply (Apply (>=@#@$) c_aAaB) ' ')) (Apply (Apply (&&@#@$) (Apply (Apply NotElemSym0 c_aAaB) (Apply (Apply (:@#@$) '"') (Apply (Apply (:@#@$) '*') (Apply (Apply (:@#@$) '/') (Apply (Apply (:@#@$) ':') (Apply (Apply (:@#@$) '<') (Apply (Apply (:@#@$) '>') (Apply (Apply (:@#@$) '?') (Apply (Apply (:@#@$) '\\') (Apply (Apply (:@#@$) '|') NilSym0))))))))))) (Apply (Apply (<=@#@$) c_aAaB) '~'))
type family UnixPathChar where
UnixPathChar = Apply PPSym0 Lambda_6989586621679148835Sym0
type family WinPathChar where
WinPathChar = Apply PPSym0 Lambda_6989586621679148850Sym0
-- main parsers
type family Let6989586621679151625RelParserSym0 where
Let6989586621679151625RelParserSym0 = Let6989586621679151625RelParser
type family Let6989586621679151625AbsParserSym0 where
Let6989586621679151625AbsParserSym0 = Let6989586621679151625AbsParser
type family Let6989586621679151625RelParser where
Let6989586621679151625RelParser = Apply (Apply ($@#@$) ManySym0) (Apply (Apply ManyTillSym0 UnixPathCharSym0) (Apply PcharSym0 '/'))
type family Let6989586621679151625AbsParser where
Let6989586621679151625AbsParser = Apply (Apply (<*>@#@$) (Apply (Apply (<$>@#@$) (:@#@$)) (Apply PstringSym0 (Apply (Apply (:@#@$) '/') NilSym0)))) (Apply (Apply ($@#@$) ManySym0) (Apply (Apply ManyTillSym0 UnixPathCharSym0) (Apply PcharSym0 '/')))
data Let6989586621679151634Scrutinee_6989586621679151603Sym0 file6989586621679151633
where
Let6989586621679151634Scrutinee_6989586621679151603Sym0KindInference :: SameKind (Apply Let6989586621679151634Scrutinee_6989586621679151603Sym0 arg_aATN) (Let6989586621679151634Scrutinee_6989586621679151603Sym1 arg_aATN) =>
Let6989586621679151634Scrutinee_6989586621679151603Sym0 file6989586621679151633
type instance Apply Let6989586621679151634Scrutinee_6989586621679151603Sym0 file6989586621679151633 = Let6989586621679151634Scrutinee_6989586621679151603Sym1 file6989586621679151633
instance SuppressUnusedWarnings Let6989586621679151634Scrutinee_6989586621679151603Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679151634Scrutinee_6989586621679151603Sym0KindInference)
())
data Let6989586621679151634Scrutinee_6989586621679151603Sym1 file6989586621679151633 folders6989586621679151630
where
Let6989586621679151634Scrutinee_6989586621679151603Sym1KindInference :: SameKind (Apply (Let6989586621679151634Scrutinee_6989586621679151603Sym1 file6989586621679151633) arg_aATN) (Let6989586621679151634Scrutinee_6989586621679151603Sym2 file6989586621679151633 arg_aATN) =>
Let6989586621679151634Scrutinee_6989586621679151603Sym1 file6989586621679151633 folders6989586621679151630
type instance Apply (Let6989586621679151634Scrutinee_6989586621679151603Sym1 file6989586621679151633) folders6989586621679151630 = Let6989586621679151634Scrutinee_6989586621679151603 file6989586621679151633 folders6989586621679151630
instance SuppressUnusedWarnings (Let6989586621679151634Scrutinee_6989586621679151603Sym1 file6989586621679151633) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679151634Scrutinee_6989586621679151603Sym1KindInference)
())
type family Let6989586621679151634Scrutinee_6989586621679151603Sym2 file6989586621679151633 folders6989586621679151630 where
Let6989586621679151634Scrutinee_6989586621679151603Sym2 file6989586621679151633 folders6989586621679151630 = Let6989586621679151634Scrutinee_6989586621679151603 file6989586621679151633 folders6989586621679151630
type family Let6989586621679151634Scrutinee_6989586621679151603 file_aATL folders_aATI where
Let6989586621679151634Scrutinee_6989586621679151603 file_aATL folders_aATI = Apply (Apply (&&@#@$) (Apply (Apply (==@#@$) folders_aATI) NilSym0)) (Apply (Apply (==@#@$) file_aATL) NilSym0)
type family Case_6989586621679151641_aATU arg_6989586621679151605_aATS file_aATL folders_aATI t_aATV where
Case_6989586621679151641_aATU arg_6989586621679151605_aATS file_aATL folders_aATI _ = Apply LeftSym0 "Empty folder"
type family Lambda_6989586621679151638_aATR file_aATL folders_aATI arg_6989586621679151605_aATS where
Lambda_6989586621679151638_aATR file_aATL folders_aATI arg_6989586621679151605_aATS = Case_6989586621679151641_aATU arg_6989586621679151605_aATS file_aATL folders_aATI arg_6989586621679151605_aATS
data Lambda_6989586621679151638Sym0 file6989586621679151633
where
Lambda_6989586621679151638Sym0KindInference :: SameKind (Apply Lambda_6989586621679151638Sym0 arg_aATW) (Lambda_6989586621679151638Sym1 arg_aATW) =>
Lambda_6989586621679151638Sym0 file6989586621679151633
type instance Apply Lambda_6989586621679151638Sym0 file6989586621679151633 = Lambda_6989586621679151638Sym1 file6989586621679151633
instance SuppressUnusedWarnings Lambda_6989586621679151638Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679151638Sym0KindInference) ())
data Lambda_6989586621679151638Sym1 file6989586621679151633 folders6989586621679151630
where
Lambda_6989586621679151638Sym1KindInference :: SameKind (Apply (Lambda_6989586621679151638Sym1 file6989586621679151633) arg_aATW) (Lambda_6989586621679151638Sym2 file6989586621679151633 arg_aATW) =>
Lambda_6989586621679151638Sym1 file6989586621679151633 folders6989586621679151630
type instance Apply (Lambda_6989586621679151638Sym1 file6989586621679151633) folders6989586621679151630 = Lambda_6989586621679151638Sym2 file6989586621679151633 folders6989586621679151630
instance SuppressUnusedWarnings (Lambda_6989586621679151638Sym1 file6989586621679151633) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679151638Sym1KindInference) ())
data Lambda_6989586621679151638Sym2 file6989586621679151633 folders6989586621679151630 arg_69895866216791516056989586621679151640
where
Lambda_6989586621679151638Sym2KindInference :: SameKind (Apply (Lambda_6989586621679151638Sym2 file6989586621679151633 folders6989586621679151630) arg_aATW) (Lambda_6989586621679151638Sym3 file6989586621679151633 folders6989586621679151630 arg_aATW) =>
Lambda_6989586621679151638Sym2 file6989586621679151633 folders6989586621679151630 arg_69895866216791516056989586621679151640
type instance Apply (Lambda_6989586621679151638Sym2 file6989586621679151633 folders6989586621679151630) arg_69895866216791516056989586621679151640 = Lambda_6989586621679151638_aATR file6989586621679151633 folders6989586621679151630 arg_69895866216791516056989586621679151640
instance SuppressUnusedWarnings (Lambda_6989586621679151638Sym2 file6989586621679151633 folders6989586621679151630) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679151638Sym2KindInference) ())
type family Lambda_6989586621679151638Sym3 file6989586621679151633 folders6989586621679151630 arg_69895866216791516056989586621679151640 where
Lambda_6989586621679151638Sym3 file6989586621679151633 folders6989586621679151630 arg_69895866216791516056989586621679151640 = Lambda_6989586621679151638_aATR file6989586621679151633 folders6989586621679151630 arg_69895866216791516056989586621679151640
type family Case_6989586621679151636_aATP file_aATL folders_aATI t_aATX where
Case_6989586621679151636_aATP file_aATL folders_aATI 'True = Apply PPSym0 (Apply (Apply Lambda_6989586621679151638Sym0 file_aATL) folders_aATI) :: PParser ()
Case_6989586621679151636_aATP file_aATL folders_aATI 'False = Apply ReturnSym0 Tuple0Sym0
data Let6989586621679151649Scrutinee_6989586621679151609Sym0 file6989586621679151633
where
Let6989586621679151649Scrutinee_6989586621679151609Sym0KindInference :: SameKind (Apply Let6989586621679151649Scrutinee_6989586621679151609Sym0 arg_aAU2) (Let6989586621679151649Scrutinee_6989586621679151609Sym1 arg_aAU2) =>
Let6989586621679151649Scrutinee_6989586621679151609Sym0 file6989586621679151633
type instance Apply Let6989586621679151649Scrutinee_6989586621679151609Sym0 file6989586621679151633 = Let6989586621679151649Scrutinee_6989586621679151609Sym1 file6989586621679151633
instance SuppressUnusedWarnings Let6989586621679151649Scrutinee_6989586621679151609Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679151649Scrutinee_6989586621679151609Sym0KindInference)
())
data Let6989586621679151649Scrutinee_6989586621679151609Sym1 file6989586621679151633 folders6989586621679151630
where
Let6989586621679151649Scrutinee_6989586621679151609Sym1KindInference :: SameKind (Apply (Let6989586621679151649Scrutinee_6989586621679151609Sym1 file6989586621679151633) arg_aAU2) (Let6989586621679151649Scrutinee_6989586621679151609Sym2 file6989586621679151633 arg_aAU2) =>
Let6989586621679151649Scrutinee_6989586621679151609Sym1 file6989586621679151633 folders6989586621679151630
type instance Apply (Let6989586621679151649Scrutinee_6989586621679151609Sym1 file6989586621679151633) folders6989586621679151630 = Let6989586621679151649Scrutinee_6989586621679151609 file6989586621679151633 folders6989586621679151630
instance SuppressUnusedWarnings (Let6989586621679151649Scrutinee_6989586621679151609Sym1 file6989586621679151633) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679151649Scrutinee_6989586621679151609Sym1KindInference)
())
type family Let6989586621679151649Scrutinee_6989586621679151609Sym2 file6989586621679151633 folders6989586621679151630 where
Let6989586621679151649Scrutinee_6989586621679151609Sym2 file6989586621679151633 folders6989586621679151630 = Let6989586621679151649Scrutinee_6989586621679151609 file6989586621679151633 folders6989586621679151630
type family Let6989586621679151649Scrutinee_6989586621679151609 file_aATL folders_aATI where
Let6989586621679151649Scrutinee_6989586621679151609 file_aATL folders_aATI = Apply (Apply (==@#@$) file_aATL) NilSym0
type family Case_6989586621679151651_aAU4 file_aATL folders_aATI t_aAU5 where
Case_6989586621679151651_aAU4 file_aATL folders_aATI 'True = DirSym0
Case_6989586621679151651_aAU4 file_aATL folders_aATI 'False = FileSym0
data Let6989586621679151655Scrutinee_6989586621679151607Sym0 file6989586621679151633
where
Let6989586621679151655Scrutinee_6989586621679151607Sym0KindInference :: SameKind (Apply Let6989586621679151655Scrutinee_6989586621679151607Sym0 arg_aAU8) (Let6989586621679151655Scrutinee_6989586621679151607Sym1 arg_aAU8) =>
Let6989586621679151655Scrutinee_6989586621679151607Sym0 file6989586621679151633
type instance Apply Let6989586621679151655Scrutinee_6989586621679151607Sym0 file6989586621679151633 = Let6989586621679151655Scrutinee_6989586621679151607Sym1 file6989586621679151633
instance SuppressUnusedWarnings Let6989586621679151655Scrutinee_6989586621679151607Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679151655Scrutinee_6989586621679151607Sym0KindInference)
())
data Let6989586621679151655Scrutinee_6989586621679151607Sym1 file6989586621679151633 folders6989586621679151630
where
Let6989586621679151655Scrutinee_6989586621679151607Sym1KindInference :: SameKind (Apply (Let6989586621679151655Scrutinee_6989586621679151607Sym1 file6989586621679151633) arg_aAU8) (Let6989586621679151655Scrutinee_6989586621679151607Sym2 file6989586621679151633 arg_aAU8) =>
Let6989586621679151655Scrutinee_6989586621679151607Sym1 file6989586621679151633 folders6989586621679151630
type instance Apply (Let6989586621679151655Scrutinee_6989586621679151607Sym1 file6989586621679151633) folders6989586621679151630 = Let6989586621679151655Scrutinee_6989586621679151607 file6989586621679151633 folders6989586621679151630
instance SuppressUnusedWarnings (Let6989586621679151655Scrutinee_6989586621679151607Sym1 file6989586621679151633) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679151655Scrutinee_6989586621679151607Sym1KindInference)
())
type family Let6989586621679151655Scrutinee_6989586621679151607Sym2 file6989586621679151633 folders6989586621679151630 where
Let6989586621679151655Scrutinee_6989586621679151607Sym2 file6989586621679151633 folders6989586621679151630 = Let6989586621679151655Scrutinee_6989586621679151607 file6989586621679151633 folders6989586621679151630
type family Let6989586621679151655Scrutinee_6989586621679151607 file_aATL folders_aATI where
Let6989586621679151655Scrutinee_6989586621679151607 file_aATL folders_aATI = Apply (Apply (==@#@$) (Apply HeadSym0 (Let6989586621679151646FullpathSym2 file_aATL folders_aATI))) "/"
type family Case_6989586621679151657_aAUa file_aATL folders_aATI t_aAUb where
Case_6989586621679151657_aAUa file_aATL folders_aATI 'True = AbsoluteSym0
Case_6989586621679151657_aAUa file_aATL folders_aATI 'False = RelativeSym0
data Let6989586621679151646PathListSym0 file6989586621679151633
where
Let6989586621679151646PathListSym0KindInference :: SameKind (Apply Let6989586621679151646PathListSym0 arg_aATZ) (Let6989586621679151646PathListSym1 arg_aATZ) =>
Let6989586621679151646PathListSym0 file6989586621679151633
type instance Apply Let6989586621679151646PathListSym0 file6989586621679151633 = Let6989586621679151646PathListSym1 file6989586621679151633
instance SuppressUnusedWarnings Let6989586621679151646PathListSym0 where
suppressUnusedWarnings
= snd (((,) Let6989586621679151646PathListSym0KindInference) ())
data Let6989586621679151646PathListSym1 file6989586621679151633 folders6989586621679151630
where
Let6989586621679151646PathListSym1KindInference :: SameKind (Apply (Let6989586621679151646PathListSym1 file6989586621679151633) arg_aATZ) (Let6989586621679151646PathListSym2 file6989586621679151633 arg_aATZ) =>
Let6989586621679151646PathListSym1 file6989586621679151633 folders6989586621679151630
type instance Apply (Let6989586621679151646PathListSym1 file6989586621679151633) folders6989586621679151630 = Let6989586621679151646PathList file6989586621679151633 folders6989586621679151630
instance SuppressUnusedWarnings (Let6989586621679151646PathListSym1 file6989586621679151633) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151646PathListSym1KindInference) ())
type family Let6989586621679151646PathListSym2 file6989586621679151633 folders6989586621679151630 where
Let6989586621679151646PathListSym2 file6989586621679151633 folders6989586621679151630 = Let6989586621679151646PathList file6989586621679151633 folders6989586621679151630
data Let6989586621679151646FileOrDirSym0 file6989586621679151633
where
Let6989586621679151646FileOrDirSym0KindInference :: SameKind (Apply Let6989586621679151646FileOrDirSym0 arg_aAU0) (Let6989586621679151646FileOrDirSym1 arg_aAU0) =>
Let6989586621679151646FileOrDirSym0 file6989586621679151633
type instance Apply Let6989586621679151646FileOrDirSym0 file6989586621679151633 = Let6989586621679151646FileOrDirSym1 file6989586621679151633
instance SuppressUnusedWarnings Let6989586621679151646FileOrDirSym0 where
suppressUnusedWarnings
= snd (((,) Let6989586621679151646FileOrDirSym0KindInference) ())
data Let6989586621679151646FileOrDirSym1 file6989586621679151633 folders6989586621679151630
where
Let6989586621679151646FileOrDirSym1KindInference :: SameKind (Apply (Let6989586621679151646FileOrDirSym1 file6989586621679151633) arg_aAU0) (Let6989586621679151646FileOrDirSym2 file6989586621679151633 arg_aAU0) =>
Let6989586621679151646FileOrDirSym1 file6989586621679151633 folders6989586621679151630
type instance Apply (Let6989586621679151646FileOrDirSym1 file6989586621679151633) folders6989586621679151630 = Let6989586621679151646FileOrDir file6989586621679151633 folders6989586621679151630
instance SuppressUnusedWarnings (Let6989586621679151646FileOrDirSym1 file6989586621679151633) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151646FileOrDirSym1KindInference) ())
type family Let6989586621679151646FileOrDirSym2 file6989586621679151633 folders6989586621679151630 where
Let6989586621679151646FileOrDirSym2 file6989586621679151633 folders6989586621679151630 = Let6989586621679151646FileOrDir file6989586621679151633 folders6989586621679151630
data Let6989586621679151646AbsOrRelSym0 file6989586621679151633
where
Let6989586621679151646AbsOrRelSym0KindInference :: SameKind (Apply Let6989586621679151646AbsOrRelSym0 arg_aAU6) (Let6989586621679151646AbsOrRelSym1 arg_aAU6) =>
Let6989586621679151646AbsOrRelSym0 file6989586621679151633
type instance Apply Let6989586621679151646AbsOrRelSym0 file6989586621679151633 = Let6989586621679151646AbsOrRelSym1 file6989586621679151633
instance SuppressUnusedWarnings Let6989586621679151646AbsOrRelSym0 where
suppressUnusedWarnings
= snd (((,) Let6989586621679151646AbsOrRelSym0KindInference) ())
data Let6989586621679151646AbsOrRelSym1 file6989586621679151633 folders6989586621679151630
where
Let6989586621679151646AbsOrRelSym1KindInference :: SameKind (Apply (Let6989586621679151646AbsOrRelSym1 file6989586621679151633) arg_aAU6) (Let6989586621679151646AbsOrRelSym2 file6989586621679151633 arg_aAU6) =>
Let6989586621679151646AbsOrRelSym1 file6989586621679151633 folders6989586621679151630
type instance Apply (Let6989586621679151646AbsOrRelSym1 file6989586621679151633) folders6989586621679151630 = Let6989586621679151646AbsOrRel file6989586621679151633 folders6989586621679151630
instance SuppressUnusedWarnings (Let6989586621679151646AbsOrRelSym1 file6989586621679151633) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151646AbsOrRelSym1KindInference) ())
type family Let6989586621679151646AbsOrRelSym2 file6989586621679151633 folders6989586621679151630 where
Let6989586621679151646AbsOrRelSym2 file6989586621679151633 folders6989586621679151630 = Let6989586621679151646AbsOrRel file6989586621679151633 folders6989586621679151630
data Let6989586621679151646FullpathSym0 file6989586621679151633
where
Let6989586621679151646FullpathSym0KindInference :: SameKind (Apply Let6989586621679151646FullpathSym0 arg_aAUc) (Let6989586621679151646FullpathSym1 arg_aAUc) =>
Let6989586621679151646FullpathSym0 file6989586621679151633
type instance Apply Let6989586621679151646FullpathSym0 file6989586621679151633 = Let6989586621679151646FullpathSym1 file6989586621679151633
instance SuppressUnusedWarnings Let6989586621679151646FullpathSym0 where
suppressUnusedWarnings
= snd (((,) Let6989586621679151646FullpathSym0KindInference) ())
data Let6989586621679151646FullpathSym1 file6989586621679151633 folders6989586621679151630
where
Let6989586621679151646FullpathSym1KindInference :: SameKind (Apply (Let6989586621679151646FullpathSym1 file6989586621679151633) arg_aAUc) (Let6989586621679151646FullpathSym2 file6989586621679151633 arg_aAUc) =>
Let6989586621679151646FullpathSym1 file6989586621679151633 folders6989586621679151630
type instance Apply (Let6989586621679151646FullpathSym1 file6989586621679151633) folders6989586621679151630 = Let6989586621679151646Fullpath file6989586621679151633 folders6989586621679151630
instance SuppressUnusedWarnings (Let6989586621679151646FullpathSym1 file6989586621679151633) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151646FullpathSym1KindInference) ())
type family Let6989586621679151646FullpathSym2 file6989586621679151633 folders6989586621679151630 where
Let6989586621679151646FullpathSym2 file6989586621679151633 folders6989586621679151630 = Let6989586621679151646Fullpath file6989586621679151633 folders6989586621679151630
data Let6989586621679151646TfileSym0 file6989586621679151633
where
Let6989586621679151646TfileSym0KindInference :: SameKind (Apply Let6989586621679151646TfileSym0 arg_aAUd) (Let6989586621679151646TfileSym1 arg_aAUd) =>
Let6989586621679151646TfileSym0 file6989586621679151633
type instance Apply Let6989586621679151646TfileSym0 file6989586621679151633 = Let6989586621679151646TfileSym1 file6989586621679151633
instance SuppressUnusedWarnings Let6989586621679151646TfileSym0 where
suppressUnusedWarnings
= snd (((,) Let6989586621679151646TfileSym0KindInference) ())
data Let6989586621679151646TfileSym1 file6989586621679151633 folders6989586621679151630
where
Let6989586621679151646TfileSym1KindInference :: SameKind (Apply (Let6989586621679151646TfileSym1 file6989586621679151633) arg_aAUd) (Let6989586621679151646TfileSym2 file6989586621679151633 arg_aAUd) =>
Let6989586621679151646TfileSym1 file6989586621679151633 folders6989586621679151630
type instance Apply (Let6989586621679151646TfileSym1 file6989586621679151633) folders6989586621679151630 = Let6989586621679151646Tfile file6989586621679151633 folders6989586621679151630
instance SuppressUnusedWarnings (Let6989586621679151646TfileSym1 file6989586621679151633) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151646TfileSym1KindInference) ())
type family Let6989586621679151646TfileSym2 file6989586621679151633 folders6989586621679151630 where
Let6989586621679151646TfileSym2 file6989586621679151633 folders6989586621679151630 = Let6989586621679151646Tfile file6989586621679151633 folders6989586621679151630
data Let6989586621679151646TfoldersSym0 file6989586621679151633
where
Let6989586621679151646TfoldersSym0KindInference :: SameKind (Apply Let6989586621679151646TfoldersSym0 arg_aAUe) (Let6989586621679151646TfoldersSym1 arg_aAUe) =>
Let6989586621679151646TfoldersSym0 file6989586621679151633
type instance Apply Let6989586621679151646TfoldersSym0 file6989586621679151633 = Let6989586621679151646TfoldersSym1 file6989586621679151633
instance SuppressUnusedWarnings Let6989586621679151646TfoldersSym0 where
suppressUnusedWarnings
= snd (((,) Let6989586621679151646TfoldersSym0KindInference) ())
data Let6989586621679151646TfoldersSym1 file6989586621679151633 folders6989586621679151630
where
Let6989586621679151646TfoldersSym1KindInference :: SameKind (Apply (Let6989586621679151646TfoldersSym1 file6989586621679151633) arg_aAUe) (Let6989586621679151646TfoldersSym2 file6989586621679151633 arg_aAUe) =>
Let6989586621679151646TfoldersSym1 file6989586621679151633 folders6989586621679151630
type instance Apply (Let6989586621679151646TfoldersSym1 file6989586621679151633) folders6989586621679151630 = Let6989586621679151646Tfolders file6989586621679151633 folders6989586621679151630
instance SuppressUnusedWarnings (Let6989586621679151646TfoldersSym1 file6989586621679151633) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151646TfoldersSym1KindInference) ())
type family Let6989586621679151646TfoldersSym2 file6989586621679151633 folders6989586621679151630 where
Let6989586621679151646TfoldersSym2 file6989586621679151633 folders6989586621679151630 = Let6989586621679151646Tfolders file6989586621679151633 folders6989586621679151630
type family Let6989586621679151646PathList file_aATL folders_aATI where
Let6989586621679151646PathList file_aATL folders_aATI = Apply (Apply (:|@#@$) (Apply HeadSym0 (Let6989586621679151646FullpathSym2 file_aATL folders_aATI))) (Apply TailSym0 (Let6989586621679151646FullpathSym2 file_aATL folders_aATI))
type family Let6989586621679151646FileOrDir file_aATL folders_aATI where
Let6989586621679151646FileOrDir file_aATL folders_aATI = Case_6989586621679151651_aAU4 file_aATL folders_aATI (Let6989586621679151649Scrutinee_6989586621679151609Sym2 file_aATL folders_aATI)
type family Let6989586621679151646AbsOrRel file_aATL folders_aATI where
Let6989586621679151646AbsOrRel file_aATL folders_aATI = Case_6989586621679151657_aAUa file_aATL folders_aATI (Let6989586621679151655Scrutinee_6989586621679151607Sym2 file_aATL folders_aATI)
type family Let6989586621679151646Fullpath file_aATL folders_aATI where
Let6989586621679151646Fullpath file_aATL folders_aATI = Apply (Apply (++@#@$) (Let6989586621679151646TfoldersSym2 file_aATL folders_aATI)) (Apply (Apply (:@#@$) (Let6989586621679151646TfileSym2 file_aATL folders_aATI)) NilSym0)
type family Let6989586621679151646Tfile file_aATL folders_aATI where
Let6989586621679151646Tfile file_aATL folders_aATI = Apply StringtoTextSym0 file_aATL
type family Let6989586621679151646Tfolders file_aATL folders_aATI where
Let6989586621679151646Tfolders file_aATL folders_aATI = Apply (Apply (<$>@#@$) StringtoTextSym0) folders_aATI
type family Lambda_6989586621679151631_aATK folders_aATI file_aATL where
Lambda_6989586621679151631_aATK folders_aATI file_aATL = Apply (Apply (>>@#@$) (Case_6989586621679151636_aATP file_aATL folders_aATI (Let6989586621679151634Scrutinee_6989586621679151603Sym2 file_aATL folders_aATI))) (Apply (Apply ($@#@$) ReturnSym0) (Apply (Apply PPathSym0 (Apply (Apply (Apply PathParamSym0 PosixSym0) (Let6989586621679151646FileOrDirSym2 file_aATL folders_aATI)) (Let6989586621679151646AbsOrRelSym2 file_aATL folders_aATI))) (Let6989586621679151646PathListSym2 file_aATL folders_aATI)))
data Lambda_6989586621679151631Sym0 folders6989586621679151630
where
Lambda_6989586621679151631Sym0KindInference :: SameKind (Apply Lambda_6989586621679151631Sym0 arg_aAUf) (Lambda_6989586621679151631Sym1 arg_aAUf) =>
Lambda_6989586621679151631Sym0 folders6989586621679151630
type instance Apply Lambda_6989586621679151631Sym0 folders6989586621679151630 = Lambda_6989586621679151631Sym1 folders6989586621679151630
instance SuppressUnusedWarnings Lambda_6989586621679151631Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679151631Sym0KindInference) ())
data Lambda_6989586621679151631Sym1 folders6989586621679151630 file6989586621679151633
where
Lambda_6989586621679151631Sym1KindInference :: SameKind (Apply (Lambda_6989586621679151631Sym1 folders6989586621679151630) arg_aAUf) (Lambda_6989586621679151631Sym2 folders6989586621679151630 arg_aAUf) =>
Lambda_6989586621679151631Sym1 folders6989586621679151630 file6989586621679151633
type instance Apply (Lambda_6989586621679151631Sym1 folders6989586621679151630) file6989586621679151633 = Lambda_6989586621679151631_aATK folders6989586621679151630 file6989586621679151633
instance SuppressUnusedWarnings (Lambda_6989586621679151631Sym1 folders6989586621679151630) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679151631Sym1KindInference) ())
type family Lambda_6989586621679151631Sym2 folders6989586621679151630 file6989586621679151633 where
Lambda_6989586621679151631Sym2 folders6989586621679151630 file6989586621679151633 = Lambda_6989586621679151631_aATK folders6989586621679151630 file6989586621679151633
type family Lambda_6989586621679151628_aATH folders_aATI where
Lambda_6989586621679151628_aATH folders_aATI = Apply (Apply (>>=@#@$) (Apply (Apply (<*@#@$) (Apply (Apply (<*@#@$) (Apply ManySym0 UnixPathCharSym0)) (Apply (Apply ($@#@$) ManySym0) (Apply PcharSym0 ' ')))) EofSym0)) (Apply Lambda_6989586621679151631Sym0 folders_aATI)
data Lambda_6989586621679151628Sym0 folders6989586621679151630
where
Lambda_6989586621679151628Sym0KindInference :: SameKind (Apply Lambda_6989586621679151628Sym0 arg_aAUg) (Lambda_6989586621679151628Sym1 arg_aAUg) =>
Lambda_6989586621679151628Sym0 folders6989586621679151630
type instance Apply Lambda_6989586621679151628Sym0 folders6989586621679151630 = Lambda_6989586621679151628_aATH folders6989586621679151630
instance SuppressUnusedWarnings Lambda_6989586621679151628Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679151628Sym0KindInference) ())
type family Lambda_6989586621679151628Sym1 folders6989586621679151630 where
Lambda_6989586621679151628Sym1 folders6989586621679151630 = Lambda_6989586621679151628_aATH folders6989586621679151630
data Let6989586621679151672Scrutinee_6989586621679151597Sym0 file6989586621679151671
where
Let6989586621679151672Scrutinee_6989586621679151597Sym0KindInference :: SameKind (Apply Let6989586621679151672Scrutinee_6989586621679151597Sym0 arg_aAUp) (Let6989586621679151672Scrutinee_6989586621679151597Sym1 arg_aAUp) =>
Let6989586621679151672Scrutinee_6989586621679151597Sym0 file6989586621679151671
type instance Apply Let6989586621679151672Scrutinee_6989586621679151597Sym0 file6989586621679151671 = Let6989586621679151672Scrutinee_6989586621679151597Sym1 file6989586621679151671
instance SuppressUnusedWarnings Let6989586621679151672Scrutinee_6989586621679151597Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679151672Scrutinee_6989586621679151597Sym0KindInference)
())
data Let6989586621679151672Scrutinee_6989586621679151597Sym1 file6989586621679151671 folders6989586621679151668
where
Let6989586621679151672Scrutinee_6989586621679151597Sym1KindInference :: SameKind (Apply (Let6989586621679151672Scrutinee_6989586621679151597Sym1 file6989586621679151671) arg_aAUp) (Let6989586621679151672Scrutinee_6989586621679151597Sym2 file6989586621679151671 arg_aAUp) =>
Let6989586621679151672Scrutinee_6989586621679151597Sym1 file6989586621679151671 folders6989586621679151668
type instance Apply (Let6989586621679151672Scrutinee_6989586621679151597Sym1 file6989586621679151671) folders6989586621679151668 = Let6989586621679151672Scrutinee_6989586621679151597 file6989586621679151671 folders6989586621679151668
instance SuppressUnusedWarnings (Let6989586621679151672Scrutinee_6989586621679151597Sym1 file6989586621679151671) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679151672Scrutinee_6989586621679151597Sym1KindInference)
())
type family Let6989586621679151672Scrutinee_6989586621679151597Sym2 file6989586621679151671 folders6989586621679151668 where
Let6989586621679151672Scrutinee_6989586621679151597Sym2 file6989586621679151671 folders6989586621679151668 = Let6989586621679151672Scrutinee_6989586621679151597 file6989586621679151671 folders6989586621679151668
type family Let6989586621679151672Scrutinee_6989586621679151597 file_aAUn folders_aAUk where
Let6989586621679151672Scrutinee_6989586621679151597 file_aAUn folders_aAUk = Apply (Apply (&&@#@$) (Apply (Apply (==@#@$) folders_aAUk) NilSym0)) (Apply (Apply (==@#@$) file_aAUn) NilSym0)
type family Case_6989586621679151679_aAUw arg_6989586621679151599_aAUu file_aAUn folders_aAUk t_aAUx where
Case_6989586621679151679_aAUw arg_6989586621679151599_aAUu file_aAUn folders_aAUk _ = Apply LeftSym0 "Empty folder"
type family Lambda_6989586621679151676_aAUt file_aAUn folders_aAUk arg_6989586621679151599_aAUu where
Lambda_6989586621679151676_aAUt file_aAUn folders_aAUk arg_6989586621679151599_aAUu = Case_6989586621679151679_aAUw arg_6989586621679151599_aAUu file_aAUn folders_aAUk arg_6989586621679151599_aAUu
data Lambda_6989586621679151676Sym0 file6989586621679151671
where
Lambda_6989586621679151676Sym0KindInference :: SameKind (Apply Lambda_6989586621679151676Sym0 arg_aAUy) (Lambda_6989586621679151676Sym1 arg_aAUy) =>
Lambda_6989586621679151676Sym0 file6989586621679151671
type instance Apply Lambda_6989586621679151676Sym0 file6989586621679151671 = Lambda_6989586621679151676Sym1 file6989586621679151671
instance SuppressUnusedWarnings Lambda_6989586621679151676Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679151676Sym0KindInference) ())
data Lambda_6989586621679151676Sym1 file6989586621679151671 folders6989586621679151668
where
Lambda_6989586621679151676Sym1KindInference :: SameKind (Apply (Lambda_6989586621679151676Sym1 file6989586621679151671) arg_aAUy) (Lambda_6989586621679151676Sym2 file6989586621679151671 arg_aAUy) =>
Lambda_6989586621679151676Sym1 file6989586621679151671 folders6989586621679151668
type instance Apply (Lambda_6989586621679151676Sym1 file6989586621679151671) folders6989586621679151668 = Lambda_6989586621679151676Sym2 file6989586621679151671 folders6989586621679151668
instance SuppressUnusedWarnings (Lambda_6989586621679151676Sym1 file6989586621679151671) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679151676Sym1KindInference) ())
data Lambda_6989586621679151676Sym2 file6989586621679151671 folders6989586621679151668 arg_69895866216791515996989586621679151678
where
Lambda_6989586621679151676Sym2KindInference :: SameKind (Apply (Lambda_6989586621679151676Sym2 file6989586621679151671 folders6989586621679151668) arg_aAUy) (Lambda_6989586621679151676Sym3 file6989586621679151671 folders6989586621679151668 arg_aAUy) =>
Lambda_6989586621679151676Sym2 file6989586621679151671 folders6989586621679151668 arg_69895866216791515996989586621679151678
type instance Apply (Lambda_6989586621679151676Sym2 file6989586621679151671 folders6989586621679151668) arg_69895866216791515996989586621679151678 = Lambda_6989586621679151676_aAUt file6989586621679151671 folders6989586621679151668 arg_69895866216791515996989586621679151678
instance SuppressUnusedWarnings (Lambda_6989586621679151676Sym2 file6989586621679151671 folders6989586621679151668) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679151676Sym2KindInference) ())
type family Lambda_6989586621679151676Sym3 file6989586621679151671 folders6989586621679151668 arg_69895866216791515996989586621679151678 where
Lambda_6989586621679151676Sym3 file6989586621679151671 folders6989586621679151668 arg_69895866216791515996989586621679151678 = Lambda_6989586621679151676_aAUt file6989586621679151671 folders6989586621679151668 arg_69895866216791515996989586621679151678
type family Case_6989586621679151674_aAUr file_aAUn folders_aAUk t_aAUz where
Case_6989586621679151674_aAUr file_aAUn folders_aAUk 'True = Apply PPSym0 (Apply (Apply Lambda_6989586621679151676Sym0 file_aAUn) folders_aAUk) :: PParser ()
Case_6989586621679151674_aAUr file_aAUn folders_aAUk 'False = Apply ReturnSym0 Tuple0Sym0
type family Case_6989586621679151692_aAUJ file_aAUn folders_aAUk t_aAUL where
Case_6989586621679151692_aAUJ file_aAUn folders_aAUk '(_,
y_6989586621679151689_aAUK) = y_6989586621679151689_aAUK
type family Case_6989586621679151697_aAUO file_aAUn folders_aAUk t_aAUQ where
Case_6989586621679151697_aAUO file_aAUn folders_aAUk '(y_6989586621679151687_aAUP,
_) = y_6989586621679151687_aAUP
data Let6989586621679151702Scrutinee_6989586621679151601Sym0 file6989586621679151671
where
Let6989586621679151702Scrutinee_6989586621679151601Sym0KindInference :: SameKind (Apply Let6989586621679151702Scrutinee_6989586621679151601Sym0 arg_aAUT) (Let6989586621679151702Scrutinee_6989586621679151601Sym1 arg_aAUT) =>
Let6989586621679151702Scrutinee_6989586621679151601Sym0 file6989586621679151671
type instance Apply Let6989586621679151702Scrutinee_6989586621679151601Sym0 file6989586621679151671 = Let6989586621679151702Scrutinee_6989586621679151601Sym1 file6989586621679151671
instance SuppressUnusedWarnings Let6989586621679151702Scrutinee_6989586621679151601Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679151702Scrutinee_6989586621679151601Sym0KindInference)
())
data Let6989586621679151702Scrutinee_6989586621679151601Sym1 file6989586621679151671 folders6989586621679151668
where
Let6989586621679151702Scrutinee_6989586621679151601Sym1KindInference :: SameKind (Apply (Let6989586621679151702Scrutinee_6989586621679151601Sym1 file6989586621679151671) arg_aAUT) (Let6989586621679151702Scrutinee_6989586621679151601Sym2 file6989586621679151671 arg_aAUT) =>
Let6989586621679151702Scrutinee_6989586621679151601Sym1 file6989586621679151671 folders6989586621679151668
type instance Apply (Let6989586621679151702Scrutinee_6989586621679151601Sym1 file6989586621679151671) folders6989586621679151668 = Let6989586621679151702Scrutinee_6989586621679151601 file6989586621679151671 folders6989586621679151668
instance SuppressUnusedWarnings (Let6989586621679151702Scrutinee_6989586621679151601Sym1 file6989586621679151671) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679151702Scrutinee_6989586621679151601Sym1KindInference)
())
type family Let6989586621679151702Scrutinee_6989586621679151601Sym2 file6989586621679151671 folders6989586621679151668 where
Let6989586621679151702Scrutinee_6989586621679151601Sym2 file6989586621679151671 folders6989586621679151668 = Let6989586621679151702Scrutinee_6989586621679151601 file6989586621679151671 folders6989586621679151668
type family Let6989586621679151702Scrutinee_6989586621679151601 file_aAUn folders_aAUk where
Let6989586621679151702Scrutinee_6989586621679151601 file_aAUn folders_aAUk = Apply (Apply (==@#@$) file_aAUn) NilSym0
type family Case_6989586621679151704_aAUV file_aAUn folders_aAUk t_aAUW where
Case_6989586621679151704_aAUV file_aAUn folders_aAUk 'True = Apply (Apply Tuple2Sym0 (Apply (Apply (:|@#@$) (Apply HeadSym0 (Let6989586621679151684TfoldersSym2 file_aAUn folders_aAUk))) (Apply TailSym0 (Let6989586621679151684TfoldersSym2 file_aAUn folders_aAUk)))) DirSym0
Case_6989586621679151704_aAUV file_aAUn folders_aAUk 'False = Apply (Apply Tuple2Sym0 (Apply (Apply (:|@#@$) (Apply HeadSym0 (Let6989586621679151684FullpathSym2 file_aAUn folders_aAUk))) (Apply TailSym0 (Let6989586621679151684FullpathSym2 file_aAUn folders_aAUk)))) FileSym0
data Let6989586621679151684FileOrDirSym0 file6989586621679151671
where
Let6989586621679151684FileOrDirSym0KindInference :: SameKind (Apply Let6989586621679151684FileOrDirSym0 arg_aAUH) (Let6989586621679151684FileOrDirSym1 arg_aAUH) =>
Let6989586621679151684FileOrDirSym0 file6989586621679151671
type instance Apply Let6989586621679151684FileOrDirSym0 file6989586621679151671 = Let6989586621679151684FileOrDirSym1 file6989586621679151671
instance SuppressUnusedWarnings Let6989586621679151684FileOrDirSym0 where
suppressUnusedWarnings
= snd (((,) Let6989586621679151684FileOrDirSym0KindInference) ())
data Let6989586621679151684FileOrDirSym1 file6989586621679151671 folders6989586621679151668
where
Let6989586621679151684FileOrDirSym1KindInference :: SameKind (Apply (Let6989586621679151684FileOrDirSym1 file6989586621679151671) arg_aAUH) (Let6989586621679151684FileOrDirSym2 file6989586621679151671 arg_aAUH) =>
Let6989586621679151684FileOrDirSym1 file6989586621679151671 folders6989586621679151668
type instance Apply (Let6989586621679151684FileOrDirSym1 file6989586621679151671) folders6989586621679151668 = Let6989586621679151684FileOrDir file6989586621679151671 folders6989586621679151668
instance SuppressUnusedWarnings (Let6989586621679151684FileOrDirSym1 file6989586621679151671) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151684FileOrDirSym1KindInference) ())
type family Let6989586621679151684FileOrDirSym2 file6989586621679151671 folders6989586621679151668 where
Let6989586621679151684FileOrDirSym2 file6989586621679151671 folders6989586621679151668 = Let6989586621679151684FileOrDir file6989586621679151671 folders6989586621679151668
data Let6989586621679151684PathListSym0 file6989586621679151671
where
Let6989586621679151684PathListSym0KindInference :: SameKind (Apply Let6989586621679151684PathListSym0 arg_aAUM) (Let6989586621679151684PathListSym1 arg_aAUM) =>
Let6989586621679151684PathListSym0 file6989586621679151671
type instance Apply Let6989586621679151684PathListSym0 file6989586621679151671 = Let6989586621679151684PathListSym1 file6989586621679151671
instance SuppressUnusedWarnings Let6989586621679151684PathListSym0 where
suppressUnusedWarnings
= snd (((,) Let6989586621679151684PathListSym0KindInference) ())
data Let6989586621679151684PathListSym1 file6989586621679151671 folders6989586621679151668
where
Let6989586621679151684PathListSym1KindInference :: SameKind (Apply (Let6989586621679151684PathListSym1 file6989586621679151671) arg_aAUM) (Let6989586621679151684PathListSym2 file6989586621679151671 arg_aAUM) =>
Let6989586621679151684PathListSym1 file6989586621679151671 folders6989586621679151668
type instance Apply (Let6989586621679151684PathListSym1 file6989586621679151671) folders6989586621679151668 = Let6989586621679151684PathList file6989586621679151671 folders6989586621679151668
instance SuppressUnusedWarnings (Let6989586621679151684PathListSym1 file6989586621679151671) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151684PathListSym1KindInference) ())
type family Let6989586621679151684PathListSym2 file6989586621679151671 folders6989586621679151668 where
Let6989586621679151684PathListSym2 file6989586621679151671 folders6989586621679151668 = Let6989586621679151684PathList file6989586621679151671 folders6989586621679151668
data Let6989586621679151684X_6989586621679151685Sym0 file6989586621679151671
where
Let6989586621679151684X_6989586621679151685Sym0KindInference :: SameKind (Apply Let6989586621679151684X_6989586621679151685Sym0 arg_aAUR) (Let6989586621679151684X_6989586621679151685Sym1 arg_aAUR) =>
Let6989586621679151684X_6989586621679151685Sym0 file6989586621679151671
type instance Apply Let6989586621679151684X_6989586621679151685Sym0 file6989586621679151671 = Let6989586621679151684X_6989586621679151685Sym1 file6989586621679151671
instance SuppressUnusedWarnings Let6989586621679151684X_6989586621679151685Sym0 where
suppressUnusedWarnings
= snd
(((,) Let6989586621679151684X_6989586621679151685Sym0KindInference)
())
data Let6989586621679151684X_6989586621679151685Sym1 file6989586621679151671 folders6989586621679151668
where
Let6989586621679151684X_6989586621679151685Sym1KindInference :: SameKind (Apply (Let6989586621679151684X_6989586621679151685Sym1 file6989586621679151671) arg_aAUR) (Let6989586621679151684X_6989586621679151685Sym2 file6989586621679151671 arg_aAUR) =>
Let6989586621679151684X_6989586621679151685Sym1 file6989586621679151671 folders6989586621679151668
type instance Apply (Let6989586621679151684X_6989586621679151685Sym1 file6989586621679151671) folders6989586621679151668 = Let6989586621679151684X_6989586621679151685 file6989586621679151671 folders6989586621679151668
instance SuppressUnusedWarnings (Let6989586621679151684X_6989586621679151685Sym1 file6989586621679151671) where
suppressUnusedWarnings
= snd
(((,) Let6989586621679151684X_6989586621679151685Sym1KindInference)
())
type family Let6989586621679151684X_6989586621679151685Sym2 file6989586621679151671 folders6989586621679151668 where
Let6989586621679151684X_6989586621679151685Sym2 file6989586621679151671 folders6989586621679151668 = Let6989586621679151684X_6989586621679151685 file6989586621679151671 folders6989586621679151668
data Let6989586621679151684FullpathSym0 file6989586621679151671
where
Let6989586621679151684FullpathSym0KindInference :: SameKind (Apply Let6989586621679151684FullpathSym0 arg_aAUX) (Let6989586621679151684FullpathSym1 arg_aAUX) =>
Let6989586621679151684FullpathSym0 file6989586621679151671
type instance Apply Let6989586621679151684FullpathSym0 file6989586621679151671 = Let6989586621679151684FullpathSym1 file6989586621679151671
instance SuppressUnusedWarnings Let6989586621679151684FullpathSym0 where
suppressUnusedWarnings
= snd (((,) Let6989586621679151684FullpathSym0KindInference) ())
data Let6989586621679151684FullpathSym1 file6989586621679151671 folders6989586621679151668
where
Let6989586621679151684FullpathSym1KindInference :: SameKind (Apply (Let6989586621679151684FullpathSym1 file6989586621679151671) arg_aAUX) (Let6989586621679151684FullpathSym2 file6989586621679151671 arg_aAUX) =>
Let6989586621679151684FullpathSym1 file6989586621679151671 folders6989586621679151668
type instance Apply (Let6989586621679151684FullpathSym1 file6989586621679151671) folders6989586621679151668 = Let6989586621679151684Fullpath file6989586621679151671 folders6989586621679151668
instance SuppressUnusedWarnings (Let6989586621679151684FullpathSym1 file6989586621679151671) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151684FullpathSym1KindInference) ())
type family Let6989586621679151684FullpathSym2 file6989586621679151671 folders6989586621679151668 where
Let6989586621679151684FullpathSym2 file6989586621679151671 folders6989586621679151668 = Let6989586621679151684Fullpath file6989586621679151671 folders6989586621679151668
data Let6989586621679151684TfileSym0 file6989586621679151671
where
Let6989586621679151684TfileSym0KindInference :: SameKind (Apply Let6989586621679151684TfileSym0 arg_aAUY) (Let6989586621679151684TfileSym1 arg_aAUY) =>
Let6989586621679151684TfileSym0 file6989586621679151671
type instance Apply Let6989586621679151684TfileSym0 file6989586621679151671 = Let6989586621679151684TfileSym1 file6989586621679151671
instance SuppressUnusedWarnings Let6989586621679151684TfileSym0 where
suppressUnusedWarnings
= snd (((,) Let6989586621679151684TfileSym0KindInference) ())
data Let6989586621679151684TfileSym1 file6989586621679151671 folders6989586621679151668
where
Let6989586621679151684TfileSym1KindInference :: SameKind (Apply (Let6989586621679151684TfileSym1 file6989586621679151671) arg_aAUY) (Let6989586621679151684TfileSym2 file6989586621679151671 arg_aAUY) =>
Let6989586621679151684TfileSym1 file6989586621679151671 folders6989586621679151668
type instance Apply (Let6989586621679151684TfileSym1 file6989586621679151671) folders6989586621679151668 = Let6989586621679151684Tfile file6989586621679151671 folders6989586621679151668
instance SuppressUnusedWarnings (Let6989586621679151684TfileSym1 file6989586621679151671) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151684TfileSym1KindInference) ())
type family Let6989586621679151684TfileSym2 file6989586621679151671 folders6989586621679151668 where
Let6989586621679151684TfileSym2 file6989586621679151671 folders6989586621679151668 = Let6989586621679151684Tfile file6989586621679151671 folders6989586621679151668
data Let6989586621679151684TfoldersSym0 file6989586621679151671
where
Let6989586621679151684TfoldersSym0KindInference :: SameKind (Apply Let6989586621679151684TfoldersSym0 arg_aAUZ) (Let6989586621679151684TfoldersSym1 arg_aAUZ) =>
Let6989586621679151684TfoldersSym0 file6989586621679151671
type instance Apply Let6989586621679151684TfoldersSym0 file6989586621679151671 = Let6989586621679151684TfoldersSym1 file6989586621679151671
instance SuppressUnusedWarnings Let6989586621679151684TfoldersSym0 where
suppressUnusedWarnings
= snd (((,) Let6989586621679151684TfoldersSym0KindInference) ())
data Let6989586621679151684TfoldersSym1 file6989586621679151671 folders6989586621679151668
where
Let6989586621679151684TfoldersSym1KindInference :: SameKind (Apply (Let6989586621679151684TfoldersSym1 file6989586621679151671) arg_aAUZ) (Let6989586621679151684TfoldersSym2 file6989586621679151671 arg_aAUZ) =>
Let6989586621679151684TfoldersSym1 file6989586621679151671 folders6989586621679151668
type instance Apply (Let6989586621679151684TfoldersSym1 file6989586621679151671) folders6989586621679151668 = Let6989586621679151684Tfolders file6989586621679151671 folders6989586621679151668
instance SuppressUnusedWarnings (Let6989586621679151684TfoldersSym1 file6989586621679151671) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151684TfoldersSym1KindInference) ())
type family Let6989586621679151684TfoldersSym2 file6989586621679151671 folders6989586621679151668 where
Let6989586621679151684TfoldersSym2 file6989586621679151671 folders6989586621679151668 = Let6989586621679151684Tfolders file6989586621679151671 folders6989586621679151668
type family Let6989586621679151684FileOrDir file_aAUn folders_aAUk where
Let6989586621679151684FileOrDir file_aAUn folders_aAUk = Case_6989586621679151692_aAUJ file_aAUn folders_aAUk (Let6989586621679151684X_6989586621679151685Sym2 file_aAUn folders_aAUk)
type family Let6989586621679151684PathList file_aAUn folders_aAUk where
Let6989586621679151684PathList file_aAUn folders_aAUk = Case_6989586621679151697_aAUO file_aAUn folders_aAUk (Let6989586621679151684X_6989586621679151685Sym2 file_aAUn folders_aAUk)
type family Let6989586621679151684X_6989586621679151685 file_aAUn folders_aAUk where
Let6989586621679151684X_6989586621679151685 file_aAUn folders_aAUk = Case_6989586621679151704_aAUV file_aAUn folders_aAUk (Let6989586621679151702Scrutinee_6989586621679151601Sym2 file_aAUn folders_aAUk)
type family Let6989586621679151684Fullpath file_aAUn folders_aAUk where
Let6989586621679151684Fullpath file_aAUn folders_aAUk = Apply (Apply (++@#@$) (Let6989586621679151684TfoldersSym2 file_aAUn folders_aAUk)) (Apply (Apply (:@#@$) (Let6989586621679151684TfileSym2 file_aAUn folders_aAUk)) NilSym0)
type family Let6989586621679151684Tfile file_aAUn folders_aAUk where
Let6989586621679151684Tfile file_aAUn folders_aAUk = Apply StringtoTextSym0 file_aAUn
type family Let6989586621679151684Tfolders file_aAUn folders_aAUk where
Let6989586621679151684Tfolders file_aAUn folders_aAUk = Apply (Apply (<$>@#@$) StringtoTextSym0) folders_aAUk
type family Lambda_6989586621679151669_aAUm folders_aAUk file_aAUn where
Lambda_6989586621679151669_aAUm folders_aAUk file_aAUn = Apply (Apply (>>@#@$) (Case_6989586621679151674_aAUr file_aAUn folders_aAUk (Let6989586621679151672Scrutinee_6989586621679151597Sym2 file_aAUn folders_aAUk))) (Apply (Apply ($@#@$) ReturnSym0) (Apply (Apply PPathSym0 (Apply (Apply (Apply PathParamSym0 WindowsSym0) (Let6989586621679151684FileOrDirSym2 file_aAUn folders_aAUk)) RelativeSym0)) (Let6989586621679151684PathListSym2 file_aAUn folders_aAUk)))
data Lambda_6989586621679151669Sym0 folders6989586621679151668
where
Lambda_6989586621679151669Sym0KindInference :: SameKind (Apply Lambda_6989586621679151669Sym0 arg_aAV0) (Lambda_6989586621679151669Sym1 arg_aAV0) =>
Lambda_6989586621679151669Sym0 folders6989586621679151668
type instance Apply Lambda_6989586621679151669Sym0 folders6989586621679151668 = Lambda_6989586621679151669Sym1 folders6989586621679151668
instance SuppressUnusedWarnings Lambda_6989586621679151669Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679151669Sym0KindInference) ())
data Lambda_6989586621679151669Sym1 folders6989586621679151668 file6989586621679151671
where
Lambda_6989586621679151669Sym1KindInference :: SameKind (Apply (Lambda_6989586621679151669Sym1 folders6989586621679151668) arg_aAV0) (Lambda_6989586621679151669Sym2 folders6989586621679151668 arg_aAV0) =>
Lambda_6989586621679151669Sym1 folders6989586621679151668 file6989586621679151671
type instance Apply (Lambda_6989586621679151669Sym1 folders6989586621679151668) file6989586621679151671 = Lambda_6989586621679151669_aAUm folders6989586621679151668 file6989586621679151671
instance SuppressUnusedWarnings (Lambda_6989586621679151669Sym1 folders6989586621679151668) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679151669Sym1KindInference) ())
type family Lambda_6989586621679151669Sym2 folders6989586621679151668 file6989586621679151671 where
Lambda_6989586621679151669Sym2 folders6989586621679151668 file6989586621679151671 = Lambda_6989586621679151669_aAUm folders6989586621679151668 file6989586621679151671
type family Lambda_6989586621679151666_aAUj folders_aAUk where
Lambda_6989586621679151666_aAUj folders_aAUk = Apply (Apply (>>=@#@$) (Apply (Apply (<*@#@$) (Apply (Apply (<*@#@$) (Apply ManySym0 WinPathCharSym0)) (Apply (Apply ($@#@$) ManySym0) (Apply PcharSym0 ' ')))) EofSym0)) (Apply Lambda_6989586621679151669Sym0 folders_aAUk)
data Lambda_6989586621679151666Sym0 folders6989586621679151668
where
Lambda_6989586621679151666Sym0KindInference :: SameKind (Apply Lambda_6989586621679151666Sym0 arg_aAV1) (Lambda_6989586621679151666Sym1 arg_aAV1) =>
Lambda_6989586621679151666Sym0 folders6989586621679151668
type instance Apply Lambda_6989586621679151666Sym0 folders6989586621679151668 = Lambda_6989586621679151666_aAUj folders6989586621679151668
instance SuppressUnusedWarnings Lambda_6989586621679151666Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679151666Sym0KindInference) ())
type family Lambda_6989586621679151666Sym1 folders6989586621679151668 where
Lambda_6989586621679151666Sym1 folders6989586621679151668 = Lambda_6989586621679151666_aAUj folders6989586621679151668
type family Case_6989586621679151730_aAVl file_aAVb folders_aAV8 disc_aAV5 t_aAVn where
Case_6989586621679151730_aAVl file_aAVb folders_aAV8 disc_aAV5 '(_,
y_6989586621679151727_aAVm) = y_6989586621679151727_aAVm
type family Case_6989586621679151735_aAVq file_aAVb folders_aAV8 disc_aAV5 t_aAVs where
Case_6989586621679151735_aAVq file_aAVb folders_aAV8 disc_aAV5 '(y_6989586621679151725_aAVr,
_) = y_6989586621679151725_aAVr
data Let6989586621679151740Scrutinee_6989586621679151595Sym0 file6989586621679151721
where
Let6989586621679151740Scrutinee_6989586621679151595Sym0KindInference :: SameKind (Apply Let6989586621679151740Scrutinee_6989586621679151595Sym0 arg_aAVv) (Let6989586621679151740Scrutinee_6989586621679151595Sym1 arg_aAVv) =>
Let6989586621679151740Scrutinee_6989586621679151595Sym0 file6989586621679151721
type instance Apply Let6989586621679151740Scrutinee_6989586621679151595Sym0 file6989586621679151721 = Let6989586621679151740Scrutinee_6989586621679151595Sym1 file6989586621679151721
instance SuppressUnusedWarnings Let6989586621679151740Scrutinee_6989586621679151595Sym0 where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679151740Scrutinee_6989586621679151595Sym0KindInference)
())
data Let6989586621679151740Scrutinee_6989586621679151595Sym1 file6989586621679151721 folders6989586621679151718
where
Let6989586621679151740Scrutinee_6989586621679151595Sym1KindInference :: SameKind (Apply (Let6989586621679151740Scrutinee_6989586621679151595Sym1 file6989586621679151721) arg_aAVv) (Let6989586621679151740Scrutinee_6989586621679151595Sym2 file6989586621679151721 arg_aAVv) =>
Let6989586621679151740Scrutinee_6989586621679151595Sym1 file6989586621679151721 folders6989586621679151718
type instance Apply (Let6989586621679151740Scrutinee_6989586621679151595Sym1 file6989586621679151721) folders6989586621679151718 = Let6989586621679151740Scrutinee_6989586621679151595Sym2 file6989586621679151721 folders6989586621679151718
instance SuppressUnusedWarnings (Let6989586621679151740Scrutinee_6989586621679151595Sym1 file6989586621679151721) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679151740Scrutinee_6989586621679151595Sym1KindInference)
())
data Let6989586621679151740Scrutinee_6989586621679151595Sym2 file6989586621679151721 folders6989586621679151718 disc6989586621679151715
where
Let6989586621679151740Scrutinee_6989586621679151595Sym2KindInference :: SameKind (Apply (Let6989586621679151740Scrutinee_6989586621679151595Sym2 file6989586621679151721 folders6989586621679151718) arg_aAVv) (Let6989586621679151740Scrutinee_6989586621679151595Sym3 file6989586621679151721 folders6989586621679151718 arg_aAVv) =>
Let6989586621679151740Scrutinee_6989586621679151595Sym2 file6989586621679151721 folders6989586621679151718 disc6989586621679151715
type instance Apply (Let6989586621679151740Scrutinee_6989586621679151595Sym2 file6989586621679151721 folders6989586621679151718) disc6989586621679151715 = Let6989586621679151740Scrutinee_6989586621679151595 file6989586621679151721 folders6989586621679151718 disc6989586621679151715
instance SuppressUnusedWarnings (Let6989586621679151740Scrutinee_6989586621679151595Sym2 file6989586621679151721 folders6989586621679151718) where
suppressUnusedWarnings
= snd
(((,)
Let6989586621679151740Scrutinee_6989586621679151595Sym2KindInference)
())
type family Let6989586621679151740Scrutinee_6989586621679151595Sym3 file6989586621679151721 folders6989586621679151718 disc6989586621679151715 where
Let6989586621679151740Scrutinee_6989586621679151595Sym3 file6989586621679151721 folders6989586621679151718 disc6989586621679151715 = Let6989586621679151740Scrutinee_6989586621679151595 file6989586621679151721 folders6989586621679151718 disc6989586621679151715
type family Let6989586621679151740Scrutinee_6989586621679151595 file_aAVb folders_aAV8 disc_aAV5 where
Let6989586621679151740Scrutinee_6989586621679151595 file_aAVb folders_aAV8 disc_aAV5 = Apply (Apply (==@#@$) file_aAVb) NilSym0
type family Case_6989586621679151742_aAVx file_aAVb folders_aAV8 disc_aAV5 t_aAVy where
Case_6989586621679151742_aAVx file_aAVb folders_aAV8 disc_aAV5 'True = Apply (Apply Tuple2Sym0 (Apply (Apply (:|@#@$) (Let6989586621679151722TDiscSym3 file_aAVb folders_aAV8 disc_aAV5)) (Let6989586621679151722TfoldersSym3 file_aAVb folders_aAV8 disc_aAV5))) DirSym0
Case_6989586621679151742_aAVx file_aAVb folders_aAV8 disc_aAV5 'False = Apply (Apply Tuple2Sym0 (Apply (Apply (:|@#@$) (Let6989586621679151722TDiscSym3 file_aAVb folders_aAV8 disc_aAV5)) (Apply (Apply (++@#@$) (Let6989586621679151722TfoldersSym3 file_aAVb folders_aAV8 disc_aAV5)) (Apply (Apply (:@#@$) (Let6989586621679151722TfileSym3 file_aAVb folders_aAV8 disc_aAV5)) NilSym0)))) FileSym0
data Let6989586621679151722FileOrDirSym0 file6989586621679151721
where
Let6989586621679151722FileOrDirSym0KindInference :: SameKind (Apply Let6989586621679151722FileOrDirSym0 arg_aAVj) (Let6989586621679151722FileOrDirSym1 arg_aAVj) =>
Let6989586621679151722FileOrDirSym0 file6989586621679151721
type instance Apply Let6989586621679151722FileOrDirSym0 file6989586621679151721 = Let6989586621679151722FileOrDirSym1 file6989586621679151721
instance SuppressUnusedWarnings Let6989586621679151722FileOrDirSym0 where
suppressUnusedWarnings
= snd (((,) Let6989586621679151722FileOrDirSym0KindInference) ())
data Let6989586621679151722FileOrDirSym1 file6989586621679151721 folders6989586621679151718
where
Let6989586621679151722FileOrDirSym1KindInference :: SameKind (Apply (Let6989586621679151722FileOrDirSym1 file6989586621679151721) arg_aAVj) (Let6989586621679151722FileOrDirSym2 file6989586621679151721 arg_aAVj) =>
Let6989586621679151722FileOrDirSym1 file6989586621679151721 folders6989586621679151718
type instance Apply (Let6989586621679151722FileOrDirSym1 file6989586621679151721) folders6989586621679151718 = Let6989586621679151722FileOrDirSym2 file6989586621679151721 folders6989586621679151718
instance SuppressUnusedWarnings (Let6989586621679151722FileOrDirSym1 file6989586621679151721) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151722FileOrDirSym1KindInference) ())
data Let6989586621679151722FileOrDirSym2 file6989586621679151721 folders6989586621679151718 disc6989586621679151715
where
Let6989586621679151722FileOrDirSym2KindInference :: SameKind (Apply (Let6989586621679151722FileOrDirSym2 file6989586621679151721 folders6989586621679151718) arg_aAVj) (Let6989586621679151722FileOrDirSym3 file6989586621679151721 folders6989586621679151718 arg_aAVj) =>
Let6989586621679151722FileOrDirSym2 file6989586621679151721 folders6989586621679151718 disc6989586621679151715
type instance Apply (Let6989586621679151722FileOrDirSym2 file6989586621679151721 folders6989586621679151718) disc6989586621679151715 = Let6989586621679151722FileOrDir file6989586621679151721 folders6989586621679151718 disc6989586621679151715
instance SuppressUnusedWarnings (Let6989586621679151722FileOrDirSym2 file6989586621679151721 folders6989586621679151718) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151722FileOrDirSym2KindInference) ())
type family Let6989586621679151722FileOrDirSym3 file6989586621679151721 folders6989586621679151718 disc6989586621679151715 where
Let6989586621679151722FileOrDirSym3 file6989586621679151721 folders6989586621679151718 disc6989586621679151715 = Let6989586621679151722FileOrDir file6989586621679151721 folders6989586621679151718 disc6989586621679151715
data Let6989586621679151722PathListSym0 file6989586621679151721
where
Let6989586621679151722PathListSym0KindInference :: SameKind (Apply Let6989586621679151722PathListSym0 arg_aAVo) (Let6989586621679151722PathListSym1 arg_aAVo) =>
Let6989586621679151722PathListSym0 file6989586621679151721
type instance Apply Let6989586621679151722PathListSym0 file6989586621679151721 = Let6989586621679151722PathListSym1 file6989586621679151721
instance SuppressUnusedWarnings Let6989586621679151722PathListSym0 where
suppressUnusedWarnings
= snd (((,) Let6989586621679151722PathListSym0KindInference) ())
data Let6989586621679151722PathListSym1 file6989586621679151721 folders6989586621679151718
where
Let6989586621679151722PathListSym1KindInference :: SameKind (Apply (Let6989586621679151722PathListSym1 file6989586621679151721) arg_aAVo) (Let6989586621679151722PathListSym2 file6989586621679151721 arg_aAVo) =>
Let6989586621679151722PathListSym1 file6989586621679151721 folders6989586621679151718
type instance Apply (Let6989586621679151722PathListSym1 file6989586621679151721) folders6989586621679151718 = Let6989586621679151722PathListSym2 file6989586621679151721 folders6989586621679151718
instance SuppressUnusedWarnings (Let6989586621679151722PathListSym1 file6989586621679151721) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151722PathListSym1KindInference) ())
data Let6989586621679151722PathListSym2 file6989586621679151721 folders6989586621679151718 disc6989586621679151715
where
Let6989586621679151722PathListSym2KindInference :: SameKind (Apply (Let6989586621679151722PathListSym2 file6989586621679151721 folders6989586621679151718) arg_aAVo) (Let6989586621679151722PathListSym3 file6989586621679151721 folders6989586621679151718 arg_aAVo) =>
Let6989586621679151722PathListSym2 file6989586621679151721 folders6989586621679151718 disc6989586621679151715
type instance Apply (Let6989586621679151722PathListSym2 file6989586621679151721 folders6989586621679151718) disc6989586621679151715 = Let6989586621679151722PathList file6989586621679151721 folders6989586621679151718 disc6989586621679151715
instance SuppressUnusedWarnings (Let6989586621679151722PathListSym2 file6989586621679151721 folders6989586621679151718) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151722PathListSym2KindInference) ())
type family Let6989586621679151722PathListSym3 file6989586621679151721 folders6989586621679151718 disc6989586621679151715 where
Let6989586621679151722PathListSym3 file6989586621679151721 folders6989586621679151718 disc6989586621679151715 = Let6989586621679151722PathList file6989586621679151721 folders6989586621679151718 disc6989586621679151715
data Let6989586621679151722X_6989586621679151723Sym0 file6989586621679151721
where
Let6989586621679151722X_6989586621679151723Sym0KindInference :: SameKind (Apply Let6989586621679151722X_6989586621679151723Sym0 arg_aAVt) (Let6989586621679151722X_6989586621679151723Sym1 arg_aAVt) =>
Let6989586621679151722X_6989586621679151723Sym0 file6989586621679151721
type instance Apply Let6989586621679151722X_6989586621679151723Sym0 file6989586621679151721 = Let6989586621679151722X_6989586621679151723Sym1 file6989586621679151721
instance SuppressUnusedWarnings Let6989586621679151722X_6989586621679151723Sym0 where
suppressUnusedWarnings
= snd
(((,) Let6989586621679151722X_6989586621679151723Sym0KindInference)
())
data Let6989586621679151722X_6989586621679151723Sym1 file6989586621679151721 folders6989586621679151718
where
Let6989586621679151722X_6989586621679151723Sym1KindInference :: SameKind (Apply (Let6989586621679151722X_6989586621679151723Sym1 file6989586621679151721) arg_aAVt) (Let6989586621679151722X_6989586621679151723Sym2 file6989586621679151721 arg_aAVt) =>
Let6989586621679151722X_6989586621679151723Sym1 file6989586621679151721 folders6989586621679151718
type instance Apply (Let6989586621679151722X_6989586621679151723Sym1 file6989586621679151721) folders6989586621679151718 = Let6989586621679151722X_6989586621679151723Sym2 file6989586621679151721 folders6989586621679151718
instance SuppressUnusedWarnings (Let6989586621679151722X_6989586621679151723Sym1 file6989586621679151721) where
suppressUnusedWarnings
= snd
(((,) Let6989586621679151722X_6989586621679151723Sym1KindInference)
())
data Let6989586621679151722X_6989586621679151723Sym2 file6989586621679151721 folders6989586621679151718 disc6989586621679151715
where
Let6989586621679151722X_6989586621679151723Sym2KindInference :: SameKind (Apply (Let6989586621679151722X_6989586621679151723Sym2 file6989586621679151721 folders6989586621679151718) arg_aAVt) (Let6989586621679151722X_6989586621679151723Sym3 file6989586621679151721 folders6989586621679151718 arg_aAVt) =>
Let6989586621679151722X_6989586621679151723Sym2 file6989586621679151721 folders6989586621679151718 disc6989586621679151715
type instance Apply (Let6989586621679151722X_6989586621679151723Sym2 file6989586621679151721 folders6989586621679151718) disc6989586621679151715 = Let6989586621679151722X_6989586621679151723 file6989586621679151721 folders6989586621679151718 disc6989586621679151715
instance SuppressUnusedWarnings (Let6989586621679151722X_6989586621679151723Sym2 file6989586621679151721 folders6989586621679151718) where
suppressUnusedWarnings
= snd
(((,) Let6989586621679151722X_6989586621679151723Sym2KindInference)
())
type family Let6989586621679151722X_6989586621679151723Sym3 file6989586621679151721 folders6989586621679151718 disc6989586621679151715 where
Let6989586621679151722X_6989586621679151723Sym3 file6989586621679151721 folders6989586621679151718 disc6989586621679151715 = Let6989586621679151722X_6989586621679151723 file6989586621679151721 folders6989586621679151718 disc6989586621679151715
data Let6989586621679151722TfileSym0 file6989586621679151721
where
Let6989586621679151722TfileSym0KindInference :: SameKind (Apply Let6989586621679151722TfileSym0 arg_aAVz) (Let6989586621679151722TfileSym1 arg_aAVz) =>
Let6989586621679151722TfileSym0 file6989586621679151721
type instance Apply Let6989586621679151722TfileSym0 file6989586621679151721 = Let6989586621679151722TfileSym1 file6989586621679151721
instance SuppressUnusedWarnings Let6989586621679151722TfileSym0 where
suppressUnusedWarnings
= snd (((,) Let6989586621679151722TfileSym0KindInference) ())
data Let6989586621679151722TfileSym1 file6989586621679151721 folders6989586621679151718
where
Let6989586621679151722TfileSym1KindInference :: SameKind (Apply (Let6989586621679151722TfileSym1 file6989586621679151721) arg_aAVz) (Let6989586621679151722TfileSym2 file6989586621679151721 arg_aAVz) =>
Let6989586621679151722TfileSym1 file6989586621679151721 folders6989586621679151718
type instance Apply (Let6989586621679151722TfileSym1 file6989586621679151721) folders6989586621679151718 = Let6989586621679151722TfileSym2 file6989586621679151721 folders6989586621679151718
instance SuppressUnusedWarnings (Let6989586621679151722TfileSym1 file6989586621679151721) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151722TfileSym1KindInference) ())
data Let6989586621679151722TfileSym2 file6989586621679151721 folders6989586621679151718 disc6989586621679151715
where
Let6989586621679151722TfileSym2KindInference :: SameKind (Apply (Let6989586621679151722TfileSym2 file6989586621679151721 folders6989586621679151718) arg_aAVz) (Let6989586621679151722TfileSym3 file6989586621679151721 folders6989586621679151718 arg_aAVz) =>
Let6989586621679151722TfileSym2 file6989586621679151721 folders6989586621679151718 disc6989586621679151715
type instance Apply (Let6989586621679151722TfileSym2 file6989586621679151721 folders6989586621679151718) disc6989586621679151715 = Let6989586621679151722Tfile file6989586621679151721 folders6989586621679151718 disc6989586621679151715
instance SuppressUnusedWarnings (Let6989586621679151722TfileSym2 file6989586621679151721 folders6989586621679151718) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151722TfileSym2KindInference) ())
type family Let6989586621679151722TfileSym3 file6989586621679151721 folders6989586621679151718 disc6989586621679151715 where
Let6989586621679151722TfileSym3 file6989586621679151721 folders6989586621679151718 disc6989586621679151715 = Let6989586621679151722Tfile file6989586621679151721 folders6989586621679151718 disc6989586621679151715
data Let6989586621679151722TfoldersSym0 file6989586621679151721
where
Let6989586621679151722TfoldersSym0KindInference :: SameKind (Apply Let6989586621679151722TfoldersSym0 arg_aAVA) (Let6989586621679151722TfoldersSym1 arg_aAVA) =>
Let6989586621679151722TfoldersSym0 file6989586621679151721
type instance Apply Let6989586621679151722TfoldersSym0 file6989586621679151721 = Let6989586621679151722TfoldersSym1 file6989586621679151721
instance SuppressUnusedWarnings Let6989586621679151722TfoldersSym0 where
suppressUnusedWarnings
= snd (((,) Let6989586621679151722TfoldersSym0KindInference) ())
data Let6989586621679151722TfoldersSym1 file6989586621679151721 folders6989586621679151718
where
Let6989586621679151722TfoldersSym1KindInference :: SameKind (Apply (Let6989586621679151722TfoldersSym1 file6989586621679151721) arg_aAVA) (Let6989586621679151722TfoldersSym2 file6989586621679151721 arg_aAVA) =>
Let6989586621679151722TfoldersSym1 file6989586621679151721 folders6989586621679151718
type instance Apply (Let6989586621679151722TfoldersSym1 file6989586621679151721) folders6989586621679151718 = Let6989586621679151722TfoldersSym2 file6989586621679151721 folders6989586621679151718
instance SuppressUnusedWarnings (Let6989586621679151722TfoldersSym1 file6989586621679151721) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151722TfoldersSym1KindInference) ())
data Let6989586621679151722TfoldersSym2 file6989586621679151721 folders6989586621679151718 disc6989586621679151715
where
Let6989586621679151722TfoldersSym2KindInference :: SameKind (Apply (Let6989586621679151722TfoldersSym2 file6989586621679151721 folders6989586621679151718) arg_aAVA) (Let6989586621679151722TfoldersSym3 file6989586621679151721 folders6989586621679151718 arg_aAVA) =>
Let6989586621679151722TfoldersSym2 file6989586621679151721 folders6989586621679151718 disc6989586621679151715
type instance Apply (Let6989586621679151722TfoldersSym2 file6989586621679151721 folders6989586621679151718) disc6989586621679151715 = Let6989586621679151722Tfolders file6989586621679151721 folders6989586621679151718 disc6989586621679151715
instance SuppressUnusedWarnings (Let6989586621679151722TfoldersSym2 file6989586621679151721 folders6989586621679151718) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151722TfoldersSym2KindInference) ())
type family Let6989586621679151722TfoldersSym3 file6989586621679151721 folders6989586621679151718 disc6989586621679151715 where
Let6989586621679151722TfoldersSym3 file6989586621679151721 folders6989586621679151718 disc6989586621679151715 = Let6989586621679151722Tfolders file6989586621679151721 folders6989586621679151718 disc6989586621679151715
data Let6989586621679151722TDiscSym0 file6989586621679151721
where
Let6989586621679151722TDiscSym0KindInference :: SameKind (Apply Let6989586621679151722TDiscSym0 arg_aAVB) (Let6989586621679151722TDiscSym1 arg_aAVB) =>
Let6989586621679151722TDiscSym0 file6989586621679151721
type instance Apply Let6989586621679151722TDiscSym0 file6989586621679151721 = Let6989586621679151722TDiscSym1 file6989586621679151721
instance SuppressUnusedWarnings Let6989586621679151722TDiscSym0 where
suppressUnusedWarnings
= snd (((,) Let6989586621679151722TDiscSym0KindInference) ())
data Let6989586621679151722TDiscSym1 file6989586621679151721 folders6989586621679151718
where
Let6989586621679151722TDiscSym1KindInference :: SameKind (Apply (Let6989586621679151722TDiscSym1 file6989586621679151721) arg_aAVB) (Let6989586621679151722TDiscSym2 file6989586621679151721 arg_aAVB) =>
Let6989586621679151722TDiscSym1 file6989586621679151721 folders6989586621679151718
type instance Apply (Let6989586621679151722TDiscSym1 file6989586621679151721) folders6989586621679151718 = Let6989586621679151722TDiscSym2 file6989586621679151721 folders6989586621679151718
instance SuppressUnusedWarnings (Let6989586621679151722TDiscSym1 file6989586621679151721) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151722TDiscSym1KindInference) ())
data Let6989586621679151722TDiscSym2 file6989586621679151721 folders6989586621679151718 disc6989586621679151715
where
Let6989586621679151722TDiscSym2KindInference :: SameKind (Apply (Let6989586621679151722TDiscSym2 file6989586621679151721 folders6989586621679151718) arg_aAVB) (Let6989586621679151722TDiscSym3 file6989586621679151721 folders6989586621679151718 arg_aAVB) =>
Let6989586621679151722TDiscSym2 file6989586621679151721 folders6989586621679151718 disc6989586621679151715
type instance Apply (Let6989586621679151722TDiscSym2 file6989586621679151721 folders6989586621679151718) disc6989586621679151715 = Let6989586621679151722TDisc file6989586621679151721 folders6989586621679151718 disc6989586621679151715
instance SuppressUnusedWarnings (Let6989586621679151722TDiscSym2 file6989586621679151721 folders6989586621679151718) where
suppressUnusedWarnings
= snd (((,) Let6989586621679151722TDiscSym2KindInference) ())
type family Let6989586621679151722TDiscSym3 file6989586621679151721 folders6989586621679151718 disc6989586621679151715 where
Let6989586621679151722TDiscSym3 file6989586621679151721 folders6989586621679151718 disc6989586621679151715 = Let6989586621679151722TDisc file6989586621679151721 folders6989586621679151718 disc6989586621679151715
type family Let6989586621679151722FileOrDir file_aAVb folders_aAV8 disc_aAV5 where
Let6989586621679151722FileOrDir file_aAVb folders_aAV8 disc_aAV5 = Case_6989586621679151730_aAVl file_aAVb folders_aAV8 disc_aAV5 (Let6989586621679151722X_6989586621679151723Sym3 file_aAVb folders_aAV8 disc_aAV5)
type family Let6989586621679151722PathList file_aAVb folders_aAV8 disc_aAV5 where
Let6989586621679151722PathList file_aAVb folders_aAV8 disc_aAV5 = Case_6989586621679151735_aAVq file_aAVb folders_aAV8 disc_aAV5 (Let6989586621679151722X_6989586621679151723Sym3 file_aAVb folders_aAV8 disc_aAV5)
type family Let6989586621679151722X_6989586621679151723 file_aAVb folders_aAV8 disc_aAV5 where
Let6989586621679151722X_6989586621679151723 file_aAVb folders_aAV8 disc_aAV5 = Case_6989586621679151742_aAVx file_aAVb folders_aAV8 disc_aAV5 (Let6989586621679151740Scrutinee_6989586621679151595Sym3 file_aAVb folders_aAV8 disc_aAV5)
type family Let6989586621679151722Tfile file_aAVb folders_aAV8 disc_aAV5 where
Let6989586621679151722Tfile file_aAVb folders_aAV8 disc_aAV5 = Apply StringtoTextSym0 file_aAVb
type family Let6989586621679151722Tfolders file_aAVb folders_aAV8 disc_aAV5 where
Let6989586621679151722Tfolders file_aAVb folders_aAV8 disc_aAV5 = Apply (Apply (<$>@#@$) StringtoTextSym0) folders_aAV8
type family Let6989586621679151722TDisc file_aAVb folders_aAV8 disc_aAV5 where
Let6989586621679151722TDisc file_aAVb folders_aAV8 disc_aAV5 = Apply CharToTextSym0 disc_aAV5
type family Lambda_6989586621679151719_aAVa folders_aAV8 disc_aAV5 file_aAVb where
Lambda_6989586621679151719_aAVa folders_aAV8 disc_aAV5 file_aAVb = Apply (Apply ($@#@$) ReturnSym0) (Apply (Apply PPathSym0 (Apply (Apply (Apply PathParamSym0 WindowsSym0) (Let6989586621679151722FileOrDirSym3 file_aAVb folders_aAV8 disc_aAV5)) AbsoluteSym0)) (Let6989586621679151722PathListSym3 file_aAVb folders_aAV8 disc_aAV5))
data Lambda_6989586621679151719Sym0 folders6989586621679151718
where
Lambda_6989586621679151719Sym0KindInference :: SameKind (Apply Lambda_6989586621679151719Sym0 arg_aAVC) (Lambda_6989586621679151719Sym1 arg_aAVC) =>
Lambda_6989586621679151719Sym0 folders6989586621679151718
type instance Apply Lambda_6989586621679151719Sym0 folders6989586621679151718 = Lambda_6989586621679151719Sym1 folders6989586621679151718
instance SuppressUnusedWarnings Lambda_6989586621679151719Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679151719Sym0KindInference) ())
data Lambda_6989586621679151719Sym1 folders6989586621679151718 disc6989586621679151715
where
Lambda_6989586621679151719Sym1KindInference :: SameKind (Apply (Lambda_6989586621679151719Sym1 folders6989586621679151718) arg_aAVC) (Lambda_6989586621679151719Sym2 folders6989586621679151718 arg_aAVC) =>
Lambda_6989586621679151719Sym1 folders6989586621679151718 disc6989586621679151715
type instance Apply (Lambda_6989586621679151719Sym1 folders6989586621679151718) disc6989586621679151715 = Lambda_6989586621679151719Sym2 folders6989586621679151718 disc6989586621679151715
instance SuppressUnusedWarnings (Lambda_6989586621679151719Sym1 folders6989586621679151718) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679151719Sym1KindInference) ())
data Lambda_6989586621679151719Sym2 folders6989586621679151718 disc6989586621679151715 file6989586621679151721
where
Lambda_6989586621679151719Sym2KindInference :: SameKind (Apply (Lambda_6989586621679151719Sym2 folders6989586621679151718 disc6989586621679151715) arg_aAVC) (Lambda_6989586621679151719Sym3 folders6989586621679151718 disc6989586621679151715 arg_aAVC) =>
Lambda_6989586621679151719Sym2 folders6989586621679151718 disc6989586621679151715 file6989586621679151721
type instance Apply (Lambda_6989586621679151719Sym2 folders6989586621679151718 disc6989586621679151715) file6989586621679151721 = Lambda_6989586621679151719_aAVa folders6989586621679151718 disc6989586621679151715 file6989586621679151721
instance SuppressUnusedWarnings (Lambda_6989586621679151719Sym2 folders6989586621679151718 disc6989586621679151715) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679151719Sym2KindInference) ())
type family Lambda_6989586621679151719Sym3 folders6989586621679151718 disc6989586621679151715 file6989586621679151721 where
Lambda_6989586621679151719Sym3 folders6989586621679151718 disc6989586621679151715 file6989586621679151721 = Lambda_6989586621679151719_aAVa folders6989586621679151718 disc6989586621679151715 file6989586621679151721
type family Lambda_6989586621679151716_aAV7 disc_aAV5 folders_aAV8 where
Lambda_6989586621679151716_aAV7 disc_aAV5 folders_aAV8 = Apply (Apply (>>=@#@$) (Apply (Apply (<*@#@$) (Apply (Apply (<*@#@$) (Apply ManySym0 WinPathCharSym0)) (Apply (Apply ($@#@$) ManySym0) (Apply PcharSym0 ' ')))) EofSym0)) (Apply (Apply Lambda_6989586621679151719Sym0 folders_aAV8) disc_aAV5)
data Lambda_6989586621679151716Sym0 disc6989586621679151715
where
Lambda_6989586621679151716Sym0KindInference :: SameKind (Apply Lambda_6989586621679151716Sym0 arg_aAVD) (Lambda_6989586621679151716Sym1 arg_aAVD) =>
Lambda_6989586621679151716Sym0 disc6989586621679151715
type instance Apply Lambda_6989586621679151716Sym0 disc6989586621679151715 = Lambda_6989586621679151716Sym1 disc6989586621679151715
instance SuppressUnusedWarnings Lambda_6989586621679151716Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679151716Sym0KindInference) ())
data Lambda_6989586621679151716Sym1 disc6989586621679151715 folders6989586621679151718
where
Lambda_6989586621679151716Sym1KindInference :: SameKind (Apply (Lambda_6989586621679151716Sym1 disc6989586621679151715) arg_aAVD) (Lambda_6989586621679151716Sym2 disc6989586621679151715 arg_aAVD) =>
Lambda_6989586621679151716Sym1 disc6989586621679151715 folders6989586621679151718
type instance Apply (Lambda_6989586621679151716Sym1 disc6989586621679151715) folders6989586621679151718 = Lambda_6989586621679151716_aAV7 disc6989586621679151715 folders6989586621679151718
instance SuppressUnusedWarnings (Lambda_6989586621679151716Sym1 disc6989586621679151715) where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679151716Sym1KindInference) ())
type family Lambda_6989586621679151716Sym2 disc6989586621679151715 folders6989586621679151718 where
Lambda_6989586621679151716Sym2 disc6989586621679151715 folders6989586621679151718 = Lambda_6989586621679151716_aAV7 disc6989586621679151715 folders6989586621679151718
type family Lambda_6989586621679151713_aAV4 disc_aAV5 where
Lambda_6989586621679151713_aAV4 disc_aAV5 = Apply (Apply (>>@#@$) (Apply (Apply (>>@#@$) (Apply PcharSym0 ':')) (Apply PcharSym0 '\\'))) (Apply (Apply (>>=@#@$) (Apply (Apply ($@#@$) ManySym0) (Apply (Apply ManyTillSym0 WinPathCharSym0) (Apply PcharSym0 '\\')))) (Apply Lambda_6989586621679151716Sym0 disc_aAV5))
data Lambda_6989586621679151713Sym0 disc6989586621679151715
where
Lambda_6989586621679151713Sym0KindInference :: SameKind (Apply Lambda_6989586621679151713Sym0 arg_aAVE) (Lambda_6989586621679151713Sym1 arg_aAVE) =>
Lambda_6989586621679151713Sym0 disc6989586621679151715
type instance Apply Lambda_6989586621679151713Sym0 disc6989586621679151715 = Lambda_6989586621679151713_aAV4 disc6989586621679151715
instance SuppressUnusedWarnings Lambda_6989586621679151713Sym0 where
suppressUnusedWarnings
= snd (((,) Lambda_6989586621679151713Sym0KindInference) ())
type family Lambda_6989586621679151713Sym1 disc6989586621679151715 where
Lambda_6989586621679151713Sym1 disc6989586621679151715 = Lambda_6989586621679151713_aAV4 disc6989586621679151715
type PathParserSym0 :: PParser PPath
type family PathParserSym0 :: PParser PPath where
PathParserSym0 = PathParser
type UnixParserSym0 :: PParser PPath
type family UnixParserSym0 :: PParser PPath where
UnixParserSym0 = UnixParser
type WinRelParserSym0 :: PParser PPath
type family WinRelParserSym0 :: PParser PPath where
WinRelParserSym0 = WinRelParser
type WinAbsParserSym0 :: PParser PPath
type family WinAbsParserSym0 :: PParser PPath where
WinAbsParserSym0 = WinAbsParser
type PathParser :: PParser PPath
type family PathParser :: PParser PPath where
PathParser = Apply (Apply (<|>@#@$) (Apply (Apply (<|>@#@$) WinAbsParserSym0) WinRelParserSym0)) UnixParserSym0
type UnixParser :: PParser PPath
type family UnixParser :: PParser PPath where
UnixParser = Apply (Apply (>>=@#@$) (Apply (Apply (<|>@#@$) Let6989586621679151625AbsParserSym0) Let6989586621679151625RelParserSym0)) Lambda_6989586621679151628Sym0
type WinRelParser :: PParser PPath
type family WinRelParser :: PParser PPath where
WinRelParser = Apply (Apply (>>=@#@$) (Apply (Apply (<|>@#@$) (Apply (Apply ($@#@$) SomeSym0) (Apply (Apply (<*@#@$) (Apply PstringSym0 (Apply (Apply (:@#@$) '.') (Apply (Apply (:@#@$) '.') NilSym0)))) EofSym0))) (Apply (Apply ($@#@$) ManySym0) (Apply (Apply ManyTillSym0 WinPathCharSym0) (Apply PcharSym0 '\\'))))) Lambda_6989586621679151666Sym0
type WinAbsParser :: PParser PPath
type family WinAbsParser :: PParser PPath where
WinAbsParser = Apply (Apply (>>=@#@$) UpCaseCharSym0) Lambda_6989586621679151713Sym0
mkPath :: forall (s :: Symbol). ((SingI (Report (ParseFinal (SymbolToString s) PathParser)))) => Path
mkPath = runParserFinal @PathParser @s
Raw
Main.hs
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeApplications #-}
module Main where
import ExamplesPath
main = print (runParserFinal @PathParser @"test\\stack\\test\\rrrrr\\gggg\\bbb\\ddd\\vvvv\\nnnn\\nnnn\\yyyyy\\ddddd\\jjjjj\\mmmm\\eeee\\mmmm\\yyyyyy\\aaaaaaaaaa")
Raw
timings-dump.txt
*** initializing unit database:
initializing unit database: alloc=4542680 time=24.066
*** Chasing dependencies:
Chasing dependencies: alloc=21124688 time=28.829
[1 of 3] Compiling ExamplesPath ( ExamplesPath.hs, ExamplesPath.o, ExamplesPath.dyn_o )
*** Parser [ExamplesPath]:
Parser [ExamplesPath]: alloc=1075992920 time=993.540
*** Renamer/typechecker [ExamplesPath]:
Renamer/typechecker [ExamplesPath]: alloc=7651986112 time=7116.557
*** Desugar [ExamplesPath]:
Desugar [ExamplesPath]: alloc=490515232 time=433.731
*** Simplifier [ExamplesPath]:
Simplifier [ExamplesPath]: alloc=3981214832 time=3665.366
*** CoreTidy [ExamplesPath]:
CoreTidy [ExamplesPath]: alloc=295922840 time=430.606
*** CorePrep [ExamplesPath]:
CorePrep [ExamplesPath]: alloc=178648816 time=154.641
*** CoreToStg [ExamplesPath]:
CoreToStg [ExamplesPath]: alloc=249844320 time=224.985
*** CodeGen [ExamplesPath]:
CodeGen [ExamplesPath]: alloc=5667274448 time=4021.984
*** WriteIface [./ExamplesPath.hi]:
WriteIface [./ExamplesPath.hi]: alloc=152194416 time=95.249
*** systool:as:
systool:as: alloc=111080 time=0.870
*** CorePrep [ExamplesPath]:
CorePrep [ExamplesPath]: alloc=170996224 time=148.758
*** CoreToStg [ExamplesPath]:
CoreToStg [ExamplesPath]: alloc=249648280 time=349.501
*** CodeGen [ExamplesPath]:
CodeGen [ExamplesPath]: alloc=5883101744 time=4302.553
*** WriteIface [./ExamplesPath.dyn_hi]:
WriteIface [./ExamplesPath.dyn_hi]: alloc=152176592 time=93.627
*** systool:as:
systool:as: alloc=110944 time=0.738
[2 of 3] Compiling Main ( Main.hs, Main.o )
*** Parser [Main]:
Parser [Main]: alloc=641384 time=0.533
*** Renamer/typechecker [Main]:
Renamer/typechecker [Main]: alloc=5560846040 time=6616.243
*** Desugar [Main]:
Desugar [Main]: alloc=234112 time=0.345
*** Simplifier [Main]:
Simplifier [Main]: alloc=25279459560 time=17854.837
*** CoreTidy [Main]:
CoreTidy [Main]: alloc=726436856 time=556.322
*** CorePrep [Main]:
CorePrep [Main]: alloc=809928 time=1.147
*** CoreToStg [Main]:
CoreToStg [Main]: alloc=361815872 time=519.098
*** CodeGen [Main]:
CodeGen [Main]: alloc=64631808 time=47.714
*** WriteIface [Main.hi]:
WriteIface [Main.hi]: alloc=1172624 time=0.216
*** systool:as:
systool:as: alloc=107712 time=0.322
[3 of 3] Linking Main
*** systool:cc:
systool:cc: alloc=189936 time=0.820
*** systool:cc:
systool:cc: alloc=150896 time=0.379
*** systool:linker:
systool:linker: alloc=10227664 time=6.582
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment