mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

more FlexibleContexts

Browse source
This commit is contained in:
Joey Hess 2015-05-10 15:54:58 -04:00
parent 082b1590ce
commit 26ac0753c1
5 changed files with 15 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Log.hs
View file

@ -176,7 +176,11 @@ parseRaw l = go $ words l
parseTimeStamp :: String -> POSIXTime
parseTimeStamp = utcTimeToPOSIXSeconds . fromMaybe (error "bad timestamp") .
#if MIN_VERSION_time(1,5,0)
parseTimeM True defaultTimeLocale "%s"
#else
parseTime defaultTimeLocale "%s"
#endif
showTimeStamp :: TimeZone -> POSIXTime -> String
showTimeStamp zone = show . utcToLocalTime zone . posixSecondsToUTCTime