19 lines
481 B
Haskell
19 lines
481 B
Haskell
|
|
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
|