fix windows build

.github/workflows/pre-release.yml

@@ -25,8 +25,8 @@ jobs:
     if: github.event_name == 'pull_request'
     steps:
       - uses: actions/checkout@v3
-      - uses: haskell/actions/hlint-setup@v1
-      - uses: haskell/actions/hlint-run@v2
+      - uses: haskell-actions/hlint-setup@v1
+      - uses: haskell-actions/hlint-run@v2
 
   fourmolu:
     runs-on: ubuntu-latest
@@ -75,6 +75,7 @@ jobs:
     needs: [create_release]
     name: ${{ matrix.os }}/GHC ${{ matrix.ghc }}/${{ github.ref }}
     runs-on: ${{ matrix.os }}
+    permissions: write-all
     strategy:
       # Don't fail fast because we test a lot of versions and it's
       # good to know which ones work and which ones don't
@@ -90,7 +91,7 @@ jobs:
         uses: actions/checkout@v4
 
       - name: Setup Haskell
-        uses: haskell/actions/setup@v2
+        uses: haskell-actions/setup@v2
         id: setup-haskell-cabal
         with:
           ghc-version: ${{ matrix.ghc }}

app/CmdOptions.hs

@@ -8,38 +8,49 @@ where
 
 import Data.Version (showVersion)
 import GitHash
-import OptEnvConf
-import Path
+import Options.Applicative
 import Paths_asmh (version)
 
 newtype Options = Options
-  { sourceCodeFile :: Path Abs File
+  { sourceCodeFile :: FilePath
   }
 
-instance HasParser Options where
-  settingsParser = do
-    val <-
-      filePathSetting
-        [ help "the file to compile"
-        , argument
-        ]
-    pure $ Options val
-
 runCmdOptions :: IO Options
-runCmdOptions = runSettingsParser version descriptionString
+runCmdOptions = execParser options
+
+options :: ParserInfo Options
+options =
+  info
+    (opts <**> helper)
+    ( fullDesc
+        <> header headerString
+        <> progDesc "i8086 assembler"
+        <> footer
+          "source code: https://github.com/0rphee/asmh"
+        <> failureCode 64
+    )
   where
-    descriptionString = concat ["Run asmh - v", showVersion version, gitInfoString]
+    headerString = "asmh - v" <> versionString
 
+opts :: Parser Options
+opts =
+  Options
+    <$> strArgument
+      ( metavar "FILENAME"
+          <> help "Input file"
+          <> action "file"
+      )
+      <**> simpleVersioner versionString
+
+versionString :: String
+versionString = showVersion version <> gitInfoString
+  where
     gitInfoString = case $$tGitInfoCwdTry of
       Right gi ->
         concat
           [ " - "
           , giBranch gi
           , "@"
           , giHash gi
-          , " ("
-          , show $ giCommitCount gi
-          , " commits in HEAD"
-          , ")"
           ]
       _ -> ""

app/Main.hs

@@ -10,8 +10,8 @@ import Bin
 
 main :: IO ()
 main = do
-  -- (Options sourceCodeFile) <- runCmdOptions
-  -- putStrLn $ "FILEPATH: " <> toFilePath sourceCodeFile
+  (Options sourceCodeFile) <- runCmdOptions
+  putStrLn $ "FILEPATH: " <> sourceCodeFile
   assemblyCode <- T.readFile "asm/colors.asm"
   -- let assemblyCode =
   --       T.unlines

asmh.cabal

@@ -82,10 +82,11 @@ executable asmh
     bytestring,
     cereal,
     githash,
-    opt-env-conf,
+    optparse-applicative,
     path,
     text,
 
+-- opt-env-conf,
 test-suite asmh-test
   import:
     common-options