{-# LANGUAGE NoMonomorphismRestriction #-}
module Happstack.Helpers.HtmlOutput (
  module Happstack.Helpers.HtmlOutput.Common
  , module Happstack.Helpers.HtmlOutput.Menu
  , directoryGroupsHAppS
) where

import Happstack.Helpers.HtmlOutput.Common
import Happstack.Helpers.HtmlOutput.Menu
import Text.StringTemplate.Helpers

directoryGroupsHAppS = directoryGroups' directoryGroupHAppS

-- templates with  naughty emacs backup character get ignored
-- templates whose base names are invalid StringTemplate var names cause failure,
-- because this significantly complicates working with them in HAppS
directoryGroupHAppS = directoryGroupNew' ignoret badTmplVarName
  where ignoret f = not . null . filter (=='#') $ f