diff --git a/attoparsec-time.cabal b/attoparsec-time.cabal
--- a/attoparsec-time.cabal
+++ b/attoparsec-time.cabal
@@ -1,5 +1,5 @@
 name: attoparsec-time
-version: 1.0.2
+version: 1.0.3
 synopsis: Attoparsec parsers of time
 description: A collection of Attoparsec parsers for the \"time\" library
 category: Attoparsec, Parsers, Time
diff --git a/library/Attoparsec/Time/Text.hs b/library/Attoparsec/Time/Text.hs
--- a/library/Attoparsec/Time/Text.hs
+++ b/library/Attoparsec/Time/Text.hs
@@ -1,10 +1,12 @@
 module Attoparsec.Time.Text
 (
   timeOfDayInISO8601,
+  timeOfDayInDashes,
   dayInISO8601,
   yearAndMonthInISO8601,
   timeZoneInISO8601,
   utcTimeInISO8601,
+  utcTimeInDashes,
   diffTime,
   nominalDiffTime,
   -- *
@@ -68,7 +70,7 @@
     beforePoint =
       replicateM basisLength decimalChar
     afterPoint =
-      padListFromRight 0 [] resolution <$> ((char '.' *> many decimalChar) <|> pure [])
+      padListFromRight 0 [] resolution <$> ((char '.' *> many1 decimalChar) <|> pure [])
       where
         padListFromRight padding accumulator length list =
           case length of
@@ -129,6 +131,17 @@
       (minute <* char ':') <*>
       (second)
 
+{-# INLINE timeOfDayInDashes #-}
+timeOfDayInDashes :: Parser TimeOfDay
+timeOfDayInDashes =
+  unnamedParser <?> "timeOfDayInDashes"
+  where
+    unnamedParser =
+      A.timeOfDay <$>
+      (hour <* char '-') <*>
+      (minute <* char '-') <*>
+      (second)
+
 {-|
 >>> parseOnly dayInISO8601 "2017-02-01"
 Right 2017-02-01
@@ -221,6 +234,21 @@
         time <- timeOfDayInISO8601
         zone <- timeZoneInISO8601
         return (A.utcTimeFromDayAndTimeOfDay day time zone)
+
+{-|
+>>> parseOnly utcTimeInDashes "2017-02-01-05-03-58"
+Right 2017-02-01 05:03:58 UTC
+-}
+utcTimeInDashes :: Parser UTCTime
+utcTimeInDashes =
+  unnamedParser <?> "utcTimeInDashes"
+  where
+    unnamedParser =
+      do
+        day <- dayInISO8601
+        char '-'
+        time <- timeOfDayInDashes
+        return (localTimeToUTC utc (LocalTime day time))
 
 {-|
 No suffix implies the "seconds" unit: