[TEST/DOC] parseDate.

06805289 · Alexandre Delanoë · 3a21c591 · 06805289
Commit 06805289 authored Oct 17, 2018 by Alexandre Delanoë
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 0 deletions

Date.hs src/Gargantext/Text/Parsers/Date.hs +6 -0

No files found.
--- a/src/Gargantext/Text/Parsers/Date.hs
+++ b/src/Gargantext/Text/Parsers/Date.hs
@@ -57,6 +57,12 @@ import qualified Duckling.Core as DC
 -- import qualified Text.ParserCombinators.Parsec (parse)

 ------------------------------------------------------------------------
+-- | Date Parser
+-- Parses dates mentions in full text given the language.
+-- >>> parseDate FR (pack "10 avril 1979 à 19H")
+-- 1979-04-10 19:00:00 UTC
+-- >>> parseDate EN (pack "April 10 1979")
+-- 1979-04-10 00:00:00 UTC
 parseDate :: Lang -> Text -> IO UTCTime
 parseDate lang s = do
  dateStr' <- parseDateRaw lang s