snap-server 0.2.10 → 0.2.10.1

raw patch · 2 files changed

+20/−3 lines, 2 filesdep ~snap-core

Dependency ranges changed: snap-core

Files

• snap-server.cabal +4/−3
• src/Data/HashMap/Concurrent/Internal.hs +16/−0

@@ -1,5 +1,5 @@ name:           snap-server-version:        0.2.10+version:        0.2.10.1 synopsis:       A fast, iteratee-based, epoll-enabled web server for the Snap Framework description:   This is the first developer prerelease of the Snap framework.  Snap is a@@ -88,12 +88,13 @@   hs-source-dirs: src    exposed-modules:+    Data.HashMap.Concurrent,     Snap.Http.Server,     Snap.Http.Server.Config,     System.FastLogger    other-modules:-    Data.HashMap.Concurrent,+    Data.HashMap.Concurrent.Internal,     Paths_snap_server,     Snap.Internal.Http.Parser,     Snap.Internal.Http.Server,  @@ -117,7 +118,7 @@     murmur-hash >= 0.1 && < 0.2,     network == 2.2.1.*,     old-locale,-    snap-core >= 0.2.10 && <0.3,+    snap-core >= 0.2.11 && <0.3,     template-haskell,     time,     transformers,

@@ -0,0 +1,16 @@+{-# LANGUAGE BangPatterns #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE MagicHash #-}+{-# LANGUAGE TemplateHaskell #-}++module Data.HashMap.Concurrent.Internal where++import           Data.Bits+import           Data.Word+import           Language.Haskell.TH+++whichHash :: ExpQ -> ExpQ -> Q Exp+whichHash as32 as64 = if bitSize (undefined :: Word) == 32+                         then [| \x -> fromIntegral $ $as32 x |]+                         else [| \x -> fromIntegral $ $as64 x |]