Skip to content

Commit

Permalink
[temporary] Clarify comment
Browse files Browse the repository at this point in the history
  • Loading branch information
aeqz committed Jan 24, 2023
1 parent ca765c8 commit 446b52b
Showing 1 changed file with 6 additions and 0 deletions.
6 changes: 6 additions & 0 deletions src/Xrefcheck/System.hs
Original file line number Diff line number Diff line change
Expand Up @@ -49,6 +49,10 @@ askWithinCI = lookupEnv "CI" <&> \case
-- This type exist in contrast to 'FilePath' which, in this project,
-- is used for platform-dependent file paths and related filesystem
-- IO operations.
--
-- Note that `RelPosixLink` may contain `\` characters, but they are
-- considered as part of the filename instead of denoting a path
-- separator.
newtype RelPosixLink = RelPosixLink
{ unRelPosixLink :: Text
} deriving newtype (Show, Eq, Ord, NFData, Buildable, Pretty)
Expand All @@ -72,6 +76,8 @@ RelPosixLink a </> RelPosixLink b =
-- Get the platform-dependent file path from a 'RelPosixLink'
-- considered as relative to another given platform-dependent
-- 'FilePath'.
--
-- In Windows, every `\` occurrence will be replaced by `/`.
filePathFromRoot :: FilePath -> RelPosixLink -> FilePath
filePathFromRoot rootPath = (rootPath FP.</>)
. toString
Expand Down

0 comments on commit 446b52b

Please sign in to comment.