Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-30 11:51:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

adds build numbers

Browse Source
This commit is contained in:
Aaron Greenspan
2020-01-19 18:00:35 -07:00
parent 6d0a5e36e0
commit 0eb24e1e87
2 changed files with 23 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/Lib/Semver.hs
View File

@@ -20,11 +20,13 @@ import Lib.Types.Semver
av = version a
major :: AppVersion -> Word16
major (AppVersion (a, _, _)) = a
major (AppVersion (a, _, _, _)) = a
minor :: AppVersion -> Word16
minor (AppVersion (_, a, _)) = a
minor (AppVersion (_, a, _, _)) = a
patch :: AppVersion -> Word16
patch (AppVersion (_, _, a)) = a
patch (AppVersion (_, _, a, _)) = a
build :: AppVersion -> Word16
build (AppVersion (_, _, _, a)) = a
hasGiven :: (AppVersion -> Word16) -> AppVersion -> AppVersion -> Bool
hasGiven projection av = (== projection av) . projection