|
{-# LANGUAGE MultiParamTypeClasses #-}
|
|
|
|
module Lexicon (WeightedLexicon,dic)
|
|
where
|
|
|
|
import Control.Monad.Plus
|
|
import Weighted
|
|
|
|
-- class (MonadPlus m) => Lexicon m a d where
|
|
-- dic :: d -> String -> m a
|
|
|
|
class WeightedLexicon a d where
|
|
dic :: d -> String -> WeightedList a
|