[CLEAN] renaming unexplicit fun
[gargantext.git] / src / Gargantext / Database / Action / Search.hs
index 330584f7bcea594e975e6b0bd80221c8efa95242..47d472e86ed100c70d952257ec46f24a1547f126 100644 (file)
@@ -25,7 +25,6 @@ import Database.PostgreSQL.Simple.ToField
 import Gargantext.Core.Types
 import Gargantext.Database.Admin.Config (nodeTypeId)
 import Gargantext.Database.Admin.Types.Hyperdata (HyperdataDocument(..), HyperdataContact(..))
-import Gargantext.Database.Admin.Types.Node (NodeType(..))
 import Gargantext.Database.Prelude (Cmd, runPGSQuery, runOpaQuery, runCountOpaQuery)
 import Gargantext.Database.Query.Facet
 import Gargantext.Database.Query.Filter
@@ -152,12 +151,6 @@ selectGroup cId aId q = proc () -> do
   returnA -< FacetPaired a b c d
 
 
-
-
-
-
-
-
 queryContactViaDoc :: O.Query ( NodeSearchRead
                               , ( NodeNodeReadNull
                                 , ( NodeNodeReadNull