fix: types mess

src/Gargantext/Components/Forest/Tree/Node/Action/Search.purs

@@ -84,7 +84,7 @@ actionSearchWithLangsCpt = here.component "actionSearchWithLangs" cpt
     where
     searchOn
       :: (Action -> Aff Unit)
-      -> GT.AsyncTaskWithType
+      -> GAT.Task
       -> Effect Unit
     searchOn dispatch' task = do
       _ <- launchAff $ dispatch' (DoSearch task)

src/Gargantext/Components/Forest/Tree/Node/Action/Search/SearchForm.purs

@@ -12,6 +12,7 @@ import Data.Set as Set
 import Data.String.Common (joinWith)
 import Data.Tuple (Tuple(..))
 import Effect (Effect)
+import Gargantext.AsyncTasks as GAT
 import Effect.Aff (launchAff_)
 import Effect.Class (liftEffect)
 import Gargantext.Components.Bootstrap (formInput)
@@ -58,7 +59,7 @@ type Props =
   , errors :: T.Box (Array FrontendError)
   , langs :: Array Lang
   -- State hook for a search, how we get data in and out
-  , onSearch :: GT.AsyncTaskWithType -> Effect Unit
+  , onSearch :: GAT.Task -> Effect Unit
   , search :: T.Box Search
   , session :: Session
   )
@@ -709,7 +710,7 @@ searchInputCpt = here.component "searchInput" cpt
 
 type SubmitButtonProps =
   ( errors :: T.Box (Array FrontendError)
-  , onSearch :: GT.AsyncTaskWithType -> Effect Unit
+  , onSearch :: GAT.Task -> Effect Unit
   , search :: T.Box Search
   , selection :: T.Box ListSelection.Selection
   , session :: Session
@@ -744,14 +745,14 @@ submitButtonComponent = here.component "submitButton" cpt
 
 type TriggerSearch =
   ( errors :: T.Box (Array FrontendError)
-  , onSearch :: GT.AsyncTaskWithType -> Effect Unit
+  , onSearch :: GAT.Task -> Effect Unit
   , search :: T.Box Search
   , selection :: T.Box ListSelection.Selection
   , session :: Session
   )
 
 triggerSearch
-  :: { onSearch :: (GT.AsyncTaskWithType -> Effect Unit)
+  :: { onSearch :: (GAT.Task -> Effect Unit)
      , errors :: T.Box (Array FrontendError)
      , session :: Session
      , selection :: ListSelection.Selection