Authorview.purs 1021 Bytes
Newer Older
1 2 3 4 5
module Authorview where


import Control.Monad.Eff.Console (CONSOLE)
import DOM (DOM)
Abinaya Sudhir's avatar
Abinaya Sudhir committed
6 7
import Data.Array (fold)
import DocView as D
8 9
import Network.HTTP.Affjax (AJAX)
import Prelude hiding (div)
Abinaya Sudhir's avatar
Abinaya Sudhir committed
10 11
import React.DOM (h3, text)
import Thermite (PerformAction, Render, Spec, defaultPerformAction, modifyState, simpleSpec)
12 13 14 15




Abinaya Sudhir's avatar
Abinaya Sudhir committed
16
type State = D.State
17 18 19


initialState :: State
Abinaya Sudhir's avatar
Abinaya Sudhir committed
20
initialState = D.tdata
21

Abinaya Sudhir's avatar
Abinaya Sudhir committed
22
type Action = D.Action
23 24 25 26 27 28 29


authorSpec :: forall props eff . Spec ( console :: CONSOLE
                                        , ajax    :: AJAX
                                        , dom     :: DOM
                                        | eff
                                        ) State props Action
Abinaya Sudhir's avatar
Abinaya Sudhir committed
30
authorSpec = simpleSpec defaultPerformAction render
31 32 33
  where
    render :: Render State props Action
    render dispatch _ state _ =
Abinaya Sudhir's avatar
Abinaya Sudhir committed
34 35 36 37
       [ h3 [] [text "AuthorView"]]

authorspec' :: forall eff props. Spec (dom :: DOM, console :: CONSOLE, ajax :: AJAX | eff) State props Action
authorspec' = fold [authorSpec, D.layoutDocview]