git-annex/Utility/Yesod.hs

{- Yesod stuff, that's typically found in the scaffolded site.
 -
 - Copyright 2012 Joey Hess <joey@kitenet.net>
 -
 - Licensed under the GNU GPL version 3 or higher.
 -}

module Utility.Yesod where

import Yesod.Default.Util
import Language.Haskell.TH.Syntax

widgetFile :: String -> Q Exp
widgetFile = widgetFileNoReload

hamletTemplate :: FilePath -> FilePath
hamletTemplate f = globFile "hamlet" f
use widgetFile 2012-07-27 02:54:31 +00:00			`{- Yesod stuff, that's typically found in the scaffolded site.`
added a custom defaultLayout, static site, and favicon Broke hamlet out into standalone files. I don't like the favicon display; it should be served from /favicon.ico, but I could only get the static site to serve /static/favicon.ico, so I had to use a <link rel=icon> to pull it in. I looked at Yesod.Default.Handlers.getFaviconR, but it doesn't seem to embed the favicon into the binary? 2012-07-26 06:45:01 +00:00			`-`
			`- Copyright 2012 Joey Hess <joey@kitenet.net>`
			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`

			`module Utility.Yesod where`

use widgetFile 2012-07-27 02:54:31 +00:00			`import Yesod.Default.Util`
			`import Language.Haskell.TH.Syntax`
added a custom defaultLayout, static site, and favicon Broke hamlet out into standalone files. I don't like the favicon display; it should be served from /favicon.ico, but I could only get the static site to serve /static/favicon.ico, so I had to use a <link rel=icon> to pull it in. I looked at Yesod.Default.Handlers.getFaviconR, but it doesn't seem to embed the favicon into the binary? 2012-07-26 06:45:01 +00:00
use widgetFile 2012-07-27 02:54:31 +00:00			`widgetFile :: String -> Q Exp`
			`widgetFile = widgetFileNoReload`
added a custom defaultLayout, static site, and favicon Broke hamlet out into standalone files. I don't like the favicon display; it should be served from /favicon.ico, but I could only get the static site to serve /static/favicon.ico, so I had to use a <link rel=icon> to pull it in. I looked at Yesod.Default.Handlers.getFaviconR, but it doesn't seem to embed the favicon into the binary? 2012-07-26 06:45:01 +00:00
			`hamletTemplate :: FilePath -> FilePath`
use widgetFile 2012-07-27 02:54:31 +00:00			`hamletTemplate f = globFile "hamlet" f`