xesite/frontend/src/Routes.purs

module App.Routes where

import App.BlogEntry as BlogEntry
import App.BlogIndex as BlogIndex
import App.Counter as Counter
import Control.Alt ((<|>))
import Control.Apply ((<*), (*>))
import Data.Functor ((<$))
import Data.Maybe (fromMaybe)
import Prelude (($), (<$>))
import Pux.Router (param, router, lit, str, end)

data Route = Home
           | Resume
           | ContactPage
           | StaticPage String
           | BlogIndex
           | BlogPost String
           | NotFound

match :: String -> Route
match url = fromMaybe NotFound $ router url $
    Home <$ end
  <|>
    BlogIndex <$ lit "blog" <* end
  <|>
    BlogPost <$> (lit "blog" *> str) <* end
  <|>
    ContactPage <$ lit "contact" <* end
  <|>
    Resume <$ lit "resume" <* end