Nested routes using IsString

NestedRoutesExample.hs

{-# LANGUAGE OverloadedStrings #-}

module NestedRoutesExample where

import Web.Routes.Nested
import Data.Text.Lazy as LT
import Network.Wai
import Data.Attoparsec.Text

router :: Application
router = route handlers
  where
    handlers = do
      handleLit o
        (Left $ get $ text "home")
        Nothing
      handleLit ("foo" </> "bar" </> o)
        (Left $ get $ text "foobar") $ Just $
        handleParse (p ("baz",double) </> o)
          (\d -> Right $ get $ textOnly $ LT.pack (show d) `LT.append` " bazs")
          Nothing
      handleParse (p ("num",double) </> o)
        (\d -> Right $ get $ textOnly $ LT.pack $ show d) $ Just $
        handleLit ("bar" </> o)
           (\d -> Left $ get $ text $ (LT.pack $ show d) `LT.append` " bars")
           Nothing