Fix tests for unwrapping hook

yesod-core/Yesod/Routes/TH/Dispatch.hs

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

yesod-core/test/Hierarchy.hs

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

yesod-core/test/RouteSpec.hs

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