diff options
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 " |