2017-01-14 16:13:50 +01:00
|
|
|
module Base (
|
|
|
|
Ind,
|
|
|
|
Wordform,
|
2017-03-16 09:03:46 +01:00
|
|
|
Arc (Head,Dep,Root)
|
2017-01-14 16:13:50 +01:00
|
|
|
) where
|
|
|
|
|
|
|
|
type Ind = Int
|
|
|
|
type Wordform = String
|
|
|
|
data Arc τ = Head { role :: τ, dst :: Ind }
|
|
|
|
| Dep { role :: τ, dst :: Ind }
|
2017-03-16 09:03:46 +01:00
|
|
|
| Root
|
2017-01-14 16:13:50 +01:00
|
|
|
deriving (Show,Eq,Ord)
|
|
|
|
|