fdp2/PoliMorf.hs

{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE FlexibleInstances #-}

module PoliMorf (
                 module Data.ADTTag.IPITag,
                 module PM -- Data.ADTTag.IPITag.PoliMorf
                ) where

import Control.Monad.Plus
import Lexicon
import Data.ADTTag.IPITag
import qualified Data.ADTTag.IPITag.PoliMorf as PM
    
instance WeightedLexicon IPITag PM.Dic where
    dic = PM.dic



-- data SynTag = SUBST' Name1
--             | FIN'
--             | PREP' Prep
--             deriving (Show,Eq,Ord)

-- data Name1 = Common | Proper

-- data Prep = PrepPod | PrepDo | PrepNa | PrepW | PrepPrzez | PrepPod
-- syn ::