From 543993b0687605c541c71300d03e781557ae087d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 28 Jun 2022 15:40:27 -0400 Subject: [PATCH] remove redundant pattern match brilliant spot by new ghc --- Command/Export.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/Command/Export.hs b/Command/Export.hs index af392692b3..b5e6148768 100644 --- a/Command/Export.hs +++ b/Command/Export.hs @@ -518,9 +518,7 @@ filterExport r tree = logExportExcluded (uuid r) $ \logwriter -> do Nothing | issymlink -> catKey sha >>= \case Just _ -> return (Just ti) - Nothing - | issymlink -> excluded - | otherwise -> return (Just ti) + Nothing -> excluded | otherwise -> return (Just ti) Just matcher -> catKey sha >>= \case Just k -> checkmatcher matcher k