From 0bb6decd18bffddf889f1daa5ed8c7ca9fadabc9 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Sat, 13 Mar 2021 19:12:34 -0500 Subject: allow / in debs to specify package version in "packages:" section by debian release codename --- fsmgr.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.3