[FIX] more strict data

src/Gargantext/Database/Query/Table/NgramsPostag.hs

@@ -34,11 +34,11 @@ import qualified Data.HashMap.Strict        as HashMap
 import qualified Data.List                  as List
 import qualified Database.PostgreSQL.Simple as PGS
 
-data NgramsPostag = NgramsPostag { _np_lang   :: Lang
-                                 , _np_algo   :: PosTagAlgo
-                                 , _np_postag :: POS
-                                 , _np_form   :: Ngrams
-                                 , _np_lem    :: Ngrams
+data NgramsPostag = NgramsPostag { _np_lang   :: !Lang
+                                 , _np_algo   :: !PosTagAlgo
+                                 , _np_postag :: !POS
+                                 , _np_form   :: !Ngrams
+                                 , _np_lem    :: !Ngrams
                                  }
   deriving (Eq, Ord, Generic, Show)
 makeLenses ''NgramsPostag

src/Gargantext/Database/Schema/NgramsPostag.hs

@@ -43,8 +43,8 @@ data NgramsPostagPoly id
                      } deriving (Show)
 
 ------------------------------------------------------------------------
-data PosTag = PosTag { unPosTag :: Text }
-            | NER    { unNER    :: Text } -- TODO
+data PosTag = PosTag { unPosTag :: !Text }
+            | NER    { unNER    :: !Text } -- TODO
 
 ------------------------------------------------------------------------
 -- type NgramsPostag   = NgramsPostagPoly (Maybe Int) Lang PostTagAlgo (Maybe PosTag) NgramsTerm NgramsTerm (Maybe Int)