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