Add search input

1 files changed, 5 insertions, 8 deletions

diff --git a/src/Format.purs b/src/Format.purs
index bed5927..e8ab661 100644
--- a/src/Format.purs
+++ b/src/Format.purs
@@ -1,17 +1,15 @@
 module Format
   ( number
-  , compare
+  , string
   , unaccent
   ) where
 
-import Data.Int (toNumber, fromNumber)
 import Data.Array (replicate)
+import Data.Int (toNumber, fromNumber)
 import Data.Maybe (fromMaybe)
 import Data.String (length, joinWith, fromCharArray, toCharArray, toLower)
 import Math (round, trunc, pow)
-
-import Prelude hiding (compare)
-import Prelude as Prelude
+import Prelude
 
 number :: Int -> Number -> String
 number decimalLength num = formattedIntegerPart <> formattedDecimalPart
@@ -33,9 +31,8 @@ number decimalLength num = formattedIntegerPart <> formattedDecimalPart
     else
       ""
 
-compare :: String -> String -> Ordering
-compare xs ys = Prelude.compare (formatString xs) (formatString ys)
-  where formatString = unaccent <<< toLower
+string :: String -> String
+string = unaccent <<< toLower
 
 unaccent :: String -> String
 unaccent = fromCharArray <<< map unaccentChar <<< toCharArray