haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Placed App after mkYesod in the RawResponse test.

Browse Source
This commit is contained in:
Daniel Díaz 2015-08-23 22:53:13 +02:00
parent e77f6bd709
commit 5375bacf81
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-core/test/YesodCoreTest/RawResponse.hs
View File

@ -24,14 +24,14 @@ import Data.Streaming.Network (bindPortTCP)
import Network.HTTP.Types (status200) import Network.HTTP.Types (status200)
import Blaze.ByteString.Builder (fromByteString) import Blaze.ByteString.Builder (fromByteString)
data App = App
mkYesod "App" [parseRoutes| mkYesod "App" [parseRoutes|
/ HomeR GET / HomeR GET
/wai-stream WaiStreamR GET /wai-stream WaiStreamR GET
/wai-app-stream WaiAppStreamR GET /wai-app-stream WaiAppStreamR GET
|] |]
data App = App
instance Yesod App instance Yesod App
getHomeR :: Handler () getHomeR :: Handler ()