Commit a89f9162 authored by Fabien Manière's avatar Fabien Manière

remove useless tests

parent 61156462
...@@ -4,7 +4,6 @@ import Gargantext.Prelude ...@@ -4,7 +4,6 @@ import Gargantext.Prelude
import Data.Array as A import Data.Array as A
import Data.Array as Array import Data.Array as Array
import Data.Int (fromString)
import Data.Maybe (fromMaybe, Maybe(..), isJust) import Data.Maybe (fromMaybe, Maybe(..), isJust)
import Data.String (Pattern(..), split) import Data.String (Pattern(..), split)
import Data.Traversable (intercalate, traverse, traverse_) import Data.Traversable (intercalate, traverse, traverse_)
...@@ -35,11 +34,10 @@ import Gargantext.Ends (Frontends) ...@@ -35,11 +34,10 @@ import Gargantext.Ends (Frontends)
import Gargantext.Hooks.Loader (useLoaderEffect) import Gargantext.Hooks.Loader (useLoaderEffect)
import Gargantext.Routes as GR import Gargantext.Routes as GR
import Gargantext.Sessions (Session, get, mkNodeId) import Gargantext.Sessions (Session, get, mkNodeId)
import Gargantext.Sessions.Types (OpenNodes, useOpenNodesMemberBox, openNodesInsert, openNodesDelete) import Gargantext.Sessions.Types (useOpenNodesMemberBox, openNodesInsert, openNodesDelete)
import Gargantext.Types (Handed, ID, isPublic, publicize) import Gargantext.Types (Handed, ID, isPublic, publicize)
import Gargantext.Types as GT import Gargantext.Types as GT
import Gargantext.Utils ((?)) import Gargantext.Utils ((?))
import Gargantext.Utils as GU
import Gargantext.Utils.Reactix as R2 import Gargantext.Utils.Reactix as R2
import Gargantext.Utils.Toestand as T2 import Gargantext.Utils.Toestand as T2
import Reactix as R import Reactix as R
...@@ -228,11 +226,6 @@ treeCpt = here.component "tree" cpt where ...@@ -228,11 +226,6 @@ treeCpt = here.component "tree" cpt where
pub (LNode n@{ nodeType: t }) = LNode (n { nodeType = publicize t }) pub (LNode n@{ nodeType: t }) = LNode (n { nodeType = publicize t })
getLastUrlElement :: String -> String
getLastUrlElement str = fromMaybe "" $ A.last $ split (Pattern "/") str
blankTree :: R2.Leaf () blankTree :: R2.Leaf ()
blankTree = R2.leaf blankTreeCpt blankTree = R2.leaf blankTreeCpt
blankTreeCpt :: R.Component () blankTreeCpt :: R.Component ()
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment