From 66fb2f5f08a2dab465784c55ff694c08736b7d3e Mon Sep 17 00:00:00 2001 From: Mirek Kratochvil Date: Wed, 24 May 2023 23:43:33 +0200 Subject: render, install files --- Utils.hs | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 Utils.hs (limited to 'Utils.hs') diff --git a/Utils.hs b/Utils.hs new file mode 100644 index 0000000..d058c1c --- /dev/null +++ b/Utils.hs @@ -0,0 +1,18 @@ + +module Utils where +import Data.Maybe (isJust) +import Data.List.Extra (stripSuffix) +import Control.Monad.IO.Class + +-- | A shortcut for `liftIO`. +io :: MonadIO m => IO a -> m a +io = liftIO + +-- | A helper for throwing an error if something is `Nothing` +just :: String -> Maybe a -> a +just _ (Just val) = val +just err Nothing = error ("Missing: " ++ err) + +-- | Test for whether something listy has a suffix +hasSuffix :: Eq a => [a] -> [a] -> Bool +hasSuffix s = isJust . stripSuffix s -- cgit v1.2.3