diff --git a/src/Foundation.hs b/src/Foundation.hs index ae0b849bb..66377a386 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -52,6 +52,8 @@ import qualified Data.UUID.Cryptographic as UUID import qualified System.FilePath.Cryptographic as FilePath import System.FilePath +import Handler.Utils.Templates + -- | The foundation datatype for your application. This can be a good place to -- keep settings and values requiring initialization before your application -- starts running, such as database connections. Every handler will have diff --git a/src/Handler/Utils.hs b/src/Handler/Utils.hs index 277310908..c034ef552 100644 --- a/src/Handler/Utils.hs +++ b/src/Handler/Utils.hs @@ -16,6 +16,7 @@ import Handler.Utils.Table as Handler.Utils import Handler.Utils.Zip as Handler.Utils import Handler.Utils.Rating as Handler.Utils import Handler.Utils.Submission as Handler.Utils +import Handler.Utils.Templates as Handler.Utils import Text.Blaze (Markup) diff --git a/src/Handler/Utils/Templates.hs b/src/Handler/Utils/Templates.hs new file mode 100644 index 000000000..38c7feb18 --- /dev/null +++ b/src/Handler/Utils/Templates.hs @@ -0,0 +1,8 @@ +{-# LANGUAGE NoImplicitPrelude, TemplateHaskell #-} + +module Handler.Utils.Templates where + +import Import.NoFoundation + +mainMenu :: WidgetT site IO () +mainMenu = $(widgetFile "main-menu") diff --git a/templates/default-layout.hamlet b/templates/default-layout.hamlet index 14430ab61..507e8409f 100644 --- a/templates/default-layout.hamlet +++ b/templates/default-layout.hamlet @@ -10,6 +10,8 @@