lucienne-0.0.1: Lucienne/Controller/NotFound.hs

module Lucienne.Controller.NotFound
       (notFound)
where
  
import qualified  Happstack.Server as S
import Lucienne.Controller.Imports

notFound :: String -> Controller Response
notFound url = S.notFound $ toResponse $ "Not found: " ++ url