From 4a830d9fb760f913782455493aff5cea82c1bc87 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Tue, 21 Feb 2023 22:48:22 +0800 Subject: [PATCH] Fix regression in JFS support, fixes #787 --- lib/GHCup/Prelude/File/Posix/Traversals.hsc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/GHCup/Prelude/File/Posix/Traversals.hsc b/lib/GHCup/Prelude/File/Posix/Traversals.hsc index 5620530..8c3e876 100644 --- a/lib/GHCup/Prelude/File/Posix/Traversals.hsc +++ b/lib/GHCup/Prelude/File/Posix/Traversals.hsc @@ -124,7 +124,6 @@ readDirEntPortable (DirStreamPortable (basedir, dirs)) = do (DirType #{const DT_LNK}, _) -> pure (dt, fp) (DirType #{const DT_REG}, _) -> pure (dt, fp) (DirType #{const DT_SOCK}, _) -> pure (dt, fp) - (DirType #{const DT_UNKNOWN}, _) -> pure (dt, fp) (_, _) | fp /= "" -> do stat <- getSymbolicLinkStatus (basedir fp) @@ -136,4 +135,5 @@ readDirEntPortable (DirStreamPortable (basedir, dirs)) = do | isRegularFile stat -> DirType #{const DT_REG} | isSocket stat -> DirType #{const DT_SOCK} | otherwise -> DirType #{const DT_UNKNOWN} + | otherwise -> pure (dt, fp)