From fc8be14dd0089eb12b78af7aaaecd8ed57896677 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 7 Aug 2019 21:27:59 +0200
Subject: Update category according to payment in add overlay

---
 common/src/Common/Util/Text.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'common/src/Common/Util/Text.hs')

diff --git a/common/src/Common/Util/Text.hs b/common/src/Common/Util/Text.hs
index b49fc55..d7f1db4 100644
--- a/common/src/Common/Util/Text.hs
+++ b/common/src/Common/Util/Text.hs
@@ -1,15 +1,16 @@
 module Common.Util.Text
   ( search
-  , unaccent
+  , formatSearch
   ) where
 
 import           Data.Text (Text)
 import qualified Data.Text as T
 
 search :: Text -> Text -> Bool
-search s t =
-  (format s) `T.isInfixOf` (format t)
-  where format = T.toLower . unaccent
+search s t = (formatSearch s) `T.isInfixOf` (formatSearch t)
+
+formatSearch :: Text -> Text
+formatSearch = T.toLower . unaccent
 
 unaccent :: Text -> Text
 unaccent = T.map unaccentChar
-- 
cgit v1.2.3