Allow to remove all unset versions, fixes #1019

This commit is contained in:
2024-03-03 14:22:49 +08:00
parent 5d0a7b71a2
commit 5eaae9916d
3 changed files with 29 additions and 1 deletions

View File

@@ -17,6 +17,7 @@ defaultOptions =
False
False
False
False
gcCheckList :: [(String, GCOptions)]
gcCheckList =
@@ -33,7 +34,9 @@ gcCheckList =
, ("gc --cache", defaultOptions{gcCache = True})
, ("gc -t", defaultOptions{gcTmp = True})
, ("gc --tmpdirs", defaultOptions{gcTmp = True})
, ("gc -o -p -s -h -c -t", GCOptions True True True True True True)
, ("gc -u", defaultOptions{gcUnset = True})
, ("gc --unset", defaultOptions{gcUnset = True})
, ("gc -o -p -s -h -c -t -u", GCOptions True True True True True True True)
]
gcParseWith :: [String] -> IO GCOptions