aboutsummaryrefslogtreecommitdiff
path: root/src/CabalHelper/Compiletime
diff options
context:
space:
mode:
Diffstat (limited to 'src/CabalHelper/Compiletime')
-rw-r--r--src/CabalHelper/Compiletime/Cabal.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/CabalHelper/Compiletime/Cabal.hs b/src/CabalHelper/Compiletime/Cabal.hs
index 3ffb670..69817c7 100644
--- a/src/CabalHelper/Compiletime/Cabal.hs
+++ b/src/CabalHelper/Compiletime/Cabal.hs
@@ -198,7 +198,8 @@ unpackCabalHEAD tmpdir = do
let ut = posixSecondsToUTCTime $ fromInteger (read ts)
(y,m,d) = toGregorian $ utctDay ut
sec = round $ utctDayTime ut
- datecode = read $ show y ++ show m ++ show d ++ printf "%5d\n" sec
+ datecode =
+ read $ show y ++ printf "%02d" m ++ printf "%02d" d ++ printf "%05d" sec
sec :: Int; datecode :: Int
let cabal_file = tmpdir </> "Cabal/Cabal.cabal"
cf0 <- readFile cabal_file