From 5375bacf8183039c3c7fa2eeafffa627cc08f4ed Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20D=C3=ADaz?= Date: Sun, 23 Aug 2015 22:53:13 +0200 Subject: [PATCH] Placed App after mkYesod in the RawResponse test. --- yesod-core/test/YesodCoreTest/RawResponse.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/yesod-core/test/YesodCoreTest/RawResponse.hs b/yesod-core/test/YesodCoreTest/RawResponse.hs index e4977afb..fd71a16a 100644 --- a/yesod-core/test/YesodCoreTest/RawResponse.hs +++ b/yesod-core/test/YesodCoreTest/RawResponse.hs @@ -24,14 +24,14 @@ import Data.Streaming.Network (bindPortTCP) import Network.HTTP.Types (status200) import Blaze.ByteString.Builder (fromByteString) -data App = App - mkYesod "App" [parseRoutes| / HomeR GET /wai-stream WaiStreamR GET /wai-app-stream WaiAppStreamR GET |] +data App = App + instance Yesod App getHomeR :: Handler ()