Rename 'dico' to something more meaningful

lib/Text/Takkyuu/French.hs

@@ -12,7 +12,7 @@ module Text.Takkyuu.French (
 import Data.Char (isSpace, toLower)
 import qualified Data.Map as Map (fromList)
 import qualified Data.Set as Set (fromList)
-import Text.Takkyuu (Game, Label(..), Labeled(..), dico, fuzz, labelizer, rules)
+import Text.Takkyuu (Game, Label(..), Labeled(..), fuzz, lookupTable, labelizer, rules)
 
 data POS =
     Determiner
@@ -43,7 +43,7 @@ typo :: Functor m => Game Char Char m
 typo = fuzz $ Set.fromList ["bh"]
 
 french:: Functor m => Game Char String m
-french = dico toLower isSpace $ Set.fromList ["le", "la", "chat", "lait", "marché"]
+french = lookupTable toLower isSpace $ Set.fromList ["le", "la", "chat", "lait", "marché"]
 
 tag :: Functor m => Game String LabeledWord m
 tag = labelizer (fmap toLower) $ Map.fromList [

lib/Text/Takkyuu/NLP.hs

 module Text.Takkyuu.NLP (
       Label(..)
     , Labeled(..)
-    , dico
     , fuzz
+    , lookupTable
     , labelizer
     , rules
   ) where
@@ -25,8 +25,8 @@ fuzz classes = accept expand back
           ) tmp0 l
       ) Map.empty classes
 
-dico :: (Functor m, Eq k, Ord k) => (a -> k) -> (k -> Bool) -> Set [k] -> Game a [a] m
-dico projector _ vocabulary = start
+lookupTable :: (Functor m, Eq k, Ord k) => (a -> k) -> (k -> Bool) -> Set [k] -> Game a [a] m
+lookupTable projector _ vocabulary = start
   where
     start = Opponent $ continueFrom ([], [vocabulary])
     continueFrom currentState@(stack, candidatesStack) (Here a) =
@@ -68,4 +68,4 @@ labelizer projector labels = accept outputLabels back
       oneOf $ maybe [Labeled a Unknown] (Labeled a . Label <$>) possibleLabels
 
 rules :: (Functor m, Ord k) => (a -> k) -> Set [k] -> Game a [a] m
-rules projector = dico projector undefined
+rules projector = lookupTable projector undefined