,blaze-markup              >= 0.5

   -- Soft versions

   ,base                      >= 4     && < 5

   ,css                       >= 0.1

   ,named-formlet             >= 0.2

   -- Free versions

   ,ConfigFile

   ,HJScript

   ,MissingH

   ,MonadCatchIO-transformers

import Hpaste.Controller.Paste    as Paste

import Hpaste.Controller.Raw      as Raw

import Hpaste.Controller.Report   as Report

import Hpaste.Controller.Reported as Reported

import Hpaste.Controller.Style    as Style

import Hpaste.Controller.Script   as Script

import Hpaste.Model.Announcer     (newAnnouncer)

import Hpaste.Types

import Hpaste.Types.Announcer

           ,("/new/:channel",run (New.handle New.NewPaste))

           ,("/browse",run Browse.handle)

           ,("/activity",run Activity.handle)

           ,("/diff/:this/:that",run Diff.handle)

	   ,("/delete",run Report.handleDelete)

           ]

  run = runHandler ans config pool

		 ,"WHERE (? IS NULL) OR (author = ?) AND spamrating < ?"]

		 (mauthor,mauthor,spamMinLevel)

  return $ fromMaybe 0 rows

-- | Get the latest pastes.

  query ["SELECT ",pasteFields

	,"FROM public_toplevel_paste"

	,"WHERE spamrating < ?"

	,"ORDER BY created DESC"

	,"LIMIT 20"]

-- | Get some paginated pastes.

getPaginatedPastes :: Maybe String -> Pagination -> HPModel (Pagination,[Paste])

getPaginatedPastes mauthor pn@Pagination{..} = do

  total <- countPublicPastes mauthor

-- | Handle the home page, display a simple list and paste form.

handle :: Bool -> HPCtrl ()

handle spam = do

  html <- cacheIf (not spam) Key.Home $ do

    chans <- model $ getChannels

    langs <- model $ getLanguages

    form <- pasteForm chans langs Nothing Nothing Nothing

    uri <- getMyURI

    return $ Just $ page uri chans langs pastes form spam