From b4e74a527b5fda0604227183a204d8743b382ba1 Mon Sep 17 00:00:00 2001
From: Abinaya Sudhir <abinaya@atomicits.com>
Date: Wed, 18 Apr 2018 14:25:12 +0530
Subject: [PATCH] Modal Hide feature added

---
 src/AddCorpusview.purs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/AddCorpusview.purs b/src/AddCorpusview.purs
index 2f5430e..3989209 100644
--- a/src/AddCorpusview.purs
+++ b/src/AddCorpusview.purs
@@ -21,6 +21,7 @@ import Data.Maybe (Maybe(..), fromMaybe)
 import Data.MediaType.Common (applicationJSON)
 import Data.Tuple (Tuple(..))
 import Landing as L
+import Modal (modalHide)
 import Network.HTTP.Affjax (AJAX, affjax, defaultRequest)
 import Network.HTTP.RequestHeader (RequestHeader(..))
 import Prelude hiding (div)
@@ -83,6 +84,7 @@ performAction (LoadDatabaseDetails) _ _ = void do
 
 performAction GO _ _ = void do
   lift $ setHash "/corpus"
+  _ <- liftEff $ modalHide "addCorpus"
   modifyState id
 
 
-- 
2.21.0