diff --git a/Hack/Handler/SimpleServer.hs b/Hack/Handler/SimpleServer.hs
--- a/Hack/Handler/SimpleServer.hs
+++ b/Hack/Handler/SimpleServer.hs
@@ -100,13 +100,13 @@
     let rpath = '/' : case SL.unpack rpath' of
                         ('/':x) -> x
                         _ -> SL.unpack rpath'
-    let heads = map parseHeader $ tail lines'
-        heads' = map (\(x, y, _) -> (SL.unpack x, SL.unpack y)) heads
-    let host' = lookupHeader (SL.pack "Host") heads
+    let heads = map parseHeaderNoAttr $ tail lines'
+        heads' = map (\(x, y) -> (SL.unpack x, SL.unpack y)) heads
+    let host' = lookup (SL.pack "Host") heads
     unless (isJust host') $ failure HostNotIncluded
     let host = fromJust host'
     let len = maybe "0" SL.unpack
-            $ lookupHeader (SL.pack "Content-Length") heads
+            $ lookup (SL.pack "Content-Length") heads
     let body'' = BL.take (safeRead 0 len) body'
     let (serverName', _) = SL.breakChar ':' host
     return $ Env
@@ -161,3 +161,8 @@
     hPutStr conn "\r\n"
     BL.hPutStr conn $ content res
 -}
+
+parseHeaderNoAttr :: StringLike a => a -> (a, a)
+parseHeaderNoAttr s =
+    let (k, rest) = SL.span (/= ':') s
+     in (k, SL.dropPrefix' (SL.pack ": ") rest)
diff --git a/hack-handler-simpleserver.cabal b/hack-handler-simpleserver.cabal
--- a/hack-handler-simpleserver.cabal
+++ b/hack-handler-simpleserver.cabal
@@ -1,5 +1,5 @@
 name:            hack-handler-simpleserver
-version:         0.2.0
+version:         0.2.0.1
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>