simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-18 17:57:11 +03:00
Code Issues Projects Releases Wiki Activity

;tools: Shake: fix partial warnings

Browse Source
This commit is contained in:
Simon Michael 2024-06-07 18:49:11 -07:00
parent 8e0326b521
commit 1d7fdd423d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Shake.hs
View File

@ -328,14 +328,14 @@ main = do
"hledger*/.version.m4" %> \out -> do "hledger*/.version.m4" %> \out -> do
let versionfile = takeDirectory out </> ".version" let versionfile = takeDirectory out </> ".version"
need [versionfile] need [versionfile]
version <- ((head . words) <$>) $ liftIO $ readFile versionfile version <- ((headDef (error $ "failed to read " <> versionfile) . words) <$>) $ liftIO $ readFile versionfile
cmd_ Shell sed "-i -e" ("'s/(_version_}}, *)\\{\\{[^}]+/\\1{{"++version++"/;'") out cmd_ Shell sed "-i -e" ("'s/(_version_}}, *)\\{\\{[^}]+/\\1{{"++version++"/;'") out
-- PKG/package.yaml <- PKG/.version, just updates version strings -- PKG/package.yaml <- PKG/.version, just updates version strings
"hledger*/package.yaml" %> \out -> do "hledger*/package.yaml" %> \out -> do
let versionfile = takeDirectory out </> ".version" let versionfile = takeDirectory out </> ".version"
need [versionfile] need [versionfile]
version <- ((head . words) <$>) $ liftIO $ readFile versionfile version <- ((headDef (error $ "failed to read " <> versionfile) . words) <$>) $ liftIO $ readFile versionfile
let ma:jor:_ = splitOn "." version let ma:jor:_ = splitOn "." version
nextmajorversion = intercalate "." [ma, show $ read jor+1] nextmajorversion = intercalate "." [ma, show $ read jor+1]