Skip to content

Commit e6b3fa0

Browse files
committed
dev:IO: comments
1 parent 9523cb8 commit e6b3fa0

File tree

1 file changed

+3
-2
lines changed
  • hledger-lib/Hledger/Utils

1 file changed

+3
-2
lines changed

hledger-lib/Hledger/Utils/IO.hs

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -450,12 +450,13 @@ expandHomePath = \case
450450
-- ~username is not supported. Leaves "-" unchanged. Can raise an error.
451451
expandPath :: FilePath -> FilePath -> IO FilePath -- general type sig for use in reader parsers
452452
expandPath _ "-" = return "-"
453-
expandPath curdir p = (if isRelative p then (curdir </>) else id) <$> expandHomePath p
453+
expandPath curdir p = (if isRelative p then (curdir </>) else id) <$> expandHomePath p -- PARTIAL:
454454

455455
-- | Like expandPath, but treats the expanded path as a glob, and returns
456456
-- zero or more matched absolute file paths, alphabetically sorted.
457+
-- Can raise an error.
457458
expandGlob :: FilePath -> FilePath -> IO [FilePath]
458-
expandGlob curdir p = expandPath curdir p >>= glob <&> sort
459+
expandGlob curdir p = expandPath curdir p >>= glob <&> sort -- PARTIAL:
459460

460461
-- | Given a list of existing file paths, sort them by modification time, most recent first.
461462
sortByModTime :: [FilePath] -> IO [FilePath]

0 commit comments

Comments
 (0)