Commit 9a19f5e0 authored by Mael NICOLAS's avatar Mael NICOLAS

Need to derive Arbitrary for ParseError and Eq for ZonedTime

parent ff57c581
...@@ -134,6 +134,10 @@ tests: ...@@ -134,6 +134,10 @@ tests:
- gargantext - gargantext
- hspec - hspec
- QuickCheck - QuickCheck
- time
- parsec
- duckling
- text
garg-doctest: garg-doctest:
main: Main.hs main: Main.hs
source-dirs: src-doctest source-dirs: src-doctest
......
...@@ -3,10 +3,12 @@ import Gargantext.Types.Main (Language(..)) ...@@ -3,10 +3,12 @@ import Gargantext.Types.Main (Language(..))
import qualified Ngrams.Lang as Lang import qualified Ngrams.Lang as Lang
import qualified Ngrams.Lang.Occurrences as Occ import qualified Ngrams.Lang.Occurrences as Occ
import qualified Ngrams.Metrics as Metrics import qualified Ngrams.Metrics as Metrics
import qualified Parsers.Date as PD
main :: IO () main :: IO ()
main = do main = do
Occ.parsersTest Occ.parsersTest
Lang.ngramsExtractionTest FR Lang.ngramsExtractionTest FR
Lang.ngramsExtractionTest EN Lang.ngramsExtractionTest EN
Metrics.main Metrics.main
PD.testFromRFC3339
...@@ -18,7 +18,7 @@ DGP.parseDate1 DGP.FR "12 avril 2010" == "2010-04-12T00:00:00.000+00:00" ...@@ -18,7 +18,7 @@ DGP.parseDate1 DGP.FR "12 avril 2010" == "2010-04-12T00:00:00.000+00:00"
{-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
module Gargantext.Parsers.Date (parseDate1, Lang(FR, EN), parseDate) where module Gargantext.Parsers.Date (parseDate1, Lang(FR, EN), parseDate, fromRFC3339) where
import Gargantext.Prelude import Gargantext.Prelude
import Prelude (toInteger) import Prelude (toInteger)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment