Ajout : syntax/ledger.vim : support des clés de tag >1.

[comptalang.git] / lib / Hcompta / Date / Read.hs

diff --git a/lib/Hcompta/Date/Read.hs b/lib/Hcompta/Date/Read.hs
index 258b082f359e9355f3356c21127ed238db536a8c..76493857486d5095200107ed64a1d8162dc6e9be 100644 (file)
--- a/lib/Hcompta/Date/Read.hs
+++ b/lib/Hcompta/Date/Read.hs
@@ -29,7 +29,7 @@ data Error
  |   Error_invalid_time_of_day (Int, Int, Integer)
  deriving (Eq, Show)
 
--- | Read a 'Date' in @[YYYY\/]MM\/DD [HH:MM[:SS][TZ]]@ format.
+-- | Read a 'Date' in @[YYYY\/]MM\/DD[_HH:MM[:SS][TZ]]@ format.
 date
  :: (Stream s (R.Error_State e m) Char, Monad m)
  => (Error -> e) -> Maybe Integer -> ParsecT s u (R.Error_State e m) Date
@@ -53,7 +53,7 @@ date err def_year = (do
         Just day -> return day
        (hour, minu, sec, tz) <-
                R.option (0, 0, 0, Time.utc) $ R.try $ do
-                       R.skipMany1 $ R.space_horizontal
+                       _ <- R.char '_'
                        hour <- read_2_or_1_digits
                        sep <- hour_separator
                        minu <- read_2_or_1_digits
@@ -61,7 +61,7 @@ date err def_year = (do
                                _ <- R.char sep
                                Just <$> read_2_or_1_digits
                        tz <- R.option Time.utc $ R.try $ do
-                               R.skipMany $ R.space_horizontal
+                               -- R.skipMany $ R.space_horizontal
                                time_zone
                        return
                         ( fromInteger $ R.integer_of_digits 10 hour