Commit b409752f authored by Armin Bernstetter's avatar Armin Bernstetter
Browse files

remove redundant variable assignment

parent 60f3a7db
......@@ -33,12 +33,11 @@ getOldResources = do
files <- listDirectory dir
return $ map (dir </>) $ filter oldVersion files
where
current = deckerVersion
deckerRegex = "decker-([0-9]+[.][0-9]+[.][0-9]+)-" :: String
oldVersion name =
case getAllTextSubmatches (name =~ deckerRegex) :: [String] of
[] -> False
_:v:vs -> v < current
_:v:vs -> v < deckerVersion
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