registry/src/Startlude.hs

module Startlude
  ( module X
  , module Startlude
  )
where

import           Control.Arrow                 as X
                                                ( (&&&) )
-- import           Control.Comonad    as X
import           Control.Error.Util            as X
import           Data.Coerce                   as X
import           Data.String                   as X
                                                ( String
                                                , fromString
                                                )
import           Data.Time.Clock               as X
import           Protolude                     as X
                                         hiding ( bool
                                                , hush
                                                , isLeft
                                                , isRight
                                                , note
                                                , readMaybe
                                                , tryIO
                                                , (<.>)
                                                )
import qualified Protolude                     as P
                                                ( readMaybe )

id :: a -> a
id = identity

readMaybe :: Read a => Text -> Maybe a
readMaybe = P.readMaybe . toS
{-# INLINE readMaybe #-}