diff options
author | Andrew Cady <d@jerkface.net> | 2021-03-13 19:12:34 -0500 |
---|---|---|
committer | Andrew Cady <d@jerkface.net> | 2021-03-13 19:12:34 -0500 |
commit | 0bb6decd18bffddf889f1daa5ed8c7ca9fadabc9 (patch) | |
tree | d6d1f59f46be3373b2814d3164e95916e9fc5704 | |
parent | bc9ed429b1c72b8aadd78a60f62eb44d25bcc125 (diff) |
allow / in debs to specify package version in "packages:" section by debian release codename
-rw-r--r-- | fsmgr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |