diff --git a/yesod-core/Test/CleanPath.hs b/yesod-core/Test/CleanPath.hs
index 4c69483d..1e13d69d 100644
--- a/yesod-core/Test/CleanPath.hs
+++ b/yesod-core/Test/CleanPath.hs
@@ -70,13 +70,6 @@ cleanPathTest =
     ]
 
 runner f = toWaiApp Y >>= runSession f
-defaultRequest = Request
-    { pathInfo = []
-    , requestHeaders = []
-    , queryString = []
-    , rawQueryString = ""
-    , requestMethod = "GET"
-    }
 
 removeTrailingSlash = runner $ do
     res <- request defaultRequest
diff --git a/yesod-core/Test/Exceptions.hs b/yesod-core/Test/Exceptions.hs
index d02638b6..e1fa93a8 100644
--- a/yesod-core/Test/Exceptions.hs
+++ b/yesod-core/Test/Exceptions.hs
@@ -34,12 +34,6 @@ exceptionsTest = describe "Test.Exceptions"
     ]
 
 runner f = toWaiApp Y >>= runSession f
-defaultRequest = Request
-    { pathInfo = []
-    , requestHeaders = []
-    , queryString = []
-    , requestMethod = "GET"
-    }
 
 case500 = runner $ do
     res <- request defaultRequest
diff --git a/yesod-core/Test/Links.hs b/yesod-core/Test/Links.hs
index 5db05e7a..c0a3eaf3 100644
--- a/yesod-core/Test/Links.hs
+++ b/yesod-core/Test/Links.hs
@@ -30,12 +30,6 @@ linksTest = describe "Test.Links"
     ]
 
 runner f = toWaiApp Y >>= runSession f
-defaultRequest = Request
-    { pathInfo = []
-    , requestHeaders = []
-    , queryString = []
-    , requestMethod = "GET"
-    }
 
 case_linkToHome = runner $ do
     res <- request defaultRequest
diff --git a/yesod-core/Test/Media.hs b/yesod-core/Test/Media.hs
index 74f5e208..8bbb85ef 100644
--- a/yesod-core/Test/Media.hs
+++ b/yesod-core/Test/Media.hs
@@ -41,12 +41,6 @@ getRootR = defaultLayout $ do
 getStaticR = getRootR
 
 runner f = toWaiApp Y >>= runSession f
-defaultRequest = Request
-    { pathInfo = []
-    , requestHeaders = []
-    , queryString = []
-    , requestMethod = "GET"
-    }
 
 caseMedia = runner $ do
     res <- request defaultRequest
diff --git a/yesod-core/Test/NoOverloadedStrings.hs b/yesod-core/Test/NoOverloadedStrings.hs
index f533811c..e7948dcd 100644
--- a/yesod-core/Test/NoOverloadedStrings.hs
+++ b/yesod-core/Test/NoOverloadedStrings.hs
@@ -34,12 +34,6 @@ getRootR = return ()
 getFooR = return ()
 
 runner f = toWaiApp Y >>= runSession f
-defaultRequest = Request
-    { pathInfo = []
-    , requestHeaders = []
-    , queryString = []
-    , requestMethod = fromString "GET"
-    }
 
 case_sanity = runner $ do
     res <- request defaultRequest
diff --git a/yesod-core/Test/Widget.hs b/yesod-core/Test/Widget.hs
index 7d45869e..c106db82 100644
--- a/yesod-core/Test/Widget.hs
+++ b/yesod-core/Test/Widget.hs
@@ -77,12 +77,6 @@ widgetTest = describe "Test.Widget"
     ]
 
 runner f = toWaiApp Y >>= runSession f
-defaultRequest = Request
-    { pathInfo = []
-    , requestHeaders = []
-    , queryString = []
-    , requestMethod = "GET"
-    }
 
 case_addJuliusBody = runner $ do
     res <- request defaultRequest