diff --git a/apiary.cabal b/apiary.cabal
--- a/apiary.cabal
+++ b/apiary.cabal
@@ -1,5 +1,5 @@
 name:                apiary
-version:             0.4.0.0
+version:             0.4.0.1
 x-revision:          1
 synopsis:            Simple web framework inspired by scotty.
 description:
@@ -16,7 +16,7 @@
   .
   main :: IO ()
   main = run 3000 . runApiary def $ do
-    [capture|/:Int|] . queryFirst' "name" . stdMethod GET . action $ \\age name -> do
+    [capture|/:Int|] . queryFirst' "name" . stdMethod GET . action $ \\age name -> do
         guard (age >= 18)
         contentType "text/html"
         lbs . L.concat $ ["<h1>Hello, ", L.fromStrict name, "!</h1>"]
diff --git a/src/Control/Monad/Apiary/Action.hs b/src/Control/Monad/Apiary/Action.hs
--- a/src/Control/Monad/Apiary/Action.hs
+++ b/src/Control/Monad/Apiary/Action.hs
@@ -27,7 +27,7 @@
     , redirect
     , redirectPermanently, redirectFound, redirectSeeOther, redirectTemporary
     -- * Reexport
-    , def
+    , module Data.Default.Class
     ) where
 
 import Control.Monad.Apiary.Action.Internal
diff --git a/src/Control/Monad/Apiary/Filter.hs b/src/Control/Monad/Apiary/Filter.hs
--- a/src/Control/Monad/Apiary/Filter.hs
+++ b/src/Control/Monad/Apiary/Filter.hs
@@ -10,12 +10,14 @@
     , queryAll, queryAll', queryFirst, queryFirst'
     , function, function'
     -- * Reexport
-    , StdMethod(..)
+    -- StdMethod(..)
+    , module Network.HTTP.Types
     ) where
 
 import Control.Monad
 import Network.Wai
-import Network.HTTP.Types
+import qualified Network.HTTP.Types as Use
+import Network.HTTP.Types (StdMethod(..))
 import qualified Data.ByteString as S
 import Data.Maybe
 
@@ -72,11 +74,11 @@
 hasQuery :: Monad m => S.ByteString -> ApiaryT c m a -> ApiaryT c m a
 hasQuery q = function_ (any ((q ==) . fst) . queryString)
 
-method :: Monad m => Method -> ApiaryT c m a -> ApiaryT c m a
+method :: Monad m => Use.Method -> ApiaryT c m a -> ApiaryT c m a
 method m = function_ ((m ==) . requestMethod)
 
 stdMethod :: Monad m => StdMethod -> ApiaryT c m a -> ApiaryT c m a
-stdMethod = method . renderStdMethod
+stdMethod = method . Use.renderStdMethod
 
 -- | filter by 'Control.Monad.Apiary.Action.rootPattern' of 'Control.Monad.Apiary.Action.ApiaryConfig'.
 root :: Monad m => ApiaryT c m b -> ApiaryT c m b