From 3dec0a8944cdc76045d1dcd32f573cf121a52b19 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Thu, 14 Aug 2025 12:56:31 +0100 Subject: [PATCH] dev: indentation --- hledger-lib/Hledger/Read/RulesReader.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/hledger-lib/Hledger/Read/RulesReader.hs b/hledger-lib/Hledger/Read/RulesReader.hs index b6f9141c6..5d5cd7c8f 100644 --- a/hledger-lib/Hledger/Read/RulesReader.hs +++ b/hledger-lib/Hledger/Read/RulesReader.hs @@ -148,10 +148,10 @@ parse iopts rulesfile h = do let msource = T.unpack <$> getDirective "source" rules -- WISH: when not importing, and the source rule matches no files, read the latest archived file datafiles <- case msource of - Just glb -> expandGlob dir (dbg4 "source" glb) >>= sortByModTime <&> dbg4 ("matched files"<>desc<>", newest first") - where (dir,desc) = if isFileName glb then (dldir," in download directory") else (rulesdir,"") - Nothing -> return [maybe err (dbg4 "inferred source") $ dataFileFor rulesfile] -- shouldn't fail, f has .rules extension - where err = error' $ "could not infer a data file for " <> rulesfile + Just glb -> expandGlob dir (dbg4 "source" glb) >>= sortByModTime <&> dbg4 ("matched files"<>desc<>", newest first") + where (dir,desc) = if isFileName glb then (dldir," in download directory") else (rulesdir,"") + Nothing -> return [maybe err (dbg4 "inferred source") $ dataFileFor rulesfile] -- shouldn't fail, f has .rules extension + where err = error' $ "could not infer a data file for " <> rulesfile return $ case datafiles of [] -> Nothing [f] | importcmd -> dbg4 "importing" <$> Just f