ngx-export 1.7.4 → 1.7.5

raw patch · 3 files changed

+20/−7 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• Changelog.md +5/−0
• NgxExport.hs +14/−6
• ngx-export.cabal +1/−1

@@ -1,3 +1,8 @@+### 1.7.5++- More robust pattern exhaustion check after inclusion of option+  *-Wincomplete-uni-patterns* into *-Wall* in GHC *9.2.1*.+ ### 1.7.4  - Function *safeWaitToSetLock* was moved into a new internal module

@@ -1,5 +1,5 @@ {-# LANGUAGE TemplateHaskell, ForeignFunctionInterface #-}-{-# LANGUAGE ViewPatterns, PatternSynonyms, TupleSections #-}+{-# LANGUAGE ViewPatterns, PatternSynonyms, TupleSections, LambdaCase #-}  ----------------------------------------------------------------------------- -- |@@ -109,7 +109,9 @@ #endif pattern I i <- (fromIntegral -> i) #if MIN_TOOL_VERSION_ghc(8,2,1)+{-# COMPLETE I :: Int #-} {-# COMPLETE I :: CInt #-}+{-# COMPLETE I :: CSize #-} #endif  #if MIN_TOOL_VERSION_ghc(8,0,1)@@ -169,8 +171,14 @@         reify ''NgxExportTypeAmbiguityTag     let tName = mkName "exportType"         aName = mkName "exportTypeAmbiguity"-        tCons = map (\(NormalC con [(_, typ)]) -> (con, typ)) tCs-        aCons = map (\(NormalC con []) -> con) aCs+        tCons = map (\case+                         NormalC con [(_, typ)] -> (con, typ)+                         _ -> undefined+                    ) tCs+        aCons = map (\case+                         NormalC con [] -> con+                         _ -> undefined+                    ) aCs     sequence $         [sigD tName [t|NgxExport -> IO CInt|]         ,funD tName $@@ -549,8 +557,8 @@ data WorkerProcessIsExiting = WorkerProcessIsExiting deriving (Show, Eq)  instance Exception WorkerProcessIsExiting where-  fromException = asyncExceptionFromException-  toException = asyncExceptionToException+    fromException = asyncExceptionFromException+    toException = asyncExceptionToException  -- | Finalizes the HTTP request. --@@ -707,7 +715,7 @@               | otherwise = s  isIOError :: Errno -> IOError -> Bool-isIOError e = (Just ((\(Errno i) -> i) e) ==) . ioe_errno+isIOError (Errno e) = (Just e ==) . ioe_errno {-# INLINE isIOError #-}  isEINTR :: IOError -> Bool

@@ -1,5 +1,5 @@ name:                       ngx-export-version:                    1.7.4+version:                    1.7.5 synopsis:                   Helper module for Nginx haskell module description:                Helper module for         <http://github.com/lyokha/nginx-haskell-module Nginx haskell module>.