a little cleanup
This commit is contained in:
parent
e2d9dac134
commit
3b14082e5e
2 changed files with 5 additions and 7 deletions
|
@ -3,13 +3,6 @@ module Handler.Home where
|
|||
|
||||
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 = do
|
||||
recentMedia <- runDB $ selectList [] [Desc MediumTime]
|
||||
|
|
|
@ -15,6 +15,11 @@ import Settings as Import
|
|||
import Settings.Development as Import
|
||||
import Settings.StaticFiles as Import
|
||||
|
||||
-- custom imports
|
||||
|
||||
|
||||
-- end custom imports
|
||||
|
||||
#if __GLASGOW_HASKELL__ >= 704
|
||||
import Data.Monoid as Import
|
||||
(Monoid (mappend, mempty, mconcat),
|
||||
|
|
Loading…
Reference in a new issue