This commit is contained in:
nek0 2016-08-24 20:06:49 +02:00
parent d5ad8b4fb8
commit c059b6df44

View file

@ -172,7 +172,7 @@ checkResponseES resp =
200 -> return ()
code -> error $ (show code) ++ ": " ++ (C.unpack $ BL.toStrict $ responseBody resp)
runBH' :: BH m a -> m a
-- runBH' :: BH m (HandlerSite m) -> m a
runBH' action = do
master <- getYesod
let s = appSearchHost $ appSettings master