From 0138e6bba1d593fcdf5417dc8596c63757585796 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Thu, 8 Apr 2010 20:31:32 +0000
Subject: German phrasebook; ontology document; ignoring single lines in gfdoc

---
 examples/phrasebook/Update.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'examples/phrasebook/Update.hs')

diff --git a/examples/phrasebook/Update.hs b/examples/phrasebook/Update.hs
index 1e7cf2578..3d9232d61 100644
--- a/examples/phrasebook/Update.hs
+++ b/examples/phrasebook/Update.hs
@@ -20,4 +20,8 @@ doUpdate src (target,ls) = do
   appendFile tmp $ unlines [(line ++ "-- UPDATE FROM " ++ src) | line <- ls]
   appendFile tmp "\n}\n"
 
-dropLastBracket s = s
+tmpFile file = "tmp-update/"++ file
+
+---- quick and dirty
+dropLastBracket = reverse . init . dropWhile (/='}') . reverse
+
-- 
cgit v1.2.3