rel8-internal-1.8.0.0: src/Rel8/Internal/Type/Nullable.hs

{-# language GADTs #-}
{-# language StandaloneKindSignatures #-}

module Rel8.Internal.Type.Nullable (
  NullableOrNot (..),
) where

-- base
import Data.Kind (Type)
import Prelude


type NullableOrNot :: (Type -> Type) -> Type -> Type
data NullableOrNot decoder a where
  NonNullable :: decoder a -> NullableOrNot decoder a
  Nullable :: decoder a -> NullableOrNot decoder (Maybe a)