diff --git a/Command/P2PHttp.hs b/Command/P2PHttp.hs index 910b0151c5..140b2d4c94 100644 --- a/Command/P2PHttp.hs +++ b/Command/P2PHttp.hs @@ -302,7 +302,7 @@ findRepos o = do -- cycles and in case there is an unexpected -- symlink to some other directory we are not -- supposed to serve. - ifM (isSymbolicLink <$> R.getSymbolicLinkStatus f) + ifM (isSymbolicLink <$> R.getSymbolicLinkStatus (fromOsPath f)) ( return [] -- Ignore any errors getting the contents of a -- subdirectory.