blob: 1e7cf25780ab577ccdaeb9466f9a6da4d62ba872 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
import System
main = do
file:_ <- getArgs
updates <- readFile file >= return . readUpdates
mapM_ (doUpdate file) updates
return ()
type Update = (FilePath, [String])
readUpdates :: String -> [Update]
readUpdates s = []
doUpdate :: FilePath -> Update -> IO ()
doUpdate src (target,ls) = do
s <- readFile target
let beg = dropLastBracket s
let tmp = tmpFile target
writeFile tmp beg
appendFile tmp $ unlines [(line ++ "-- UPDATE FROM " ++ src) | line <- ls]
appendFile tmp "\n}\n"
dropLastBracket s = s
|
