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
|
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]
|
||||||
|
|
|
@ -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),
|
||||||
|
|
Loading…
Reference in a new issue