Fix ambiguous defaultRequest in yesod-core tests

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

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

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

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

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

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