Small patch to correct the parser for static files (#48)

input-output-hk · Jan 7, 2025 · 4ec09e0 · 4ec09e0
1 parent b34949f
commit 4ec09e0
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/lib/Wst/Cli/Command.hs b/src/lib/Wst/Cli/Command.hs
@@ -15,6 +15,7 @@ import Options.Applicative (CommandFields, Mod, Parser, ReadM, argument, auto,
                             command, eitherReader, fullDesc, help, info, long,
                             metavar, option, optional, progDesc, short,
                             subparser, value)
+import Options.Applicative.Builder (strOption)
 import Text.Read (readMaybe)
 import Wst.Server (ServerArgs (..))
 
@@ -64,7 +65,7 @@ parseServerArgs :: Parser ServerArgs
 parseServerArgs =
   ServerArgs
     <$> option auto (help "The port" <> value 8080 <> long "port" <> short 'p')
-    <*> optional (option auto (help "Folder to serve static files from" <> long "static-files"))
+    <*> optional (strOption (help "Folder to serve static files from" <> long "static-files"))
 
 parseTxIn :: Parser TxIn
 parseTxIn =