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

src/Handler/Common.hs

@@ -11,7 +11,7 @@ import Yesod.Sitemap
 
 import Import
 
-import Entry.Kind ( EntryKind, allEntryKinds )
+import Model.Entry.Kind ( EntryKind, allEntryKinds )
 import Widget.Entry ( entryR )
 
 -- These handlers embed files in the executable at compile time to avoid a

src/Handler/Entries.hs

@@ -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]

src/Handler/Feed.hs

@@ -8,7 +8,7 @@ import Data.Time.Clock.POSIX ( posixSecondsToUTCTime )
 import Widget.Entry ( entryR )
 
 import qualified Data.Text as T
-import qualified Entry.Kind as K
+import qualified Model.Entry.Kind as K
 
 getFeedR :: Handler TypedContent
 getFeedR = do