diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2018-12-08 12:04:31 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2018-12-08 12:04:31 -0700 |
| commit | 8e3da156811f5901230b5ae1e61209683f793920 (patch) | |
| tree | 3e6ded85f64264687063534b833439625137769c /Role/User.hs | |
| parent | baac01c49b553cf3e1564ad349bd90c0284a46dd (diff) | |
| parent | 9f282483310c2ce028c507cc385e69342ad6c7bc (diff) | |
| download | debug-me-8e3da156811f5901230b5ae1e61209683f793920.tar.gz | |
Merge tag '1.20181208'
tagging package debug-me version 1.20181208
Diffstat (limited to 'Role/User.hs')
| -rw-r--r-- | Role/User.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Role/User.hs b/Role/User.hs index 6ee1a42..6ec0302 100644 --- a/Role/User.hs +++ b/Role/User.hs @@ -30,11 +30,12 @@ import System.Exit import qualified Data.Text.IO as T import qualified Data.ByteString as B import Data.List.NonEmpty (NonEmpty(..), toList) -import Data.Monoid import Data.Maybe import Data.Time.Clock.POSIX import System.IO import System.Environment +import Data.Monoid +import Prelude run :: UserOpts -> IO ExitCode run os = fromMaybe (ExitFailure 101) <$> connect |