Initial project setup

Web/View/Entries/Edit.hs

@@ -0,0 +1,26 @@
+module Web.View.Entries.Edit where
+import Web.View.Prelude
+
+data EditView = EditView { entry :: Entry }
+
+instance View EditView where
+    html EditView { .. } = [hsx|
+        {breadcrumb}
+        <h1>Edit Entry</h1>
+        {renderForm entry}
+    |]
+        where
+            breadcrumb = renderBreadcrumb
+                [ breadcrumbLink "Entries" EntriesAction
+                , breadcrumbText "Edit Entry"
+                ]
+
+renderForm :: Entry -> Html
+renderForm entry = formFor entry [hsx|
+    {(textField #till)}
+    {(textField #day)}
+    {(textField #comment)}
+    {(textField #isfree)}
+    {submitButton}
+
+|]