remove redundant pattern match

brilliant spot by new ghc

diff --git a/Command/Export.hs b/Command/Export.hs
index af392692b366a28c0bb07762ba38e4465e9f0b37..b5e61487687ea1f34ce47aea984a87e75e15917d 100644 (file)
--- 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