GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-16 14:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

top-level transfer for converting trees; lexicon not included

Browse Source
This commit is contained in:
aarne
2014-02-26 18:03:52 +00:00
parent 88c06f74fc
commit 3a064468c2
3 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/src/experimental/transfer/Both.hs
View File

@@ -292,7 +292,9 @@ type GFloat = Tree GFloat_
data GFloat_
data Tree :: * -> * where
---- GEMeta :: Int -> [forall a . Tree a] -> Tree a
GEMeta :: Int -> [Tree a] -> Tree GPhr_
GAdAP :: GAdA -> GAP -> Tree GAP_
GAdjOrd :: GOrd -> Tree GAP_
GAdvAP :: GAP -> GAdv -> Tree GAP_
@@ -2720,7 +2722,7 @@ instance Gf GVV where
instance Compos Tree where
compos r a f t = case t of
---- GEMeta m x1 -> r (GEMeta m) `a` foldr (a . a (r (:)) . f) (r []) x1
GEMeta m x1 -> r (GEMeta m) `a` foldr (a . a (r (:)) . f) (r []) x1
GAdAP x1 x2 -> r GAdAP `a` f x1 `a` f x2
GAdjOrd x1 -> r GAdjOrd `a` f x1