ngx-export 1.2.0 → 1.2.1

raw patch · 3 files changed

+13/−8 lines, 3 files

Files

• Changelog.md +4/−0
• NgxExport.hs +8/−7
• ngx-export.cabal +1/−1

@@ -1,3 +1,7 @@+### 1.2.1++- Bugfix: put *unsigned* integers in event channels (important for *eventfd*).+ ### 1.2.0  - Added exporter *ngxExportServiceHook* for service hooks and exception

@@ -362,11 +362,6 @@         poke (castPtr p) n         poke (plusPtr p $ alignment x) s -data ServiceHookInterrupt = ServiceHookInterrupt-instance Exception ServiceHookInterrupt-instance Show ServiceHookInterrupt where-    show = const "Service was interrupted by a service hook"- safeMallocBytes :: Int -> IO (Ptr a) safeMallocBytes =     flip catchIOError (const $ return nullPtr) . mallocBytes@@ -540,10 +535,10 @@ ioyYWithFree = ioyYCommon B.unsafePackMallocCStringLen  asyncIOFlag1b :: B.ByteString-asyncIOFlag1b = L.toStrict $ runPut $ putInt8 1+asyncIOFlag1b = L.toStrict $ runPut $ putWord8 1  asyncIOFlag8b :: B.ByteString-asyncIOFlag8b = L.toStrict $ runPut $ putInt64host 1+asyncIOFlag8b = L.toStrict $ runPut $ putWord64host 1  asyncIOCommon :: IO (L.ByteString, Bool) ->     CInt -> Bool -> Ptr (Ptr NgxStrType) -> Ptr CInt ->@@ -744,6 +739,12 @@     StablePtr (Async ()) -> IO () ngxExportTerminateTask = deRefStablePtr >=>     cancel++data ServiceHookInterrupt = ServiceHookInterrupt++instance Exception ServiceHookInterrupt+instance Show ServiceHookInterrupt where+    show = const "Service was interrupted by a service hook"  foreign export ccall ngxExportServiceHookInterrupt ::     StablePtr (Async ()) -> IO ()

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