rename Lib to Text.Spellcheck

app/Main.hs

@@ -1,9 +1,8 @@
 {-# LANGUAGE OverloadedStrings #-}
-import Lib
+import Text.Spellcheck
 import qualified Data.Text as T
 import qualified Data.List as L
 
-import qualified Dhall
 import Options.Applicative
 import Data.Semigroup ((<>))
 

bench/Main.hs

@@ -1,5 +1,5 @@
 import Criterion.Main
-import Lib
+import Text.Spellcheck
 
 main :: IO ()
 main = defaultMain [

src/Text/Spellcheck.hs

@@ -12,22 +12,13 @@ file and a prose file, and returns a stream of words and possible
 substitutions. The library is responsible for generating that list.
 -}
 {-# LANGUAGE OverloadedStrings #-}
-module Lib (Suggestion(..), spellcheck, suggestions, lDistance) where
+module Text.Spellcheck (Suggestion(..), spellcheck, suggestions, lDistance) where
 import qualified Data.Text as T
 import Data.List
 import Data.Array
 
 
-data Suggestion a = Suggestion Int a
-
-instance (Show a) => Show (Suggestion a) where
-  show (Suggestion i a) = "Suggestion" ++ show a ++ ", distance " ++ show i
-
-instance (Eq a) => Eq (Suggestion a) where
-  (Suggestion a b) == (Suggestion c d) = (a == c) && (b == d)
-
-instance (Ord a) => Ord (Suggestion a) where
-  (Suggestion i _) <= (Suggestion j _) = i <= j
+data Suggestion a = Suggestion Int a deriving (Show, Ord, Eq)
 
 spellcheck :: (Ord a) => [[a]] -> [[a]] -> [([a], [Suggestion [a]])]
 spellcheck dict words = zip words $ map (suggestions dict) words

test/Spec.hs

@@ -9,7 +9,7 @@ import Test.Tasty
 import Test.Tasty.Hedgehog
 import Test.Tasty.TH
 
-import Lib
+import Text.Spellcheck
 import Data.Text as T hiding (head, last, length, null)
 import Data.List