correct order of cases and slight changes to regex

src/Resources.hs

@@ -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