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 | |
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')
-rw-r--r-- | Role/Developer.hs | 3 | ||||
-rw-r--r-- | Role/User.hs | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/Role/Developer.hs b/Role/Developer.hs index d706a7a..abdad08 100644 --- a/Role/Developer.hs +++ b/Role/Developer.hs @@ -38,9 +38,10 @@ import qualified Data.Text as T import Data.List import Data.Maybe import Control.Monad -import Data.Monoid import Data.Time.Clock.POSIX import Network.URI +import Data.Monoid +import Prelude run :: DeveloperOpts -> IO () run = run' developer . debugUrl 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 |