Merge branch 'dev' of ssh://gitlab.iscpif.fr:20022/gargantext/purescript-gargantext into dev

src/Gargantext/Config/REST.purs

 module Gargantext.Config.REST where
 
-import Prelude (Unit, bind, logs, pure, ($), (<$>), (<<<), (<>))
+import Prelude (Unit, bind, pure, ($), (<$>), (<<<), (<>))
 
 import Affjax (defaultRequest, printResponseFormatError, request)
 import Affjax.RequestBody (RequestBody(..), string)
 import Affjax.RequestHeader (RequestHeader(..))
 import Affjax.ResponseFormat as ResponseFormat
+import Effect.Class (liftEffect)
 import Data.Argonaut (class DecodeJson, decodeJson, class EncodeJson, encodeJson)
 import Data.Either (Either(..))
 import Data.HTTP.Method (Method(..))
 import Data.Maybe (Maybe(..))
 import Data.MediaType.Common (applicationFormURLEncoded, applicationJSON)
 import Data.Foldable (foldMap)
+import DOM.Simple.Console (log)
 import Effect.Aff (Aff, throwError)
 import Effect.Exception (error)
 
@@ -35,12 +37,12 @@ send m mtoken url reqbody = do
          }
   case affResp.body of
     Left err -> do
-      _ <-  logs $ printResponseFormatError err
+      _ <-  liftEffect $ log $ printResponseFormatError err
       throwError $ error $ printResponseFormatError err
     Right json -> do
-      --_ <-  logs $ show json.status
-      --_ <-  logs $ show json.headers
-      --_ <-  logs $ show json.body
+      --_ <-  liftEffect $ log json.status
+      --_ <-  liftEffect $ log json.headers
+      --_ <-  liftEffect $ log json.body
       case decodeJson json of
         Left err -> throwError $ error $ "decodeJson affResp.body: " <> err
         Right b -> pure b
@@ -82,12 +84,12 @@ postWwwUrlencoded mtoken url body = do
              }
   case affResp.body of
     Left err -> do
-      _ <-  logs $ printResponseFormatError err
+      _ <-  liftEffect $ log $ printResponseFormatError err
       throwError $ error $ printResponseFormatError err
     Right json -> do
-      --_ <-  logs $ show json.status
-      --_ <-  logs $ show json.headers
-      --_ <-  logs $ show json.body
+      --_ <- liftEffect $ log json.status
+      --_ <- liftEffect $ log json.headers
+      --_ <- liftEffect $ log json.body
       case decodeJson json of
         Left err -> throwError $ error $ "decodeJson affResp.body: " <> err
         Right b -> pure b