From 3989c89f0f3945f949d2929cc0af3994910a2771 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 2 Aug 2016 22:46:52 +0200 Subject: minor cleanup --- src/Trivstream/Options.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Trivstream/Options.hs') 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 import Trivstream.Types import Trivstream.Options.Utils import Paths_trivstream (version) +import Development.GitRev import Options.Applicative @@ -16,7 +17,7 @@ import Control.Monad.Reader import Control.Monad.IO.Class -withOptions :: MonadIO m => ReaderT Configuration a -> IO a +withOptions :: MonadIO m => ReaderT Configuration m a -> m a withOptions f = liftIO (execParser options) >>= runReaderT f where options = options' `info` mconcat [ header $ concat [ "trivstream " -- cgit v1.2.3