11 lines
184 B
Haskell
11 lines
184 B
Haskell
{-# LANGUAGE MultiParamTypeClasses #-}
|
|
|
|
module Lexicon (Lexicon,dic)
|
|
where
|
|
|
|
import Control.Monad.Plus
|
|
|
|
|
|
class (MonadPlus m) => Lexicon m a d where
|
|
dic :: d -> String -> m a
|