From 068052892ed414bf9600b915333a5f90da3558c6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Alexandre=20Delano=C3=AB?= <devel+git@delanoe.org>
Date: Wed, 17 Oct 2018 09:00:54 +0200
Subject: [PATCH] [TEST/DOC] parseDate.

---
 src/Gargantext/Text/Parsers/Date.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/Gargantext/Text/Parsers/Date.hs b/src/Gargantext/Text/Parsers/Date.hs
index f700e6b1..098bca28 100644
--- 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
-- 
2.21.0