`pass` function, fixes #25 .
This commit is contained in:
@@ -19,6 +19,7 @@ module Protolude (
|
|||||||
throwTo,
|
throwTo,
|
||||||
foreach,
|
foreach,
|
||||||
show,
|
show,
|
||||||
|
pass,
|
||||||
|
|
||||||
LText,
|
LText,
|
||||||
LByteString,
|
LByteString,
|
||||||
@@ -397,6 +398,9 @@ throwTo tid e = liftIO (Control.Exception.throwTo tid e)
|
|||||||
foreach :: Functor f => f a -> (a -> b) -> f b
|
foreach :: Functor f => f a -> (a -> b) -> f b
|
||||||
foreach = flip fmap
|
foreach = flip fmap
|
||||||
|
|
||||||
|
pass :: Applicative f => f ()
|
||||||
|
pass = pure ()
|
||||||
|
|
||||||
show :: (Show a, StringConv String b) => a -> b
|
show :: (Show a, StringConv String b) => a -> b
|
||||||
show x = toS (PBase.show x)
|
show x = toS (PBase.show x)
|
||||||
{-# SPECIALIZE show :: Show a => a -> Text #-}
|
{-# SPECIALIZE show :: Show a => a -> Text #-}
|
||||||
|
|||||||
Reference in New Issue
Block a user