literal-flake-input-0.0.4: src/LiteralFlakeInput/App.hs

module LiteralFlakeInput.App where

import LiteralFlakeInput.Prelude
    ( ($), String, MonadIO, HasCallStack )
import UnliftIO.Exception ( stringException, throwIO )

type NetM m = (HasCallStack, MonadIO m)

ex :: NetM m => String -> m a
ex em = throwIO $ stringException em