From d5ad8b4fb8848cd3710eae174927c7d3719d4198 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Wed, 24 Aug 2016 20:03:18 +0200
Subject: [PATCH] oops

---
 Handler/Commons.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Handler/Commons.hs b/Handler/Commons.hs
index 9341129..76bff0c 100755
--- a/Handler/Commons.hs
+++ b/Handler/Commons.hs
@@ -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