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

Fix tests for unwrapping hook

Browse Source
This commit is contained in:
Eric Easley 2015-12-10 09:53:55 -08:00
parent 56c19a2cd3
commit 21e49c7710
3 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
yesod-core/Yesod/Routes/TH/Dispatch.hs
View File

@ -13,7 +13,6 @@ import Control.Monad (forM)
import Data.List (foldl') import Data.List (foldl')
import Control.Arrow (second) import Control.Arrow (second)
import System.Random (randomRIO) import System.Random (randomRIO)
import Yesod.Core.Types (HandlerT)
import Yesod.Routes.TH.Types import Yesod.Routes.TH.Types
import Data.Char (toLower) import Data.Char (toLower)

1
yesod-core/test/Hierarchy.hs
View File

@ -119,6 +119,7 @@ do
, mds404 = [|pack "404"|] , mds404 = [|pack "404"|]
, mds405 = [|pack "405"|] , mds405 = [|pack "405"|]
, mdsGetHandler = defaultGetHandler , mdsGetHandler = defaultGetHandler
, mdsUnwrapper = return
} resources } resources
return return
$ InstanceD $ InstanceD

1
yesod-core/test/RouteSpec.hs
View File

@ -92,6 +92,7 @@ do
, mds404 = [|pack "404"|] , mds404 = [|pack "404"|]
, mds405 = [|pack "405"|] , mds405 = [|pack "405"|]
, mdsGetHandler = defaultGetHandler , mdsGetHandler = defaultGetHandler
, mdsUnwrapper = return
} ress } ress
return return
$ InstanceD $ InstanceD