From 8d9816ee988da6b12d590cba89fa1764ab66b0bf Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Thu, 8 May 2014 11:38:41 +0000
Subject: [PATCH] PGF web api, command c-wordforword: re-enable parsing of
 individual words

The space leak in the Haskell binding to the C parser has been fixed.
---
 src/server/PGFService.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs
index e6c229106..3441554ec 100644
--- a/src/server/PGFService.hs
+++ b/src/server/PGFService.hs
@@ -200,15 +200,12 @@ cpgfMain command (t,(pgf,pc)) =
 
         parse_word w =
             maybe (Left ("["++w++"]")) Right $
-            msum [{-parse1 w,parse1 ow,-}morph w,morph ow]
-               -- omit parsing for now, to avoid space leaks
+            msum [parse1 w,parse1 ow,morph w,morph ow]
           where
             ow = if w==lw then capitInit w else lw
             lw = uncapitInit w
-{-
             parse1 = either (const Nothing) (fmap fst . listToMaybe) .
                      C.parse concr cat
--}
             morph w = listToMaybe
                         [t | (f,a,p)<-C.lookupMorpho concr w,
                              t<-maybeToList (C.readExpr f)]