9a5ddda511Drop support for building with ghc older than 8.4.4, and with older versions of serveral haskell libraries than will be included in Debian 10. The only remaining version ifdefs in the entire code base are now a couple for aws! This commit should only be merged after the Debian 10 release. And perhaps it will need to wait longer than that; it would make backporting new versions of git-annex to Debian 9 (stretch) which has been actively happening as recently as this year. This commit was sponsored by Ilya Shlyakhter.
38 lines
909 B
Haskell
38 lines
909 B
Haskell
{- Yesod stuff, that's typically found in the scaffolded site.
|
|
-
|
|
- Also a bit of a compatability layer for older versions of yesod.
|
|
-
|
|
- Copyright 2012-2014 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
|
-}
|
|
|
|
{-# LANGUAGE RankNTypes, FlexibleContexts #-}
|
|
|
|
module Utility.Yesod
|
|
( module Y
|
|
, liftH
|
|
, widgetFile
|
|
, hamletTemplate
|
|
) where
|
|
|
|
import Yesod as Y
|
|
import Yesod.Form.Bootstrap3 as Y hiding (bfs)
|
|
import Yesod.Default.Util
|
|
import Language.Haskell.TH.Syntax (Q, Exp)
|
|
import Data.Default (def)
|
|
import Text.Hamlet hiding (Html)
|
|
|
|
widgetFile :: String -> Q Exp
|
|
widgetFile = widgetFileNoReload $ def
|
|
{ wfsHamletSettings = defaultHamletSettings
|
|
{ hamletNewlines = AlwaysNewlines
|
|
}
|
|
}
|
|
|
|
hamletTemplate :: FilePath -> FilePath
|
|
hamletTemplate f = globFile "hamlet" f
|
|
|
|
{- Lift Handler to Widget -}
|
|
liftH :: HandlerFor site a -> WidgetFor site a
|
|
liftH = handlerToWidget
|