diff --git a/src/Trasa/Server.hs b/src/Trasa/Server.hs
--- a/src/Trasa/Server.hs
+++ b/src/Trasa/Server.hs
@@ -33,7 +33,6 @@
 import qualified Network.HTTP.Media.RenderHeader as N
 import qualified Network.HTTP.Types.Status as N
 import qualified Network.Wai as Wai
-import qualified Network.Wai.Parse as Wai
 
 import Trasa.Core
 
@@ -42,7 +41,6 @@
 data TrasaEnv = TrasaEnv
   { trasaHeaders :: Headers
   , trasaQueryString :: QueryString
-  , trasaRequestBodyType :: Maybe Wai.RequestBodyType
   }
 
 newtype TrasaT m a = TrasaT
@@ -76,9 +74,8 @@
   :: TrasaT m a
   -> M.Map (CI BS.ByteString) T.Text -- ^ Headers
   -> QueryString -- ^ Query string parameters
-  -> Maybe Wai.RequestBodyType -- ^ Request body type from @wai-extra@
   -> m (Either TrasaErr a, M.Map (CI BS.ByteString) T.Text)
-runTrasaT trasa headers queryStrings mrequestBodyType = (flip runReaderT (TrasaEnv headers queryStrings mrequestBodyType) . flip runStateT M.empty . runExceptT  . unTrasaT) trasa
+runTrasaT trasa headers queryStrings = (flip runReaderT (TrasaEnv headers queryStrings) . flip runStateT M.empty . runExceptT  . unTrasaT) trasa
 
 mapTrasaT :: (forall x. m x -> n x) -> TrasaT m a -> TrasaT n a
 mapTrasaT eta = TrasaT . mapExceptT (mapStateT (mapReaderT eta)) . unTrasaT
@@ -108,8 +105,7 @@
             let queryStrings = decodeQuery (Wai.queryString req)
                 url = Url (Wai.pathInfo req) queryStrings
                 dispatch = dispatchWith toMeta makeResponse madeRouter method accepts url content
-                mrequestBodyType = Wai.getRequestBodyType req
-            runTrasaT dispatch headers queryStrings mrequestBodyType >>= \case
+            runTrasaT dispatch headers queryStrings >>= \case
               (resErr,newHeaders) -> case join resErr of
                 Left (TrasaErr stat errBody) ->
                   respond (Wai.responseLBS stat (encodeHeaders newHeaders) errBody)
diff --git a/trasa-server.cabal b/trasa-server.cabal
--- a/trasa-server.cabal
+++ b/trasa-server.cabal
@@ -2,7 +2,7 @@
 name:
   trasa-server
 version:
-  0.5.3
+  0.5.4
 synopsis:
   Type safe web server
 description:
@@ -45,7 +45,6 @@
     , text == 1.2.*
     , trasa == 0.4.*
     , wai == 3.2.2.*
-    , wai-extra
   default-language:
     Haskell2010