diff options
author | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-08-02 22:46:52 +0200 |
---|---|---|
committer | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-08-02 22:46:52 +0200 |
commit | 3989c89f0f3945f949d2929cc0af3994910a2771 (patch) | |
tree | 9c656c781ec4fa054befa4b9e0b2c2d671fc9170 /src/Trivstream/Options.hs | |
parent | f31a65bcd1642b3f042bd906674f4064cfc9362c (diff) | |
download | trivstream-master.tar trivstream-master.tar.gz trivstream-master.tar.bz2 trivstream-master.tar.xz trivstream-master.zip |
Diffstat (limited to 'src/Trivstream/Options.hs')
-rw-r--r-- | src/Trivstream/Options.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Trivstream/Options.hs b/src/Trivstream/Options.hs index a777942..1762f60 100644 --- a/src/Trivstream/Options.hs +++ b/src/Trivstream/Options.hs | |||
@@ -8,6 +8,7 @@ module Trivstream.Options | |||
8 | import Trivstream.Types | 8 | import Trivstream.Types |
9 | import Trivstream.Options.Utils | 9 | import Trivstream.Options.Utils |
10 | import Paths_trivstream (version) | 10 | import Paths_trivstream (version) |
11 | import Development.GitRev | ||
11 | 12 | ||
12 | 13 | ||
13 | import Options.Applicative | 14 | import Options.Applicative |
@@ -16,7 +17,7 @@ import Control.Monad.Reader | |||
16 | import Control.Monad.IO.Class | 17 | import Control.Monad.IO.Class |
17 | 18 | ||
18 | 19 | ||
19 | withOptions :: MonadIO m => ReaderT Configuration a -> IO a | 20 | withOptions :: MonadIO m => ReaderT Configuration m a -> m a |
20 | withOptions f = liftIO (execParser options) >>= runReaderT f | 21 | withOptions f = liftIO (execParser options) >>= runReaderT f |
21 | where | 22 | where |
22 | options = options' `info` mconcat [ header $ concat [ "trivstream " | 23 | options = options' `info` mconcat [ header $ concat [ "trivstream " |