snap-server 1.0.3.1 → 1.0.3.2

raw patch · 2 files changed

+2/−3 lines, 2 filesdep ~base

Dependency ranges changed: base

Files

• snap-server.cabal +1/−1
• src/Snap/Internal/Http/Server/Session.hs +1/−2

@@ -1,5 +1,5 @@ name:           snap-server-version:        1.0.3.1+version:        1.0.3.2 synopsis:       A web server for the Snap Framework description:   Snap is a simple and fast web development framework and server written in

@@ -194,8 +194,7 @@             let twiddleTimeout = unsafePerformIO $ do                                    th <- readMVar thMVar                                    return $! TM.modify th-            let cleanupTimeout = do th <- readMVar thMVar-                                    return $! TM.cancel th+            let cleanupTimeout = readMVar thMVar >>= TM.cancel              let !psd = PerSessionData connClose                                       twiddleTimeout