@@ -9,7 +9,7 @@ getVersion :: IO Version
99getVersion = do
1010 v <- readProcess "git" ["log", "-1", "--format=%ci"] ""
1111 let [y4,y3,y2,y1,'-',m2,m1,'-',d2,d1] = head (words v)
12− return (read ('[':y4:y3:y2:y1:',':m2:m1:',':d2:d1:"]"))
12+ return (read ('[':y4:y3:y2:y1:m2:m1:d2:d1:"]"))
1313
1414getGitVersion :: IO String
1515getGitVersion = do