From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 28 Jun 2022 19:40:27 +0000 (-0400)
Subject: remove redundant pattern match
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~72^2~126
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=543993b0687605c541c71300d03e781557ae087d;p=git-annex.git

remove redundant pattern match

brilliant spot by new ghc
---

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