1st infinitive long

2026-06-26 11:36:27 -06:00 · 2023-08-21 15:58:57 +03:00
parent 98128cedd7
commit f08c9c0c93
3 changed files with 39 additions and 9 deletions
@@ -7,7 +7,7 @@ import PGF
 import Data.List

 data Fact = Fact {
-  content  :: Maybe Fact,
+  content  :: [Fact],
  tense    :: Maybe GTemp,
  polarity :: Maybe GPol,
  source   :: Maybe GNP,
@@ -16,7 +16,7 @@ data Fact = Fact {
  action   :: Maybe GVP
  }

-initFact = Fact Nothing Nothing Nothing Nothing Nothing Nothing Nothing
+initFact = Fact [] Nothing Nothing Nothing Nothing Nothing Nothing

 factTree fact = case action fact of
  (Just vp) ->