{-# language Safe #-}

module LazyAsync.Types.NoAlternative where

import LazyAsync.Prelude (Exception, Show)

data NoAlternative = NoAlternative deriving Int -> NoAlternative -> ShowS
[NoAlternative] -> ShowS
NoAlternative -> String
(Int -> NoAlternative -> ShowS)
-> (NoAlternative -> String)
-> ([NoAlternative] -> ShowS)
-> Show NoAlternative
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [NoAlternative] -> ShowS
$cshowList :: [NoAlternative] -> ShowS
show :: NoAlternative -> String
$cshow :: NoAlternative -> String
showsPrec :: Int -> NoAlternative -> ShowS
$cshowsPrec :: Int -> NoAlternative -> ShowS
Show

instance Exception NoAlternative