gemoire 1.0.0 → 1.0.1

raw patch · 3 files changed

+26/−14 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• gemoire.cabal +1/−1
• src/Gemoire/Converter.hs +21/−13

@@ -1,5 +1,9 @@ # Change Log for gemoire +## 1.0.1 (February 1, 2025)++- Hotfix for recursive generations in Gemoire.Converter.+ ## 1.0.0 (February 1, 2025)  - Add gemtext converter modules.

@@ -1,6 +1,6 @@ cabal-version:   2.2 name:            gemoire-version:         1.0.0+version:         1.0.1 category:        Gemini homepage:        https://codeberg.org/sena/gemoire bug-reports:     https://codeberg.org/sena/gemoire/issues

@@ -56,7 +56,15 @@ import qualified Data.Text.IO as TIO import System.Directory (copyFile, createDirectoryIfMissing) import System.Directory.Extra (listFilesRecursive)-import System.FilePath (makeRelative, takeBaseName, takeExtension, takeFileName, (-<.>), (</>))+import System.FilePath+    ( makeRelative+    , takeBaseName+    , takeDirectory+    , takeExtension+    , takeFileName+    , (-<.>)+    , (</>)+    ) import Text.Gemini (GemItem (..)) import qualified Text.Gemini as G import Text.Regex (matchRegex, mkRegex, mkRegexWithOpts, subRegex)@@ -88,21 +96,21 @@                 . (\inp -> (inp, output </> makeRelative input inp))             )             <$> listFilesRecursive input-    createDirectoryIfMissing True output     mapM_         ( \(inp, out) ->             let rules = filterRules (takeFileName inp) rewriteRules-             in if takeExtension inp == ".gmi"-                    then-                        TIO.writeFile out-                            . convertDocument-                                (singleton "fname" (T.pack . takeBaseName $ inp) <> conversionOverrides)-                                (config{rewriteRules = rules})-                            =<< TIO.readFile inp-                    else-                        if not $ null rules-                            then TIO.writeFile out . rewriteText rules =<< TIO.readFile inp-                            else copyFile inp out+             in createDirectoryIfMissing True (takeDirectory out)+                    >> if takeExtension inp == ".gmi"+                        then+                            TIO.writeFile out+                                . convertDocument+                                    (singleton "fname" (T.pack . takeBaseName $ inp) <> conversionOverrides)+                                    (config{rewriteRules = rules})+                                =<< TIO.readFile inp+                        else+                            if not $ null rules+                                then TIO.writeFile out . rewriteText rules =<< TIO.readFile inp+                                else copyFile inp out         )         files