blob: f6d6aa4b9d058be18bd19badf8fb6c57d893b217 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
/*
module owner: Ronny Wichers Schreur
*/
definition module Version
:: VersionInfo =
{ versionCurrent
:: Int
, versionOldestDefinition
:: Int
, versionOldestImplementation
:: Int
}
:: VersionsCompatability
= VersionsAreCompatible
| VersionObservedIsTooOld
| VersionObservedIsTooNew
versionCompare :: VersionInfo VersionInfo -> VersionsCompatability
// expected observed
|
