[ P.href "./#signup" ]

                  [ P.href "#signup" ]

                [ HH.text "Alreay have an account? " 

                [ HH.text "Already have an account? " 

                  [ P.href "#", E.onClick (Just <<< Signin) ]

                  [ P.href "#login" ]

  , setHash :: String -> m Unit

  , setHash: liftEffect <<< H.setHash

import Data.Foldable (oneOf)

import Effect.Class (liftEffect)
import Effect.Aff (launchAff_)

import Routing (match)
import Routing.Hash (matchesWith)
import Routing.Match (Match, lit)

  runUI mainComponent unit body

  halogenIO <- runUI mainComponent unit body

data MainView 

  void $ liftEffect $ matchesWith (match mainRoute) \oldMay new -> 
    when (oldMay /= Just new) do
      launchAff_ <<< halogenIO.query <<< H.tell $ Navigate new
data View 

mainRoute :: Match View
mainRoute = oneOf
  [ VSignup <$ lit "signup"
  , VLogin <$ lit "login"
  , VTimeline <$ lit "timeline"
  ]
routeHash :: View -> String
routeHash = case _ of
  VSignup -> "signup"
  VLogin -> "login"
  VTimeline -> "timeline"
  VLoading -> ""

-- derive instance genericView :: Generic View _
derive instance eqView :: Eq View
derive instance ordView :: Ord View
data MainQuery a = Navigate View a

  { view :: MainView

  { view :: View

  :: forall query input output m

  :: forall input output m

  -> H.Component HH.HTML query input output m

  -> H.Component HH.HTML MainQuery input output m

      { handleAction = eval 

      { handleAction = handleAction 
      , handleQuery = handleQuery

  } where

  }
  where

    eval :: MainAction -> H.HalogenM MainState MainAction Slots output m Unit
    eval action = case action of

    handleAction :: MainAction -> H.HalogenM MainState MainAction Slots output m Unit
    handleAction = case _ of

        H.modify_ (_ { view = nextView })

        navigate nextView

        H.modify_ (_ { view = VTimeline })

        navigate VTimeline

        H.modify_ (_ { view = VTimeline })

        navigate VTimeline

        H.modify_ (_ { view = VLogin })

        navigate VLogin

        H.modify_ (_ { view = VLogin })

        navigate VLogin
    handleQuery :: forall a. MainQuery a -> H.HalogenM MainState MainAction Slots output m (Maybe a)
    handleQuery = case _ of
      Navigate view a -> do
        currentView <- H.gets _.view
        when (currentView /= view) $ navigate view
        pure (Just a)

    navigate :: View -> H.HalogenM MainState MainAction Slots output m Unit
    navigate view = do
      lift $ system.setHash (routeHash view)
      H.modify_ (_ { view = view })

        # - type: bind
        #   source: ./client/dist
        #   target: /opt/static/app
        #   read_only: true
      - type: volume
        source: v_aftok-client

      - type: bind
        source: ./client/dist

        # - type: volume
        #   source: v_aftok-client
        #   target: /opt/static/app
        #   read_only: true