1 files changed, 1 insertions, 1 deletions
diff --git a/fsmgr.hs b/fsmgr.hs
index a60b2bd..948ef8b 100644
--- a/fsmgr.hs
+++ b/fsmgr.hs
@@ -317,7 +317,7 @@ ignoreErrors :: Action () -> Action ()
 ignoreErrors = flip actionCatch (\(SomeException _) -> return ())
 partitionPackages :: [String] -> ([String], [String])
-partitionPackages = partition (elem '/')
+partitionPackages = partition (".deb" `isSuffixOf`)
 consWhen :: a -> Bool -> [a] -> [a]
 a `consWhen` c = if c then (a:) else id

diff --git a/fsmgr.hs b/fsmgr.hs index a60b2bd..948ef8b 100644 --- a/fsmgr.hs +++ b/fsmgr.hs
@@ -317,7 +317,7 @@ ignoreErrors :: Action () -> Action ()
317	ignoreErrors = flip actionCatch (\(SomeException _) -> return ())	317	ignoreErrors = flip actionCatch (\(SomeException _) -> return ())
318		318
319	partitionPackages :: [String] -> ([String], [String])	319	partitionPackages :: [String] -> ([String], [String])
320	partitionPackages = partition (elem '/')	320	partitionPackages = partition (".deb" `isSuffixOf`)
321		321
322	consWhen :: a -> Bool -> [a] -> [a]	322	consWhen :: a -> Bool -> [a] -> [a]
323	a `consWhen` c = if c then (a:) else id	323	a `consWhen` c = if c then (a:) else id