diff options
| author | krasimir <krasimir@chalmers.se> | 2008-05-30 09:10:28 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-05-30 09:10:28 +0000 |
| commit | 1172539a9544ed999c565053b79cf6a30ec14de4 (patch) | |
| tree | e6b5e023fcede14ae7750e68c63154ac18b68940 /src-3.0/PGF/Parsing/FCFG | |
| parent | 1077fa1f30c0714933d02cf4b9c20cbe30fd9876 (diff) | |
change the PGF.Data.Exp type
Diffstat (limited to 'src-3.0/PGF/Parsing/FCFG')
| -rw-r--r-- | src-3.0/PGF/Parsing/FCFG/Utilities.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src-3.0/PGF/Parsing/FCFG/Utilities.hs b/src-3.0/PGF/Parsing/FCFG/Utilities.hs index b33d5ccaa..e435c6154 100644 --- a/src-3.0/PGF/Parsing/FCFG/Utilities.hs +++ b/src-3.0/PGF/Parsing/FCFG/Utilities.hs @@ -180,8 +180,8 @@ applyProfileToForest (FMeta) = [FMeta] forest2exps :: SyntaxForest CId -> [Exp] -forest2exps (FNode n forests) = map (DTr [] (AC n)) $ forests >>= mapM forest2exps -forest2exps (FString s) = [DTr [] (AS s) []] -forest2exps (FInt n) = [DTr [] (AI n) []] -forest2exps (FFloat f) = [DTr [] (AF f) []] -forest2exps (FMeta) = [DTr [] (AM 0) []] +forest2exps (FNode n forests) = map (EApp n) $ forests >>= mapM forest2exps +forest2exps (FString s) = [EStr s] +forest2exps (FInt n) = [EInt n] +forest2exps (FFloat f) = [EFloat f] +forest2exps (FMeta) = [EMeta 0] |