From c059b6df44b0ec9c6ee967c39ca27c627921846a Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Wed, 24 Aug 2016 20:06:49 +0200
Subject: [PATCH] damn

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

diff --git a/Handler/Commons.hs b/Handler/Commons.hs
index 76bff0c..0e15e93 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 a
+-- runBH' :: BH m (HandlerSite m) -> m a
 runBH' action = do
   master <- getYesod
   let s = appSearchHost $ appSettings master