summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndrew Cady <d@jerkface.net>2021-03-13 19:12:34 -0500
committerAndrew Cady <d@jerkface.net>2021-03-13 19:12:34 -0500
commit0bb6decd18bffddf889f1daa5ed8c7ca9fadabc9 (patch)
treed6d1f59f46be3373b2814d3164e95916e9fc5704
parentbc9ed429b1c72b8aadd78a60f62eb44d25bcc125 (diff)
allow / in debs to specify package version in "packages:" section by debian release codename
-rw-r--r--fsmgr.hs2
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 ()
317ignoreErrors = flip actionCatch (\(SomeException _) -> return ()) 317ignoreErrors = flip actionCatch (\(SomeException _) -> return ())
318 318
319partitionPackages :: [String] -> ([String], [String]) 319partitionPackages :: [String] -> ([String], [String])
320partitionPackages = partition (elem '/') 320partitionPackages = partition (".deb" `isSuffixOf`)
321 321
322consWhen :: a -> Bool -> [a] -> [a] 322consWhen :: a -> Bool -> [a] -> [a]
323a `consWhen` c = if c then (a:) else id 323a `consWhen` c = if c then (a:) else id