fix #2: normalize path separator

.github/workflows/ci.yml

@@ -10,6 +10,8 @@ on:
 jobs:
   stack:
     name: stack / ${{ matrix.os }} / ghc ${{ matrix.ghc }}
+    permissions:
+      contents: write
     runs-on: ${{ matrix.os }}
     strategy:
       matrix:

CHANGELOG.md

@@ -8,6 +8,12 @@ and this project adheres to the
 
 ## [Unreleased]
 
+## [0.2.2] - 2024-02-22
+
+### Fixed
+
+- Normalize path separator to Unix format (issue #2)
+
 ## [0.2.1] - 2023-06-12
 
 ### Fixed

nekofs.cabal

@@ -5,7 +5,7 @@ cabal-version: 1.12
 -- see: https://github.com/sol/hpack
 
 name:           nekofs
-version:        0.2.1
+version:        0.2.2
 synopsis:       Create and extract nekodata files
 description:    Please see the README on GitHub at <https://github.com/yxnan/nekofs#readme>
 category:       CLI

package.yaml

@@ -1,5 +1,5 @@
 name:                nekofs
-version:             0.2.1
+version:             0.2.2
 github:              "yxnan/nekofs"
 license:             BSD3
 author:              "yxnan"

src/NekoFS.hs

@@ -66,6 +66,8 @@ extractNeko nekofile outputDir verify = openBinaryFile nekofile ReadMode
               B.hPut hOut block'
               extract' hOut bs
 
+normalizePathSep :: FilePath -> FilePath
+normalizePathSep = map (\c -> if c == '\\' then '/' else c)   -- issue #2
 
 -- | Create a nekodata file from directory
 createNeko :: FilePath -- ^ the directory to be packed into a nekofile
@@ -106,7 +108,7 @@ createNeko sourceDir outputFile = do
               S.adler32 (mempty :: ByteString), 0, [])
         let qOffset = if null acc then 25 -- ^ size of nekofsHeader
                                   else getCurrentOffset (head acc)
-            file' = makeRelative sourceDir file -- to InternalPath
+            file' = normalizePathSep $ makeRelative sourceDir file -- to InternalPath
         return (Q file' sz csz crc crcOrig adler qOffset bcnt bszL : acc)
           where
             getCurrentOffset = (+) <$> compressedSizeQ <*> offsetQ
@@ -149,7 +151,7 @@ generateMeta path = do
       let metafile = dir </> "files.meta"
       meta <- withCurrentDirectory dir $
                         find always (fileType ==? RegularFile) "."
-                        >>= makeFilesMeta' . map (makeRelative ".")
+                        >>= makeFilesMeta' . map (normalizePathSep . makeRelative ".")
       B.writeFile metafile meta