diff --git a/Changelog.md b/Changelog.md
--- a/Changelog.md
+++ b/Changelog.md
@@ -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
diff --git a/NgxExport.hs b/NgxExport.hs
--- a/NgxExport.hs
+++ b/NgxExport.hs
@@ -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
diff --git a/ngx-export.cabal b/ngx-export.cabal
--- a/ngx-export.cabal
+++ b/ngx-export.cabal
@@ -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>.