forked from GitHub/gf-core
28 lines
607 B
Haskell
28 lines
607 B
Haskell
module Structure where
|
|
|
|
data SentenceType = Q | Dir | Top
|
|
deriving (Show,Eq)
|
|
|
|
data NPType = Generic | Impers | Normal | Exist
|
|
deriving (Show,Eq)
|
|
|
|
data VPForm = Cop | Sup | VV | VA
|
|
| V | V2 | V2A | V2Pass
|
|
| Fut | FutKommer
|
|
| VS
|
|
|
|
deriving (Eq,Show)
|
|
|
|
data VForm a
|
|
= VInf | VPart | VSupin | VImp | VTense a
|
|
deriving (Show,Eq)
|
|
|
|
instance Functor VForm where
|
|
fmap f VInf = VInf
|
|
fmap f VPart = VPart
|
|
fmap f VSupin = VSupin
|
|
fmap f VImp = VImp
|
|
fmap f (VTense t) = VTense (f t)
|
|
|
|
|