Skip to content

P
purescript-gargantext
Commit f8fa5702 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

tree: small fixes

parent 500cfd95
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/Gargantext/Components/Tree.purs
View file @ f8fa5702
...@@ -14,7 +14,7 @@ import Data.Argonaut.Core (Json) ...@@ -14,7 +14,7 @@ import Data.Argonaut.Core (Json)
import Data.Either (Either(..)) import Data.Either (Either(..))
import Data.HTTP.Method (Method(..)) import Data.HTTP.Method (Method(..))
import Data.Maybe (Maybe(..)) import Data.Maybe (Maybe(..))
import Data.Newtype (class Newtype, over) import Data.Newtype (class Newtype)
import DOM.Simple.Console import DOM.Simple.Console
import Effect (Effect) import Effect (Effect)
import Effect.Aff (Aff) import Effect.Aff (Aff)
...@@ -506,7 +506,7 @@ instance encodeJsonCreateValue :: EncodeJson CreateValue where ...@@ -506,7 +506,7 @@ instance encodeJsonCreateValue :: EncodeJson CreateValue where
~> "files_id" := ([] :: Array String) ~> "files_id" := ([] :: Array String)
~> jsonEmptyObject ~> jsonEmptyObject
createNode :: CreateValue -> Aff (Array Int) createNode :: CreateValue -> Aff Int
createNode = post $ urlPlease Back $ "new" createNode = post $ urlPlease Back $ "new"
renameNode :: Int -> RenameValue -> Aff (Array Int) renameNode :: Int -> RenameValue -> Aff (Array Int)
......
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