diff options
| author | Gregor Kleen <aethoago@141.li> | 2017-02-15 19:04:57 +0100 |
|---|---|---|
| committer | Gregor Kleen <aethoago@141.li> | 2017-02-15 19:04:57 +0100 |
| commit | 127c1212d7704392363e3614f339627bf514cfcf (patch) | |
| tree | 10e9a0a1f48ec8aef518c3c33a6e34a7043d9738 /lib/Postdelay/TimeSpec/Utils.hs | |
| parent | 5b09b096e38ed231b62df57736e87c989b481b5d (diff) | |
| download | postdelay-127c1212d7704392363e3614f339627bf514cfcf.tar postdelay-127c1212d7704392363e3614f339627bf514cfcf.tar.gz postdelay-127c1212d7704392363e3614f339627bf514cfcf.tar.bz2 postdelay-127c1212d7704392363e3614f339627bf514cfcf.tar.xz postdelay-127c1212d7704392363e3614f339627bf514cfcf.zip | |
Timezones
Diffstat (limited to 'lib/Postdelay/TimeSpec/Utils.hs')
| -rw-r--r-- | lib/Postdelay/TimeSpec/Utils.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/Postdelay/TimeSpec/Utils.hs b/lib/Postdelay/TimeSpec/Utils.hs index 85ac299..83a271d 100644 --- a/lib/Postdelay/TimeSpec/Utils.hs +++ b/lib/Postdelay/TimeSpec/Utils.hs | |||
| @@ -35,3 +35,6 @@ sign :: (StringParser s m, AdditiveGroup n) => m (n -> n) | |||
| 35 | sign = label "sign" $ choice [ char '+' $> id | 35 | sign = label "sign" $ choice [ char '+' $> id |
| 36 | , char '-' $> negateV | 36 | , char '-' $> negateV |
| 37 | ] | 37 | ] |
| 38 | |||
| 39 | fromDigit :: Num n => Char -> n | ||
| 40 | fromDigit c = fromIntegral $ fromEnum c - fromEnum '0' | ||