diff --git a/airship.cabal b/airship.cabal
--- a/airship.cabal
+++ b/airship.cabal
@@ -3,7 +3,7 @@
 description:            A Webmachine-inspired HTTP library
 homepage:               https://github.com/helium/airship/
 Bug-reports:            https://github.com/helium/airship/issues
-version:                0.4.0.0
+version:                0.4.1.0
 license:                MIT
 license-file:           LICENSE
 author:                 Reid Draper and Patrick Thomson
@@ -48,7 +48,7 @@
                       , filepath >= 1.3 && < 1.5
                       , http-date
                       , http-media
-                      , http-types == 0.9.*
+                      , http-types >= 0.8 && <0.10
                       , lifted-base == 0.2.*
                       , microlens
                       , monad-control >= 1.0
diff --git a/src/Airship/Internal/Decision.hs b/src/Airship/Internal/Decision.hs
--- a/src/Airship/Internal/Decision.hs
+++ b/src/Airship/Internal/Decision.hs
@@ -43,9 +43,29 @@
 
 import           Network.HTTP.Media
 import qualified Network.HTTP.Types as HTTP
-import qualified Network.HTTP.Types.Header as HTTP
 
 ------------------------------------------------------------------------------
+-- HTTP Headers
+-- These are headers not defined for us already in
+-- Network.HTTP.Types
+------------------------------------------------------------------------------
+-- TODO this exist in http-types-0.9, see CHANGES.txt
+hAcceptCharset :: HTTP.HeaderName
+hAcceptCharset = "Accept-Charset"
+
+hAcceptEncoding :: HTTP.HeaderName
+hAcceptEncoding = "Accept-Encoding"
+
+hIfMatch :: HTTP.HeaderName
+hIfMatch = "If-Match"
+
+hIfUnmodifiedSince :: HTTP.HeaderName
+hIfUnmodifiedSince = "If-Unmodified-Since"
+
+hIfNoneMatch :: HTTP.HeaderName
+hIfNoneMatch = "If-None-Match"
+
+------------------------------------------------------------------------------
 -- FlowState: StateT used for recording information as we walk the decision
 -- tree
 ------------------------------------------------------------------------------
@@ -66,7 +86,7 @@
 trace :: Monad m => Text -> FlowStateT m ()
 trace t = lift $ tell [t]
 
-------------------------------------------------------------------------------
+-----------------------------------------------------------------------------
 -- Header value data newtypes
 ------------------------------------------------------------------------------
 
@@ -305,7 +325,7 @@
     trace "e05"
     req <- lift request
     let reqHeaders = requestHeaders req
-    case lookup HTTP.hAcceptCharset reqHeaders of
+    case lookup hAcceptCharset reqHeaders of
         (Just _h) ->
             e06 r
         Nothing ->
@@ -324,7 +344,7 @@
     trace "f06"
     req <- lift request
     let reqHeaders = requestHeaders req
-    case lookup HTTP.hAcceptEncoding reqHeaders of
+    case lookup hAcceptEncoding reqHeaders of
         (Just _h) ->
             f07 r
         Nothing ->
@@ -354,7 +374,7 @@
     trace "g08"
     req <- lift request
     let reqHeaders = requestHeaders req
-    case IfMatch <$> lookup HTTP.hIfMatch reqHeaders of
+    case IfMatch <$> lookup hIfMatch reqHeaders of
         (Just h) ->
             g09 h r
         Nothing ->
@@ -375,7 +395,7 @@
 h12 r@Resource{..} = do
     trace "h12"
     modified <- lift lastModified
-    parsedDate <- lift $ requestHeaderDate HTTP.hIfUnmodifiedSince
+    parsedDate <- lift $ requestHeaderDate hIfUnmodifiedSince
     let maybeGreater = do
             lastM <- modified
             headerDate <- parsedDate
@@ -386,7 +406,7 @@
 
 h11 r@Resource{..} = do
     trace "h11"
-    parsedDate <- lift $ requestHeaderDate HTTP.hIfUnmodifiedSince
+    parsedDate <- lift $ requestHeaderDate hIfUnmodifiedSince
     if isJust parsedDate
         then h12 r
         else i12 r
@@ -395,7 +415,7 @@
     trace "h10"
     req <- lift request
     let reqHeaders = requestHeaders req
-    case lookup HTTP.hIfUnmodifiedSince reqHeaders of
+    case lookup hIfUnmodifiedSince reqHeaders of
         (Just _h) ->
             h11 r
         Nothing ->
@@ -405,7 +425,7 @@
     trace "h07"
     req <- lift request
     let reqHeaders = requestHeaders req
-    case lookup HTTP.hIfMatch reqHeaders of
+    case lookup hIfMatch reqHeaders of
         -- TODO: should we be stripping whitespace here?
         (Just "*") ->
             lift $ halt HTTP.status412
@@ -429,7 +449,7 @@
     trace "i12"
     req <- lift request
     let reqHeaders = requestHeaders req
-    case IfNoneMatch <$> lookup HTTP.hIfNoneMatch reqHeaders of
+    case IfNoneMatch <$> lookup hIfNoneMatch reqHeaders of
         (Just h) ->
             i13 h r
         Nothing ->