[CLEAN] warnings

src/Gargantext/Config.purs

@@ -4,9 +4,8 @@ import Data.Array as A
 import Data.Array.NonEmpty as AN
 import Data.Maybe (Maybe)
 import Data.NonEmpty (NonEmpty, (:|), head)
-import Data.String as S
-import Data.String.Utils as S
-import Data.Tuple.Nested ((/\))
+import Data.String (Pattern(..), Replacement(..), replace) as S
+import Data.String.Utils (startsWith) as S
 import Effect (Effect)
 import Gargantext.Ends
 import Gargantext.Prelude (bind, pure, ($))
@@ -42,7 +41,6 @@ localUrl = "http://localhost:8008"
 backend_local :: Backend
 backend_local   = backend V10 "/api/" localUrl   "local.cnrs"
 
-
 matchCurrentLocation :: Effect (Maybe Backend)
 matchCurrentLocation = do
   href <- href
@@ -55,7 +53,6 @@ matchCurrentLocation = do
 publicBackend :: Backend
 publicBackend = backend_local
 
-
 publicBackend' :: Effect Backend
 publicBackend' = do
   href <- href
@@ -65,9 +62,8 @@ publicBackend' = do
                  , version : V10
                  }
 
-
 defaultApps :: NonEmpty Array Frontend
-defaultApps = relative :| [prod, dev, demo, haskell, caddy]
+defaultApps = relative :| [prod, dev, demo, haskell, python, caddy]
   where
     relative = frontend "/#/" ""                            "Relative"
     prod     = frontend "/#/" "https://v4.gargantext.org"   "v4.gargantext.org"
@@ -94,4 +90,3 @@ defaultFrontends = Frontends { app: defaultApp, static: defaultStatic }
 changePort :: String -> String
 changePort = S.replace (S.Pattern "http://localhost:8000/") (S.Replacement "http://localhost:8008/")
 
-

src/Main.purs

 module Main (main) where
 
-import Prelude (Unit, ($))
-import Data.Maybe (Maybe(..))
-import Data.Nullable (toMaybe)
 import DOM.Simple (Element)
-import DOM.Simple.Document (document)
 import DOM.Simple.Console (log)
+import DOM.Simple.Document (document)
+import Data.Maybe (Maybe(..))
+import Data.Nullable (toMaybe)
 import Effect (Effect)
 import FFI.Simple ((...))
-
 import Gargantext.Components.App (app)
 import Gargantext.Utils.Reactix as R2
+import Prelude (Unit, ($))
 
 main :: Effect Unit
 main = paint $ toMaybe (document ... "getElementById" $ [ "app" ])