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)
 sign = label "sign" $ choice [ char '+' $> id
                              , char '-' $> negateV
                              ]
+
+fromDigit :: Num n => Char -> n
+fromDigit c = fromIntegral $ fromEnum c - fromEnum '0'