From 6d6d9152e9d2087e626e0b637f1f8eb0216260f7 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Sat, 27 Aug 2016 13:39:30 +0200
Subject: [PATCH] oops

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

diff --git a/Handler/Search.hs b/Handler/Search.hs
index 165227d..c42136e 100755
--- a/Handler/Search.hs
+++ b/Handler/Search.hs
@@ -118,7 +118,7 @@ getResults query = do
     , fuzzyQueryPrefixLength  = PrefixLength 0
     , fuzzyQueryMaxExpansions = MaxExpansions 50
     , fuzzyQueryFuzziness     = Fuzziness 0.6
-    , fuzzyQueryBoost         = Boost 1.0
+    , fuzzyQueryBoost         = Just (Boost 1.0)
     }
   su <- runBH' $ searchByIndex (IndexName "user") $ mkSearch (Just esQuery) Nothing
   sa <- runBH' $ searchByIndex (IndexName "album") $ mkSearch (Just esQuery) Nothing