{-# LANGUAGE CPP #-}
#if __GLASGOW_HASKELL__ >= 708
{-# LANGUAGE PatternSynonyms #-}
#endif
module Data.Tuple.OneTuple
{-# DEPRECATED "Use Data.Tuple.Solo" #-}
(
OneTuple,
#if __GLASGOW_HASKELL__ >= 708
pattern OneTuple,
#endif
only,
) where
import Data.Tuple.Solo
type OneTuple = Solo
only :: OneTuple a -> a
only :: OneTuple a -> a
only = OneTuple a -> a
forall a. Solo a -> a
getSolo
#if __GLASGOW_HASKELL__ >= 708
#if __GLASGOW_HASKELL__ >= 710
pattern OneTuple :: a -> Solo a
#endif
pattern $bOneTuple :: a -> Solo a
$mOneTuple :: forall r a. Solo a -> (a -> r) -> (Void# -> r) -> r
OneTuple a = Solo a
#endif