-- | Look up a word in the dictionary, to get all other words which it could be
-- under application of some key.
lookup :: Dictionary -> Text.Text -> [Text.Text]
lookup (Dictionary m) t = filter (/= t)
                        $ fromMaybe [] (fingerprint t >>= flip Map.lookup m)
lookup :: Dictionary -> Text.Text -> [Text.Text]
lookup (Dictionary m) t = filter (/= t)
                        $ fromMaybe [] (fingerprint t >>= flip Map.lookup m)
lookup (Dictionary m) t = filter (/= t)
                        $ fromMaybe [] (fingerprint t >>= flip Map.lookup m)