Skip to content

P
purescript-gargantext
Commit b4e74a52 authored by Abinaya Sudhir's avatar Abinaya Sudhir
Browse files
Options

Modal Hide feature added

parent ba39dcfb
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 0 deletions
src/AddCorpusview.purs
View file @ b4e74a52
...@@ -21,6 +21,7 @@ import Data.Maybe (Maybe(..), fromMaybe) ...@@ -21,6 +21,7 @@ import Data.Maybe (Maybe(..), fromMaybe)
import Data.MediaType.Common (applicationJSON) import Data.MediaType.Common (applicationJSON)
import Data.Tuple (Tuple(..)) import Data.Tuple (Tuple(..))
import Landing as L import Landing as L
import Modal (modalHide)
import Network.HTTP.Affjax (AJAX, affjax, defaultRequest) import Network.HTTP.Affjax (AJAX, affjax, defaultRequest)
import Network.HTTP.RequestHeader (RequestHeader(..)) import Network.HTTP.RequestHeader (RequestHeader(..))
import Prelude hiding (div) import Prelude hiding (div)
...@@ -83,6 +84,7 @@ performAction (LoadDatabaseDetails) _ _ = void do ...@@ -83,6 +84,7 @@ performAction (LoadDatabaseDetails) _ _ = void do
performAction GO _ _ = void do performAction GO _ _ = void do
lift $ setHash "/corpus" lift $ setHash "/corpus"
_ <- liftEff $ modalHide "addCorpus"
modifyState id modifyState id
......
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