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
-
Nicolas Pouillard authored