diff options
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 |