Copyright | (C) 2018 Ryan Scott |
---|---|
License | BSD-style (see LICENSE) |
Maintainer | Ryan Scott |
Stability | experimental |
Portability | non-portable |
Safe Haskell | None |
Language | Haskell2010 |
Defines the promoted and singled versions of the MonadZip
type class.
Synopsis
- class PMonadZip (m :: Type -> Type) where
- class SMonad m => SMonadZip (m :: Type -> Type) where
- sMzip :: forall a b (t :: m a) (t :: m b). Sing t -> Sing t -> Sing (Apply (Apply MzipSym0 t) t :: m (a, b))
- sMzipWith :: forall a b c (t :: (~>) a ((~>) b c)) (t :: m a) (t :: m b). Sing t -> Sing t -> Sing t -> Sing (Apply (Apply (Apply MzipWithSym0 t) t) t :: m c)
- sMunzip :: forall a b (t :: m (a, b)). Sing t -> Sing (Apply MunzipSym0 t :: (m a, m b))
- data MzipSym0 :: forall m6989586621681131419 a6989586621681131420 b6989586621681131421. (~>) (m6989586621681131419 a6989586621681131420) ((~>) (m6989586621681131419 b6989586621681131421) (m6989586621681131419 (a6989586621681131420, b6989586621681131421)))
- data MzipSym1 (arg6989586621681131495 :: m6989586621681131419 a6989586621681131420) :: forall b6989586621681131421. (~>) (m6989586621681131419 b6989586621681131421) (m6989586621681131419 (a6989586621681131420, b6989586621681131421))
- type MzipSym2 (arg6989586621681131495 :: m6989586621681131419 a6989586621681131420) (arg6989586621681131496 :: m6989586621681131419 b6989586621681131421) = Mzip arg6989586621681131495 arg6989586621681131496
- data MzipWithSym0 :: forall a6989586621681131422 b6989586621681131423 c6989586621681131424 m6989586621681131419. (~>) ((~>) a6989586621681131422 ((~>) b6989586621681131423 c6989586621681131424)) ((~>) (m6989586621681131419 a6989586621681131422) ((~>) (m6989586621681131419 b6989586621681131423) (m6989586621681131419 c6989586621681131424)))
- data MzipWithSym1 (arg6989586621681131499 :: (~>) a6989586621681131422 ((~>) b6989586621681131423 c6989586621681131424)) :: forall m6989586621681131419. (~>) (m6989586621681131419 a6989586621681131422) ((~>) (m6989586621681131419 b6989586621681131423) (m6989586621681131419 c6989586621681131424))
- data MzipWithSym2 (arg6989586621681131499 :: (~>) a6989586621681131422 ((~>) b6989586621681131423 c6989586621681131424)) (arg6989586621681131500 :: m6989586621681131419 a6989586621681131422) :: (~>) (m6989586621681131419 b6989586621681131423) (m6989586621681131419 c6989586621681131424)
- type MzipWithSym3 (arg6989586621681131499 :: (~>) a6989586621681131422 ((~>) b6989586621681131423 c6989586621681131424)) (arg6989586621681131500 :: m6989586621681131419 a6989586621681131422) (arg6989586621681131501 :: m6989586621681131419 b6989586621681131423) = MzipWith arg6989586621681131499 arg6989586621681131500 arg6989586621681131501
- data MunzipSym0 :: forall m6989586621681131419 a6989586621681131425 b6989586621681131426. (~>) (m6989586621681131419 (a6989586621681131425, b6989586621681131426)) (m6989586621681131419 a6989586621681131425, m6989586621681131419 b6989586621681131426)
- type MunzipSym1 (arg6989586621681131505 :: m6989586621681131419 (a6989586621681131425, b6989586621681131426)) = Munzip arg6989586621681131505
Documentation
class PMonadZip (m :: Type -> Type) Source #
type Mzip (arg :: m a) (arg :: m b) :: m (a, b) Source #
type MzipWith (arg :: (~>) a ((~>) b c)) (arg :: m a) (arg :: m b) :: m c Source #
class SMonad m => SMonadZip (m :: Type -> Type) where Source #
Nothing
sMzip :: forall a b (t :: m a) (t :: m b). Sing t -> Sing t -> Sing (Apply (Apply MzipSym0 t) t :: m (a, b)) Source #
default sMzip :: forall a b (t :: m a) (t :: m b). (Apply (Apply MzipSym0 t) t :: m (a, b)) ~ Apply (Apply Mzip_6989586621681131509Sym0 t) t => Sing t -> Sing t -> Sing (Apply (Apply MzipSym0 t) t :: m (a, b)) Source #
sMzipWith :: forall a b c (t :: (~>) a ((~>) b c)) (t :: m a) (t :: m b). Sing t -> Sing t -> Sing t -> Sing (Apply (Apply (Apply MzipWithSym0 t) t) t :: m c) Source #
default sMzipWith :: forall a b c (t :: (~>) a ((~>) b c)) (t :: m a) (t :: m b). (Apply (Apply (Apply MzipWithSym0 t) t) t :: m c) ~ Apply (Apply (Apply MzipWith_6989586621681131526Sym0 t) t) t => Sing t -> Sing t -> Sing t -> Sing (Apply (Apply (Apply MzipWithSym0 t) t) t :: m c) Source #
sMunzip :: forall a b (t :: m (a, b)). Sing t -> Sing (Apply MunzipSym0 t :: (m a, m b)) Source #
default sMunzip :: forall a b (t :: m (a, b)). (Apply MunzipSym0 t :: (m a, m b)) ~ Apply Munzip_6989586621681131541Sym0 t => Sing t -> Sing (Apply MunzipSym0 t :: (m a, m b)) Source #
Instances
Defunctionalization symbols
data MzipSym0 :: forall m6989586621681131419 a6989586621681131420 b6989586621681131421. (~>) (m6989586621681131419 a6989586621681131420) ((~>) (m6989586621681131419 b6989586621681131421) (m6989586621681131419 (a6989586621681131420, b6989586621681131421))) Source #
Instances
SMonadZip m => SingI (MzipSym0 :: TyFun (m a) (m b ~> m (a, b)) -> Type) Source # | |
SuppressUnusedWarnings (MzipSym0 :: TyFun (m6989586621681131419 a6989586621681131420) (m6989586621681131419 b6989586621681131421 ~> m6989586621681131419 (a6989586621681131420, b6989586621681131421)) -> Type) Source # | |
Defined in Data.Singletons.Prelude.Monad.Zip suppressUnusedWarnings :: () Source # | |
type Apply (MzipSym0 :: TyFun (m6989586621681131419 a6989586621681131420) (m6989586621681131419 b6989586621681131421 ~> m6989586621681131419 (a6989586621681131420, b6989586621681131421)) -> Type) (arg6989586621681131495 :: m6989586621681131419 a6989586621681131420) Source # | |
Defined in Data.Singletons.Prelude.Monad.Zip type Apply (MzipSym0 :: TyFun (m6989586621681131419 a6989586621681131420) (m6989586621681131419 b6989586621681131421 ~> m6989586621681131419 (a6989586621681131420, b6989586621681131421)) -> Type) (arg6989586621681131495 :: m6989586621681131419 a6989586621681131420) = MzipSym1 arg6989586621681131495 b6989586621681131421 :: TyFun (m6989586621681131419 b6989586621681131421) (m6989586621681131419 (a6989586621681131420, b6989586621681131421)) -> Type |
data MzipSym1 (arg6989586621681131495 :: m6989586621681131419 a6989586621681131420) :: forall b6989586621681131421. (~>) (m6989586621681131419 b6989586621681131421) (m6989586621681131419 (a6989586621681131420, b6989586621681131421)) Source #
Instances
(SMonadZip m, SingI d) => SingI (MzipSym1 d b :: TyFun (m b) (m (a, b)) -> Type) Source # | |
SuppressUnusedWarnings (MzipSym1 arg6989586621681131495 b6989586621681131421 :: TyFun (m6989586621681131419 b6989586621681131421) (m6989586621681131419 (a6989586621681131420, b6989586621681131421)) -> Type) Source # | |
Defined in Data.Singletons.Prelude.Monad.Zip suppressUnusedWarnings :: () Source # | |
type Apply (MzipSym1 arg6989586621681131495 b :: TyFun (m b) (m (a, b)) -> Type) (arg6989586621681131496 :: m b) Source # | |
type MzipSym2 (arg6989586621681131495 :: m6989586621681131419 a6989586621681131420) (arg6989586621681131496 :: m6989586621681131419 b6989586621681131421) = Mzip arg6989586621681131495 arg6989586621681131496 Source #
data MzipWithSym0 :: forall a6989586621681131422 b6989586621681131423 c6989586621681131424 m6989586621681131419. (~>) ((~>) a6989586621681131422 ((~>) b6989586621681131423 c6989586621681131424)) ((~>) (m6989586621681131419 a6989586621681131422) ((~>) (m6989586621681131419 b6989586621681131423) (m6989586621681131419 c6989586621681131424))) Source #
Instances
SMonadZip m => SingI (MzipWithSym0 :: TyFun (a ~> (b ~> c)) (m a ~> (m b ~> m c)) -> Type) Source # | |
Defined in Data.Singletons.Prelude.Monad.Zip sing :: Sing MzipWithSym0 Source # | |
SuppressUnusedWarnings (MzipWithSym0 :: TyFun (a6989586621681131422 ~> (b6989586621681131423 ~> c6989586621681131424)) (m6989586621681131419 a6989586621681131422 ~> (m6989586621681131419 b6989586621681131423 ~> m6989586621681131419 c6989586621681131424)) -> Type) Source # | |
Defined in Data.Singletons.Prelude.Monad.Zip suppressUnusedWarnings :: () Source # | |
type Apply (MzipWithSym0 :: TyFun (a6989586621681131422 ~> (b6989586621681131423 ~> c6989586621681131424)) (m6989586621681131419 a6989586621681131422 ~> (m6989586621681131419 b6989586621681131423 ~> m6989586621681131419 c6989586621681131424)) -> Type) (arg6989586621681131499 :: a6989586621681131422 ~> (b6989586621681131423 ~> c6989586621681131424)) Source # | |
Defined in Data.Singletons.Prelude.Monad.Zip type Apply (MzipWithSym0 :: TyFun (a6989586621681131422 ~> (b6989586621681131423 ~> c6989586621681131424)) (m6989586621681131419 a6989586621681131422 ~> (m6989586621681131419 b6989586621681131423 ~> m6989586621681131419 c6989586621681131424)) -> Type) (arg6989586621681131499 :: a6989586621681131422 ~> (b6989586621681131423 ~> c6989586621681131424)) = MzipWithSym1 arg6989586621681131499 m6989586621681131419 :: TyFun (m6989586621681131419 a6989586621681131422) (m6989586621681131419 b6989586621681131423 ~> m6989586621681131419 c6989586621681131424) -> Type |
data MzipWithSym1 (arg6989586621681131499 :: (~>) a6989586621681131422 ((~>) b6989586621681131423 c6989586621681131424)) :: forall m6989586621681131419. (~>) (m6989586621681131419 a6989586621681131422) ((~>) (m6989586621681131419 b6989586621681131423) (m6989586621681131419 c6989586621681131424)) Source #
Instances
(SMonadZip m, SingI d) => SingI (MzipWithSym1 d m :: TyFun (m a) (m b ~> m c) -> Type) Source # | |
Defined in Data.Singletons.Prelude.Monad.Zip sing :: Sing (MzipWithSym1 d m) Source # | |
SuppressUnusedWarnings (MzipWithSym1 arg6989586621681131499 m6989586621681131419 :: TyFun (m6989586621681131419 a6989586621681131422) (m6989586621681131419 b6989586621681131423 ~> m6989586621681131419 c6989586621681131424) -> Type) Source # | |
Defined in Data.Singletons.Prelude.Monad.Zip suppressUnusedWarnings :: () Source # | |
type Apply (MzipWithSym1 arg6989586621681131499 m6989586621681131419 :: TyFun (m6989586621681131419 a6989586621681131422) (m6989586621681131419 b6989586621681131423 ~> m6989586621681131419 c6989586621681131424) -> Type) (arg6989586621681131500 :: m6989586621681131419 a6989586621681131422) Source # | |
Defined in Data.Singletons.Prelude.Monad.Zip type Apply (MzipWithSym1 arg6989586621681131499 m6989586621681131419 :: TyFun (m6989586621681131419 a6989586621681131422) (m6989586621681131419 b6989586621681131423 ~> m6989586621681131419 c6989586621681131424) -> Type) (arg6989586621681131500 :: m6989586621681131419 a6989586621681131422) = MzipWithSym2 arg6989586621681131499 arg6989586621681131500 |
data MzipWithSym2 (arg6989586621681131499 :: (~>) a6989586621681131422 ((~>) b6989586621681131423 c6989586621681131424)) (arg6989586621681131500 :: m6989586621681131419 a6989586621681131422) :: (~>) (m6989586621681131419 b6989586621681131423) (m6989586621681131419 c6989586621681131424) Source #
Instances
(SMonadZip m, SingI d1, SingI d2) => SingI (MzipWithSym2 d1 d2 :: TyFun (m b) (m c) -> Type) Source # | |
Defined in Data.Singletons.Prelude.Monad.Zip sing :: Sing (MzipWithSym2 d1 d2) Source # | |
SuppressUnusedWarnings (MzipWithSym2 arg6989586621681131500 arg6989586621681131499 :: TyFun (m6989586621681131419 b6989586621681131423) (m6989586621681131419 c6989586621681131424) -> Type) Source # | |
Defined in Data.Singletons.Prelude.Monad.Zip suppressUnusedWarnings :: () Source # | |
type Apply (MzipWithSym2 arg6989586621681131500 arg6989586621681131499 :: TyFun (m b) (m c) -> Type) (arg6989586621681131501 :: m b) Source # | |
Defined in Data.Singletons.Prelude.Monad.Zip type Apply (MzipWithSym2 arg6989586621681131500 arg6989586621681131499 :: TyFun (m b) (m c) -> Type) (arg6989586621681131501 :: m b) = MzipWith arg6989586621681131500 arg6989586621681131499 arg6989586621681131501 |
type MzipWithSym3 (arg6989586621681131499 :: (~>) a6989586621681131422 ((~>) b6989586621681131423 c6989586621681131424)) (arg6989586621681131500 :: m6989586621681131419 a6989586621681131422) (arg6989586621681131501 :: m6989586621681131419 b6989586621681131423) = MzipWith arg6989586621681131499 arg6989586621681131500 arg6989586621681131501 Source #
data MunzipSym0 :: forall m6989586621681131419 a6989586621681131425 b6989586621681131426. (~>) (m6989586621681131419 (a6989586621681131425, b6989586621681131426)) (m6989586621681131419 a6989586621681131425, m6989586621681131419 b6989586621681131426) Source #
Instances
SMonadZip m => SingI (MunzipSym0 :: TyFun (m (a, b)) (m a, m b) -> Type) Source # | |
Defined in Data.Singletons.Prelude.Monad.Zip sing :: Sing MunzipSym0 Source # | |
SuppressUnusedWarnings (MunzipSym0 :: TyFun (m6989586621681131419 (a6989586621681131425, b6989586621681131426)) (m6989586621681131419 a6989586621681131425, m6989586621681131419 b6989586621681131426) -> Type) Source # | |
Defined in Data.Singletons.Prelude.Monad.Zip suppressUnusedWarnings :: () Source # | |
type Apply (MunzipSym0 :: TyFun (m (a, b)) (m a, m b) -> Type) (arg6989586621681131505 :: m (a, b)) Source # | |
Defined in Data.Singletons.Prelude.Monad.Zip type Apply (MunzipSym0 :: TyFun (m (a, b)) (m a, m b) -> Type) (arg6989586621681131505 :: m (a, b)) = Munzip arg6989586621681131505 |
type MunzipSym1 (arg6989586621681131505 :: m6989586621681131419 (a6989586621681131425, b6989586621681131426)) = Munzip arg6989586621681131505 Source #