Commit 7734251e authored by Alexandre Delanoë's avatar Alexandre Delanoë

cosmetics

parent 9a5d4242
module CorpusAnalysis where module CorpusAnalysis where
import Control.Monad.Eff.Console (CONSOLE) import Control.Monad.Eff.Console (CONSOLE)
import DOM (DOM) import DOM (DOM)
import Data.Array (fold) import Data.Array (fold)
......
...@@ -35,18 +35,14 @@ import Unsafe.Coerce (unsafeCoerce) ...@@ -35,18 +35,14 @@ import Unsafe.Coerce (unsafeCoerce)
import Gargantext.REST (get) import Gargantext.REST (get)
main :: forall e. Eff (dom:: DOM, console :: CONSOLE, ajax :: AJAX | e) Unit --main :: forall e. Eff (dom:: DOM, console :: CONSOLE, ajax :: AJAX | e) Unit
main = do --main = do
case createReactSpec layoutDocview tdata of -- case createReactSpec layoutDocview tdata of
{ spec, dispatcher } -> void $ do -- { spec, dispatcher } -> void $ do
document <- DOM.window >>= DOM.document -- document <- DOM.window >>= DOM.document
container <- unsafePartial (fromJust <$> DOM.querySelector (QuerySelector "#app") (DOM.htmlDocumentToParentNode document)) -- container <- unsafePartial (fromJust <$> DOM.querySelector (QuerySelector "#app") (DOM.htmlDocumentToParentNode document))
RDOM.render (R.createFactory (R.createClass spec) {}) container -- RDOM.render (R.createFactory (R.createClass spec) {}) container
--
-- main :: forall e. Eff (console :: CONSOLE | e) Unit
-- main = do
-- log "Hello sailor!"
-- TODO: Pagination Details are not available from the BackEnd -- TODO: Pagination Details are not available from the BackEnd
-- TODO: PageSize Change manually sets the totalPages, need to get from backend and reload the data -- TODO: PageSize Change manually sets the totalPages, need to get from backend and reload the data
-- TODO: Search is pending -- TODO: Search is pending
......
...@@ -121,4 +121,4 @@ tab1 = tabs _tablens _tabAction $ fromFoldable [ Tuple "Doc View" docPageSpec ...@@ -121,4 +121,4 @@ tab1 = tabs _tablens _tabAction $ fromFoldable [ Tuple "Doc View" docPageSpec
, Tuple "Author View" authorPageSpec , Tuple "Author View" authorPageSpec
, Tuple "Source View" sourcePageSpec , Tuple "Source View" sourcePageSpec
, Tuple "Terms View" termsPageSpec , Tuple "Terms View" termsPageSpec
] ]
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