Folder.purs 510 Bytes
Newer Older
1
module Gargantext.Pages.Folder where
2

Sudhir Kumar's avatar
Sudhir Kumar committed
3
import Prelude
4 5 6 7 8 9 10 11 12 13 14

import Thermite (PerformAction, Render, Spec, modifyState, simpleSpec)


type State = String

initialState :: State
initialState = ""

data Action = NoOp

15
performAction :: forall props. PerformAction State props Action
16
performAction NoOp _ _ = void do
Sudhir Kumar's avatar
Sudhir Kumar committed
17
  modifyState identity
18

19
projets :: forall props. Spec State props Action
20 21 22 23 24
projets = simpleSpec performAction render
  where
    render :: Render State props Action
    render dispatch _ state _ =
      []