src/Main.hs Modified

@@ -6,7 +6,6 @@
 
 import Paths_gitserve (version)
 
-import Data.Text (Text)
 import Data.Version (showVersion)
 import qualified Options.Applicative as O
 
@@ -19,7 +18,7 @@
 Command line options
 -}
 data Options = Options
-    { config :: Text
+    { config :: FilePath
     , force :: Bool
     , printVersion :: Bool
     }

src/Config.hs Modified

@@ -14,7 +14,10 @@
     host,
 ) where
 
+import Control.Monad ((<=<))
+import Data.Text (pack)
 import Dhall
+import System.Directory (makeAbsolute)
 
 data Config = Config
     { repoPaths :: [FilePath]
@@ -29,5 +32,5 @@
 
 instance FromDhall Config
 
-getConfig :: Text -> IO Config
-getConfig = input auto
+getConfig :: String -> IO Config
+getConfig = input auto . pack <=< makeAbsolute