[REFACT] read instance + fix warnings

src/Gargantext/AsyncTasks.purs

 module Gargantext.AsyncTasks where
 
-import Data.Argonaut (decodeJson, class EncodeJson, encodeJson, (:=), (~>), (.:))
+import Data.Argonaut (decodeJson)
 import Data.Argonaut.Parser (jsonParser)
 import Data.Array as A
 import Data.Either (Either(..))

src/Gargantext/Components/DocsTable.purs

@@ -34,7 +34,7 @@ import Gargantext.Utils.Reactix as R2
 import Gargantext.Routes as Routes
 import Gargantext.Routes (SessionRoute(NodeAPI))
 import Gargantext.Sessions (Session, sessionId, post, delete, put)
-import Gargantext.Types (NodeType(..), OrderBy(..), TabType, TabPostQuery(..), AffTableResult, NodeID)
+import Gargantext.Types (NodeType(..), OrderBy(..), TabType, TabPostQuery(..), AffTableResult)
 ------------------------------------------------------------------------
 
 data Category = Trash | UnRead | Checked | Topic | Favorite

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

 module Gargantext.Components.Forest.Tree.Node.Action where
 
-import Data.Generic.Rep (class Generic)
-import Data.Generic.Rep.Eq (genericEq)
-import Data.Generic.Rep.Show (genericShow)
 import Data.Maybe (Maybe)
 import Effect.Aff (Aff)
-import Gargantext.Prelude (class Eq, class Show, class Read, Unit)
+import Gargantext.Prelude (class Show, Unit)
 import Gargantext.Sessions (Session)
 import Gargantext.Types  as GT
 import Gargantext.Components.Forest.Tree.Node (NodeAction(..), glyphiconNodeAction)

src/Gargantext/Components/Forest/Tree/Node/Tools/FTree.purs

@@ -2,7 +2,6 @@ module Gargantext.Components.Forest.Tree.Node.Tools.FTree where
 
 import Data.Argonaut (class DecodeJson, decodeJson, (.:))
 import Data.Newtype (class Newtype)
-import Gargantext.Sessions (Session, get, put, post, delete)
 import Gargantext.Types  as GT
 import Prelude hiding (div)
 

src/Gargantext/Types.purs

 module Gargantext.Types where
 
-import Prelude
 import Data.Argonaut (class DecodeJson, class EncodeJson, decodeJson, encodeJson, jsonEmptyObject, (.:), (:=), (~>))
 import Data.Array as A
 import Data.Either (Either(..))
@@ -11,9 +10,10 @@ import Data.Generic.Rep.Show (genericShow)
 import Data.Int (toNumber)
 import Data.Maybe (Maybe(..), maybe, fromMaybe)
 import Effect.Aff (Aff)
+import Gargantext.Prelude (class Read, read)
+import Prelude
 import Prim.Row (class Union)
 import URI.Query (Query)
-import Gargantext.Prelude (class Read, read)
 
 type ID     = Int
 type Name   = String
@@ -508,25 +508,28 @@ data AsyncTaskStatus = Running
                      | Finished
                      | Killed
 derive instance genericAsyncTaskStatus :: Generic AsyncTaskStatus _
+
 instance showAsyncTaskStatus :: Show AsyncTaskStatus where
   show = genericShow
 derive instance eqAsyncTaskStatus :: Eq AsyncTaskStatus
+
 instance encodeJsonAsyncTaskStatus :: EncodeJson AsyncTaskStatus where
   encodeJson s = encodeJson $ show s
+
 instance decodeJsonAsyncTaskStatus :: DecodeJson AsyncTaskStatus where
   decodeJson json = do
     obj <- decodeJson json
-    pure $ readAsyncTaskStatus obj
-
-readAsyncTaskStatus :: String -> AsyncTaskStatus
-readAsyncTaskStatus "IsFailure"  = Failed
-readAsyncTaskStatus "IsFinished" = Finished
-readAsyncTaskStatus "IsKilled"   = Killed
-readAsyncTaskStatus "IsPending"  = Pending
-readAsyncTaskStatus "IsReceived" = Received
-readAsyncTaskStatus "IsRunning"  = Running
-readAsyncTaskStatus "IsStarted"  = Started
-readAsyncTaskStatus _ = Running
+    pure $ fromMaybe Running $ read obj
+
+instance readAsyncTaskStatus :: Read AsyncTaskStatus where
+  read "IsFailure"  = Just Failed
+  read "IsFinished" = Just Finished
+  read "IsKilled"   = Just Killed
+  read "IsPending"  = Just Pending
+  read "IsReceived" = Just Received
+  read "IsRunning"  = Just Running
+  read "IsStarted"  = Just Started
+  read _            = Nothing
 
 newtype AsyncTask =
   AsyncTask { id     :: AsyncTaskID