[FIX] strict types

685494e9 · Alexandre Delanoë · e87b4662 · 685494e9
Commit 685494e9 authored Jun 23, 2020 by Alexandre Delanoë
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

Types.hs src/Gargantext/Viz/Types.hs +2 -2

No files found.
--- a/src/Gargantext/Viz/Types.hs
+++ b/src/Gargantext/Viz/Types.hs
@@ -25,8 +25,8 @@ data Chart = ChartHisto | ChartScatter | ChartPie
  deriving (Generic)

 -- TODO use UTCTime
-data Histo = Histo { histo_dates :: [Text]
-                   , histo_count :: [Int]
+data Histo = Histo { histo_dates :: ![Text]
+                   , histo_count :: ![Int]
                   }
  deriving (Show, Generic)