a little cleanup

This commit is contained in:
nek0 2014-08-13 18:17:44 +02:00
parent e2d9dac134
commit 3b14082e5e
2 changed files with 5 additions and 7 deletions

View file

@ -3,13 +3,6 @@ module Handler.Home where
import Import import Import
-- This is a handler function for the GET request method on the HomeR
-- resource pattern. All of your resource patterns are defined in
-- config/routes
--
-- The majority of the code you will write in Yesod lives in these handler
-- functions. You can spread them across multiple files if you are so
-- inclined, or create a single monolithic file.
getHomeR :: Handler Html getHomeR :: Handler Html
getHomeR = do getHomeR = do
recentMedia <- runDB $ selectList [] [Desc MediumTime] recentMedia <- runDB $ selectList [] [Desc MediumTime]

View file

@ -15,6 +15,11 @@ import Settings as Import
import Settings.Development as Import import Settings.Development as Import
import Settings.StaticFiles as Import import Settings.StaticFiles as Import
-- custom imports
-- end custom imports
#if __GLASGOW_HASKELL__ >= 704 #if __GLASGOW_HASKELL__ >= 704
import Data.Monoid as Import import Data.Monoid as Import
(Monoid (mappend, mempty, mconcat), (Monoid (mappend, mempty, mconcat),