28 lines
653 B
Haskell
28 lines
653 B
Haskell
|
{-# 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 (MonadPlus m) => Lexicon m 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 ::
|