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

merge hlint changes from propellor

Browse source
This commit is contained in:
Joey Hess 2015-09-13 13:39:48 -04:00
parent 6ce5fea50c
commit 2d2e94798f
4 changed files with 8 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Utility/Scheduled.hs
View file

@ -286,7 +286,7 @@ fromScheduledTime AnyTime = "any time"
fromScheduledTime (SpecificTime h m) =
show h' ++ (if m > 0 then ":" ++ pad 2 (show m) else "") ++ " " ++ ampm
where
pad n s = take (n - length s) (repeat '0') ++ s
pad n s = replicate (n - length s) '0' ++ s
(h', ampm)
| h == 0 = (12, "AM")
| h < 12 = (h, "AM")