1 files changed, 27 insertions, 0 deletions
diff --git a/treebanks/talbanken/Structure.hs b/treebanks/talbanken/Structure.hs
new file mode 100644
index 000000000..379f89761
--- /dev/null
+++ b/treebanks/talbanken/Structure.hs
@@ -0,0 +1,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)
+
+