Quote package name passed to nvchecker (#108)

berberman · Sep 1, 2023 · 2bcf73d · 2bcf73d
1 parent 4479737
commit 2bcf73d
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 9 deletions.
diff --git a/flake.lock b/flake.lock
diff --git a/nvfetcher_example.toml b/nvfetcher_example.toml
@@ -57,7 +57,8 @@ src.container = "library/alpine"
 src.include_regex = "3\\..*"
 fetch.docker = "library/alpine"
 
-[submodule-example]
+# To demonstrate package key containing `.`
+["submodule.example"]
 src.git = "https://github.com/githubtraining/example-dependency"
 fetch.git = "https://github.com/githubtraining/example-dependency"
 git.fetchSubmodules = true
diff --git a/src/NvFetcher/Nvchecker.hs b/src/NvFetcher/Nvchecker.hs
@@ -131,10 +131,10 @@ genNvConfig pkg options mKeyfile versionSource =
           genOptions options
       )
   where
-    key =: x = tell [key <> " = " <> T.pack (show $ T.unpack x)]
+    key =: x = tell [key <> " = " <> quote x]
     key =:? (Just x) = key =: x
     _ =:? _ = pure ()
-    table t m = tell ["[" <> t <> "]"] >> m >> tell [""]
+    table t m = tell ["[" <> quote t <> "]"] >> m >> tell [""]
     genVersionSource = \case
       GitHubRelease {..} -> do
         "source" =: "github"