blob: 379f897615d4c8438d07493ef665fefdfd182b0c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
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)
|
