diff options
| author | aarne <aarne@chalmers.se> | 2010-04-07 19:39:48 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-04-07 19:39:48 +0000 |
| commit | 8171bb0ea2dffe9e0a99e06815bf46182671137d (patch) | |
| tree | 10116fbbf6f48e005c7961c6bb5439f7fa3e3d18 /examples/phrasebook/Clone.hs | |
| parent | aeb0a5b7e073bec56365185beed3311cf65c65aa (diff) | |
reordered phrasebook sources so that they are easier to clone; cloned Ger,Spa,Cat,Bul
Diffstat (limited to 'examples/phrasebook/Clone.hs')
| -rw-r--r-- | examples/phrasebook/Clone.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |