diff --git a/src/Xrefcheck/Scan.hs b/src/Xrefcheck/Scan.hs index 2cdee8c1..444cd998 100644 --- a/src/Xrefcheck/Scan.hs +++ b/src/Xrefcheck/Scan.hs @@ -181,7 +181,7 @@ readDirectoryWith -> CanonicalPath -> IO [(CanonicalPath, a)] readDirectoryWith mode config scanner root = do - relativeFiles <- L.lines <$> getFiles + relativeFiles <- fmap filePath . L.lines <$> getFiles canonicalFiles <- mapM (root FilePath + filePath = \case + quoted@('\"' : _) -> fromMaybe quoted $ readMaybe quoted + unquoted -> unquoted + scanFile :: CanonicalPath -> IO (CanonicalPath, a) scanFile c = (c,) <$> scanner c