diff --git a/src/Gargantext/Database/Schema/NodeNgramsNgrams.hs b/src/Gargantext/Database/Schema/NodeNgramsNgrams.hs
index 7c66b20efeb241ab8b22b4784b7a83dbdd1a7b3d..d91b5bf8d75184b7fecafe2e25672ad270a9f6c0 100644
--- a/src/Gargantext/Database/Schema/NodeNgramsNgrams.hs
+++ b/src/Gargantext/Database/Schema/NodeNgramsNgrams.hs
@@ -135,7 +135,7 @@ ngramsGroup action ngs = runNodeNgramsNgrams q ngs
           Add -> queryInsertNodeNgramsNgrams
 
 
-runNodeNgramsNgrams :: PGS.Query -> [(ListId, NgramsParent, NgramsChild, Maybe Double)] -> Cmd err [Int]
+runNodeNgramsNgrams :: PGS.Query -> [(ListId, NgramsParent, NgramsChild{-, Maybe Double-})] -> Cmd err [Int]
 runNodeNgramsNgrams q ngs = map (\(PGS.Only a) -> a) <$> runPGSQuery q (PGS.Only $ Values fields ngs' )
   where
     ngs'   = map (\(n,ng1,ng2{-,w-}) -> (n,ng1,ng2{-,maybe 0 identity w-})) ngs