Merge branch 'dev-searx-parser' of git.sr.ht:~cgenie/purescript-gargantext into dev-searx-parser

src/Gargantext/Components/ErrorsView.purs

@@ -51,3 +51,14 @@ errorsViewCpt = here.component "errorsView" cpt
                        Nothing  -> es
                        Just es' -> es'
           ) errors
+    showError errors i (FOtherError { error }) =
+      RB.alert { dismissible: true
+               , onClose
+               , variant: "danger" } [ H.text $ show error ]
+      where
+        onClose = do
+          here.log2 "click!" error
+          T.modify_ (\es -> case deleteAt i es of
+                       Nothing  -> es
+                       Just es' -> es'
+          ) errors

src/Gargantext/Config/Utils.purs

@@ -16,7 +16,8 @@ import Toestand as T
 here :: R2.Here
 here = R2.here "Gargantext.Config.Utils"
 
-handleRESTError :: forall a. T.Box (Array FrontendError)
+handleRESTError :: forall a.
+                   T.Box (Array FrontendError)
                 -> Either RESTError a
                 -> (a -> Aff Unit)
                 -> Aff Unit

src/Gargantext/Types.purs

@@ -796,6 +796,7 @@ toggleSidePanelState Opened        = Closed
 data FrontendError =
     FStringError { error :: String }
   | FRESTError { error :: RESTError }
+  | FOtherError { error :: String }
 
 derive instance Generic FrontendError _
 instance Eq FrontendError where eq = genericEq