diff options
| author | LLLL Colonq <llll@colonq> | 2024-02-23 19:30:52 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-02-23 19:31:11 -0500 |
| commit | 4a23754fc6515c947e0bbac38cd0e558b701fe2f (patch) | |
| tree | 75c487c3ee77c3aef58eb33f3ff9018d4bd6dcdc /fig-utils/src/Fig/Prelude.hs | |
| parent | 6942ffa61fe93dc6872f97d1a0b7683614e8c7e4 (diff) | |
Add poke API
Diffstat (limited to 'fig-utils/src/Fig/Prelude.hs')
| -rw-r--r-- | fig-utils/src/Fig/Prelude.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/fig-utils/src/Fig/Prelude.hs b/fig-utils/src/Fig/Prelude.hs index 80e5829..060f197 100644 --- a/fig-utils/src/Fig/Prelude.hs +++ b/fig-utils/src/Fig/Prelude.hs @@ -46,6 +46,7 @@ module Fig.Prelude , headMay, atMay , throwLeft , log + , (>>>) , Pretty(..) , Fix(..), unFix @@ -113,6 +114,9 @@ throwLeft :: (Exception e, MonadThrow m) => (b -> e) -> Either b a -> m a throwLeft f (Left x) = throwM $ f x throwLeft _ (Right x) = pure x +(>>>) :: (a -> b) -> (b -> c) -> a -> c +(>>>) = flip (.) + log :: MonadIO m => Text -> m () log msg = do t <- liftIO Time.getCurrentTime |