fdp2/Lexicon.hs

{-# LANGUAGE MultiParamTypeClasses #-}

module Lexicon (Lexicon,dic)
       where

import Control.Monad.Plus


class (MonadPlus m) => Lexicon m a d where
    dic :: d -> String -> m a