mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

only show files that are really changed

Browse source
This commit is contained in:
Joey Hess 2013-04-15 12:11:27 -04:00
parent 21f93de33c
commit c172bf7092
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Build/EvilSplicer.hs
View file

@ -197,14 +197,14 @@ applySplices :: FilePath -> Maybe String -> [Splice] -> IO ()
applySplices destdir imports splices@(first:_) = do applySplices destdir imports splices@(first:_) = do
let f = splicedFile first let f = splicedFile first
let dest = (destdir </> f) let dest = (destdir </> f)
putStrLn $ "splicing " ++ f
lls <- map (++ "\n") . lines <$> readFileStrict f lls <- map (++ "\n") . lines <$> readFileStrict f
createDirectoryIfMissing True (parentDir dest) createDirectoryIfMissing True (parentDir dest)
let newcontent = concat $ addimports $ let newcontent = concat $ addimports $
expanddeclarations declarationsplices $ expanddeclarations declarationsplices $
expandexpressions lls expressionsplices expandexpressions lls expressionsplices
oldcontent <- catchMaybeIO $ readFileStrict dest oldcontent <- catchMaybeIO $ readFileStrict dest
when (oldcontent /= Just newcontent) $ when (oldcontent /= Just newcontent) $ do
putStrLn $ "splicing " ++ f
writeFile dest newcontent writeFile dest newcontent
where where
(expressionsplices, declarationsplices) = (expressionsplices, declarationsplices) =