Sort by version number when generating the Appendix A link

aaronp24 · May 31, 2022 · b947f2e · b947f2e
1 parent 61500af
commit b947f2e
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/NVVersionParser.hs b/NVVersionParser.hs
@@ -27,9 +27,9 @@ newtype Version = Version String
   deriving Eq
 
 data Driver = Driver {
+    version :: Version,
     branch :: Branch,
-    maturity :: Maturity,
-    version :: Version
+    maturity :: Maturity
 } deriving (Show, Eq, Ord)
 
 -- Version helper functions
@@ -74,7 +74,7 @@ versionEntry = do
     space
     ver <- parseVersion
     manyTill anyChar newline
-    return (Driver br mat ver)
+    return (Driver ver br mat)
 
 parseWord = many1 (alphaNum <|> oneOf "._")
 

diff --git a/generate-stuff.hs b/generate-stuff.hs
@@ -14,7 +14,7 @@ toMap :: [Driver] -> Map Key Version
 toMap versions =
     Map.fromList (map split versions)
  where
-    split (Driver br mat ver) = ((br, mat), ver)
+    split (Driver ver br mat) = ((br, mat), ver)
 
 -- If key is a member of the given map, look it up and pass the result
 -- to a function that returns an IO action.  Otherwise, do nothing.
@@ -111,7 +111,7 @@ main = do
     Right versions <- parseVersionFile
     let verMap = toMap versions
     let showVer = printVerLine verMap
-    let (_, newest) = Map.findMax verMap
+    let (Driver newest _ _) = maximum versions
 
     generateForumPostTemplate (show newest)
     putStrLn ""