From 1d7fdd423d8ab1b2ca437020f57b417055a95aac Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Fri, 7 Jun 2024 18:49:11 -0700 Subject: [PATCH] ;tools: Shake: fix partial warnings --- Shake.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Shake.hs b/Shake.hs index e62d7dcb2..17f76ea87 100755 --- a/Shake.hs +++ b/Shake.hs @@ -328,14 +328,14 @@ main = do "hledger*/.version.m4" %> \out -> do let versionfile = takeDirectory out ".version" 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 -- PKG/package.yaml <- PKG/.version, just updates version strings "hledger*/package.yaml" %> \out -> do let versionfile = takeDirectory out ".version" need [versionfile] - version <- ((head . words) <$>) $ liftIO $ readFile versionfile + version <- ((headDef (error $ "failed to read " <> versionfile) . words) <$>) $ liftIO $ readFile versionfile let ma:jor:_ = splitOn "." version nextmajorversion = intercalate "." [ma, show $ read jor+1]