Begin adding rudimentary support for posting new entries to the site - needs to be prettier and a lot smarter, but it exists now

src/Handler/Entries.hs

@@ -0,0 +1,12 @@
+{-# LANGUAGE TemplateHaskell #-}
+module Handler.Entries where
+
+import Import
+
+import qualified Entry.Kind as K
+import Widget.Feed ( hFeed )
+
+getEntriesR :: K.EntryKind -> Handler Html
+getEntriesR kind = do
+    entries <- runDB $ selectList [EntryKind ==. kind] [Desc EntryPublished]
+    defaultLayout $(widgetFile "entries")