Commit 60f3a7db authored by Armin Bernstetter's avatar Armin Bernstetter
Browse files

correct order of cases and slight changes to regex

parent ca34285b
......@@ -34,11 +34,11 @@ getOldResources = do
return $ map (dir </>) $ filter oldVersion files
where
current = deckerVersion
deckerRegex = "decker-([0-9]+[.][0-9]+[.][0-9]+)-[.]*" :: String
deckerRegex = "decker-([0-9]+[.][0-9]+[.][0-9]+)-" :: String
oldVersion name =
case getAllTextSubmatches (name =~ deckerRegex) :: [String] of
x:v:xs -> v < current
[] -> False
_:v:vs -> v < current
getResourceString :: FilePath -> IO String
getResourceString path = do
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment