From 8171bb0ea2dffe9e0a99e06815bf46182671137d Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Wed, 7 Apr 2010 19:39:48 +0000
Subject: reordered phrasebook sources so that they are easier to clone; cloned
 Ger,Spa,Cat,Bul

---
 examples/phrasebook/Clone.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/examples/phrasebook/Clone.hs b/examples/phrasebook/Clone.hs
index 8d7e2eeeb..2959b5fc1 100644
--- a/examples/phrasebook/Clone.hs
+++ b/examples/phrasebook/Clone.hs
@@ -51,4 +51,4 @@ commentBody ss = header ++ map comment body ++ ["}"] where
   isJment ws = case ws of
     k:_ | elem k ["flags","lin","lincat","oper","param"] -> True
     _ -> False
-  comment l = "-- " ++ l
+  comment l = if take 2 l == "--" then l else "-- " ++ l
-- 
cgit v1.2.3