GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-01 23:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

added type signature for expr2tree to make it visible for haddock

Browse Source
This commit is contained in:
krasimir
2008-06-23 14:12:40 +00:00
parent 65b2670ce7
commit cec5143092
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src-3.0/PGF/Expr.hs
View File

@@ -165,6 +165,7 @@ tree2expr (Var x) = EVar x
-- | Converts an expression to tree. If the expression -- | Converts an expression to tree. If the expression
-- contains unevaluated applications they will be applied. -- contains unevaluated applications they will be applied.
expr2tree :: Expr -> Tree
expr2tree e = value2tree (eval Map.empty e) [] [] expr2tree e = value2tree (eval Map.empty e) [] []
where where
value2tree (VApp v1 v2) xs ts = value2tree v1 xs (value2tree v2 [] []:ts) value2tree (VApp v1 v2) xs ts = value2tree v1 xs (value2tree v2 [] []:ts)