2019-02-07 17:51:06 +01:00
|
|
|
module Pretty (
|
2020-10-25 22:20:57 +01:00
|
|
|
(.$)
|
|
|
|
|
, assertRight
|
|
|
|
|
, onRight
|
2019-02-07 17:51:06 +01:00
|
|
|
) where
|
|
|
|
|
|
2020-10-25 22:20:57 +01:00
|
|
|
import System.Exit (die)
|
|
|
|
|
|
2019-02-07 17:51:06 +01:00
|
|
|
(.$) :: (a -> b) -> (b -> c) -> (a -> c)
|
|
|
|
|
(.$) f g = g . f
|
2020-10-25 22:20:57 +01:00
|
|
|
|
|
|
|
|
onRight :: (a -> IO b) -> Either String a -> IO b
|
|
|
|
|
onRight = either die
|
|
|
|
|
|
|
|
|
|
assertRight :: Either String a -> IO a
|
|
|
|
|
assertRight = onRight return
|
