This commit is contained in:
nek0 2016-08-24 20:03:18 +02:00
parent 050ff88b61
commit d5ad8b4fb8

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 b
runBH' :: BH m a -> m a
runBH' action = do
master <- getYesod
let s = appSearchHost $ appSettings master