allow to filter tarball validation by a URL substring

also, use nubOrd for linearithmic instead of quadratic complexity
This commit is contained in:
amesgen
2021-01-01 05:45:58 +01:00
parent 51805b27aa
commit 8944ed6e36
3 changed files with 30 additions and 25 deletions

View File

@@ -172,7 +172,7 @@ data DownloadInfo = DownloadInfo
, _dlSubdir :: Maybe TarDir
, _dlHash :: Text
}
deriving (Eq, GHC.Generic, Show)
deriving (Eq, Ord, GHC.Generic, Show)
@@ -185,7 +185,7 @@ data DownloadInfo = DownloadInfo
-- | How to descend into a tar archive.
data TarDir = RealDir (Path Rel)
| RegexDir String -- ^ will be compiled to regex, the first match will "win"
deriving (Eq, GHC.Generic, Show)
deriving (Eq, Ord, GHC.Generic, Show)
-- | Where to fetch GHCupDownloads from.