tHomeR :: Handler Html
getHomeR = do
  (formWidget, formEncType) <- generateFormPost uploadForm
  galleries <- getFAList
  defaultLayout $ do
    setTitle "HGallery"
    $(widgetFileNoReload def "home")


getHomeR :: Handler Html
getHomeR = do
  (formWidget, formEncType) <- generateFormPost uploadForm
  galleries <- getFAList
  defaultLayout $ do
    setTitle "HGallery"
    $(widgetFileNoReload def "home")
getHomeR = do
  (formWidget, formEncType) <- generateFormPost uploadForm
  galleries <- getFAList
  defaultLayout $ do
    setTitle "HGallery"
    $(widgetFileNoReload def "home")