00dani/lebd
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Rename module: Entry.Kind -> Model.Entry.Kind

Browse source
This commit is contained in:
Danielle McLean 2017-10-11 12:44:33 +11:00
parent 02fd91cb77
commit 66cb093387
Signed by: 00dani
GPG key ID: 5A5D2D1AFF12EEC5
6 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Handler/Entries.hs
View file

@ -6,13 +6,14 @@ module Handler.Entries where
import Import
import Yesod.AtomFeed ( atomLink )
import qualified Data.Text as T
import qualified Entry.Kind as K
import Model.Cache ( getCached )
import Widget.Entry ( entryR, hEntry )
import Widget.Feed ( hFeed )
import qualified Data.Text as T
import qualified Model.Entry.Kind as K
getEntriesR :: K.EntryKind -> Handler Html
getEntriesR kind = do
entries <- runDB $ selectList [EntryKind ==. kind] [Desc EntryPublished]