mirror of
https://github.com/Start9Labs/registry.git
synced 2026-03-26 02:11:53 +00:00
dbd73fae7f
* wip * finishes initial refactor * prune unused code * finished massive refactor * remove commented deps * fix import * fix bug
52 lines
878 B
Haskell
52 lines
878 B
Haskell
module Startlude (
|
|
module X,
|
|
module Startlude,
|
|
) where
|
|
|
|
import Control.Arrow 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 Protolude qualified as P (
|
|
readMaybe,
|
|
)
|
|
|
|
|
|
id :: a -> a
|
|
id = identity
|
|
|
|
|
|
readMaybe :: (Read a) => Text -> Maybe a
|
|
readMaybe = P.readMaybe
|
|
{-# INLINE readMaybe #-}
|
|
|
|
|
|
maximumOn :: forall a b t. (Ord b, Foldable t) => (a -> b) -> t a -> Maybe a
|
|
maximumOn f = foldr (\x y -> maxOn f x <$> y <|> Just x) Nothing
|
|
|
|
|
|
maxOn :: Ord b => (a -> b) -> a -> a -> a
|
|
maxOn f x y = if f x > f y then x else y
|
|
|
|
|
|
{-# INLINE (.*) #-}
|
|
infixr 8 .*
|
|
(.*) :: (b -> c) -> (a1 -> a2 -> b) -> a1 -> a2 -> c
|
|
(.*) = (.) . (.)
|