Actions.purs 540 Bytes
module Gargantext.Pages.Home.Actions where

import Prelude hiding (div)

import Effect.Class (liftEffect)
import Gargantext.Pages.Home.States (State)
import Routing.Hash (setHash)
import Thermite (PerformAction)

data Action
  = Documentation
  | Enter
  | Login
  | SignUp


performAction :: PerformAction State {} Action
performAction Documentation _ _ = pure unit

performAction Enter _ _ = void do
  liftEffect $ setHash "/search"

performAction Login _ _ = void do
  liftEffect $ setHash "/login"

performAction SignUp _ _ = pure unit