[DOC] stack haddock build ok.
[gargantext.git] / src-test / Parsers / Types.hs
index fb63d85eadd91b110d89abfc03edf42c2fa95c71..7aee900973ff643c5bbf11de6a42814ceeaa4f20 100644 (file)
@@ -1,10 +1,24 @@
-{-# LANGUAGE NoImplicitPrelude #-}
-{-# LANGUAGE StandaloneDeriving #-}
+{-|
+Module      : Parsers.Types
+Description : 
+Copyright   : (c) CNRS, 2017-Present
+License     : AGPL + CECILL v3
+Maintainer  : team@gargantext.org
+Stability   : experimental
+Portability : POSIX
+
+Here is a longer description of this module, containing some
+commentary with @some markup@.
+-}
+
+{-# OPTIONS_GHC -fno-warn-orphans #-}
+
+{-# LANGUAGE NoImplicitPrelude    #-}
+{-# LANGUAGE StandaloneDeriving   #-}
 
 module Parsers.Types where
 
 import Gargantext.Prelude
-import Prelude (floor, fromIntegral)
 
 import Test.QuickCheck
 import Test.QuickCheck.Instances ()
@@ -18,7 +32,7 @@ import Data.Either (Either(..))
 deriving instance Eq ZonedTime
 
 looseTimeOfDayPrecision :: TimeOfDay -> TimeOfDay
-looseTimeOfDayPrecision (TimeOfDay h m s) = TimeOfDay h m 0
+looseTimeOfDayPrecision (TimeOfDay h m _) = TimeOfDay h m 0
 
 looseLocalTimePrecision :: LocalTime -> LocalTime
 looseLocalTimePrecision (LocalTime ld ltd) = LocalTime ld $ looseTimeOfDayPrecision ltd