2017-01-14 16:13:50 +01:00
|
|
|
{-# 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
|
|
|
|
|
2017-03-16 09:03:46 +01:00
|
|
|
instance WeightedLexicon IPITag PM.Dic where
|
2017-01-14 16:13:50 +01:00
|
|
|
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 ::
|