iCalendar 0.3 → 0.3.0.1

raw patch · 2 files changed

+9/−2 lines, 2 files

Files

• Text/ICalendar/Parser/Common.hs +8/−1
• iCalendar.cabal +1/−1

@@ -191,7 +191,14 @@ -- specification, and 'OtherParams'. parseAltRepLang :: (Text -> Maybe URI.URI -> Maybe Language -> OtherParams -> a)                 -> Content -> ContentParser a-parseAltRepLang = parseAltRepLang' valueOnlyOne+parseAltRepLang = parseAltRepLang' lenientTextOnlyOne+  where lenientTextOnlyOne :: [Text] -> ContentParser Text+        lenientTextOnlyOne [x] = return x+        lenientTextOnlyOne [] = throwError "Must have one value, not zero."+        lenientTextOnlyOne xs = do+            tell ["Illegal comma in value that only allows one TEXT, assuming\+                  \ literal comma was intended."]+            return $ T.intercalate "," xs  -- | Parse something '[Text]' with alternative representations, language -- specification, and 'OtherParams'.

@@ -1,5 +1,5 @@ name:                iCalendar-version:             0.3+version:             0.3.0.1 synopsis:            iCalendar data types, parser, and printer. description:         Data definitions, parsing and printing of the iCalendar                      format (RFC5545).