nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

oops

Browse source
This commit is contained in:
nek0 2016-08-24 20:03:18 +02:00
parent 050ff88b61
commit d5ad8b4fb8
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Handler/Commons.hs
View file

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