[PHYLO/FIX] time format.

src/Gargantext/Types/Phylo.hs

@@ -26,7 +26,7 @@ module Gargantext.Types.Phylo where
 import Data.Aeson.TH (deriveJSON)
 import Data.Maybe   (Maybe)
 import Data.Text    (Text)
-import Data.Time    (UTCTime)
+import Data.Time.Clock.POSIX  (POSIXTime)
 
 import GHC.Generics (Generic)
 
@@ -43,8 +43,9 @@ data Phylo = Phylo { _phyloDuration :: (Start, End)
                    , _phyloPeriods  :: [PhyloPeriod]
                    } deriving (Generic)
 
-type Start   = UTCTime -- TODO: format EPOCH unix integer
-type End     = UTCTime -- TODO: format EPOCH unix integer
+-- | UTCTime in seconds since UNIX epoch
+type Start   = POSIXTime
+type End     = POSIXTime
 
 type Ngram   = (NgramId, Text)
 type NgramId = Int
@@ -86,7 +87,7 @@ data PhyloGroup = PhyloGroup { _phyloGroupId            :: PhyloGroupId
                              , _phyloGroupLevelChilds   :: [Edge]
                              } deriving (Generic)
 
-type PhyloGroupId = (PhyloPeriodId, PhyloLevelId, Int)
+type PhyloGroupId = (PhyloLevelId, Int)
 type Edge         = (PhyloGroupId, Weight)
 type Weight       = Double