{-# LANGUAGE PatternGuards, CPP #-} {-# OPTIONS_GHC -F -pgmF trhsx #-} module DarcsDen.Pages.Base where import Data.Char (toLower) import Data.List (sortBy) import Data.Maybe (fromMaybe) import Data.Ord (comparing) import HSP import DarcsDen.Pages.HSPage ( HSPage ) import DarcsDen.State.Session import DarcsDen.Settings import DarcsDen.State.User base :: String -> Bool -> HSP XML -> HSP XML -> HSP XML -> HSPage base title indexable crumb pagenav content sess =