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

avoid strictness problem

Browse source
This commit is contained in:
Joey Hess 2019-01-22 19:37:49 -04:00
parent 016ebde0d5
commit c62d2ce5c5
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Build/Version.hs
View file

@ -14,6 +14,7 @@ import Prelude
import Utility.Monad import Utility.Monad
import Utility.Exception import Utility.Exception
import Utility.Misc
type Version = String type Version = String
@ -55,7 +56,7 @@ getChangelogVersion = do
middle = drop 1 . init middle = drop 1 . init
writeVersion :: Version -> IO () writeVersion :: Version -> IO ()
writeVersion ver = catchMaybeIO (readFile f) >>= \case writeVersion ver = catchMaybeIO (readFileStrict f) >>= \case
Just s | s == body -> return () Just s | s == body -> return ()
_ -> writeFile f body _ -> writeFile f body
where where