diff options
Diffstat (limited to 'examples/phrasebook/Update.hs')
| -rw-r--r-- | examples/phrasebook/Update.hs | 6 |
1 files changed, 5 insertions, 1 deletions
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 + |