[ngrams] some small refactoring

src/Gargantext/API/Ngrams/Types.hs

@@ -587,36 +587,20 @@ instance Applicable NgramsTablePatch (Maybe NgramsTableMap) where
 
 
 ngramsElementToRepo :: NgramsElement -> NgramsRepoElement
-ngramsElementToRepo
-  (NgramsElement { _ne_size     = s
-                 , _ne_list     = l
-                 , _ne_root     = r
-                 , _ne_parent   = p
-                 , _ne_children = c
-                 }) =
-  NgramsRepoElement
-    { _nre_size     = s
-    , _nre_list     = l
-    , _nre_parent   = p
-    , _nre_root     = r
-    , _nre_children = c
-    }
+ngramsElementToRepo NgramsElement { .. } =
+  NgramsRepoElement { _nre_size     = _ne_size
+                    , _nre_list     = _ne_list
+                    , _nre_parent   = _ne_parent
+                    , _nre_root     = _ne_root
+                    , _nre_children = _ne_children }
 
 ngramsElementFromRepo :: NgramsTerm -> NgramsRepoElement -> NgramsElement
-ngramsElementFromRepo
-  ngrams
-  (NgramsRepoElement
-      { _nre_size     = s
-      , _nre_list     = l
-      , _nre_parent   = p
-      , _nre_root     = r
-      , _nre_children = c
-      }) =
-  NgramsElement { _ne_size        = s
-                , _ne_list        = l
-                , _ne_root        = r
-                , _ne_parent      = p
-                , _ne_children    = c
+ngramsElementFromRepo ngrams (NgramsRepoElement { .. }) =
+  NgramsElement { _ne_size        = _nre_size
+                , _ne_list        = _nre_list
+                , _ne_root        = _nre_root
+                , _ne_parent      = _nre_parent
+                , _ne_children    = _nre_children
                 , _ne_ngrams      = ngrams
                 , _ne_occurrences = mempty -- panic $ "API.Ngrams.Types._ne_occurrences"
                 {-