diff --git a/snap-server.cabal b/snap-server.cabal
--- a/snap-server.cabal
+++ b/snap-server.cabal
@@ -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,
diff --git a/src/Data/HashMap/Concurrent/Internal.hs b/src/Data/HashMap/Concurrent/Internal.hs
new file mode 100644
--- /dev/null
+++ b/src/Data/HashMap/Concurrent/Internal.hs
@@ -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 |]