Prefer strOption for -X option, so that quotes are not required

AshleyYakeley · Jun 29, 2018 · 9809930 · 9809930
1 parent 9a58b74
commit 9809930
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/main/Main.hs b/src/main/Main.hs
@@ -30,6 +30,7 @@ import           System.Exit (exitWith)
 import qualified System.IO as IO
 import           Options.Applicative hiding (action, style)
 import           Data.Monoid ((<>))
+import qualified Data.Text as T
 
 data Action = Validate | Reformat
 
@@ -103,7 +104,7 @@ options config =
       ) <*
       optional (strOption
            (long "style" <> help "Style to print with (historical, now ignored)" <> metavar "STYLE") :: Parser String)
-    exts = fmap getExtensions (many (option auto (short 'X' <> help "Language extension" <> metavar "GHCEXT")))
+    exts = fmap getExtensions (many (T.pack <$> strOption (short 'X' <> help "Language extension" <> metavar "GHCEXT")))
     indentSpaces =
         option auto
            (long "indent-size" <> help "Indentation size in spaces" <> value (configIndentSpaces config) <> showDefault) <|>