Initial project setup

Web/Controller/Entries.hs

@@ -0,0 +1,61 @@
+module Web.Controller.Entries where
+
+import Web.Controller.Prelude
+import Web.View.Entries.Index
+import Web.View.Entries.New
+import Web.View.Entries.Edit
+import Web.View.Entries.Show
+import Web.View.Entries.Today
+
+
+instance Controller EntriesController where
+    action TodayAction = do
+        entries <- query @Entry |> fetch
+        render TodayView { .. }
+
+    action EntriesAction = do
+        entries <- query @Entry |> fetch
+        render IndexView { .. }
+
+    action NewEntryAction = do
+        let entry = newRecord
+        render NewView { .. }
+
+    action ShowEntryAction { entryId } = do
+        entry <- fetch entryId
+        render ShowView { .. }
+
+    action EditEntryAction { entryId } = do
+        entry <- fetch entryId
+        render EditView { .. }
+
+    action UpdateEntryAction { entryId } = do
+        entry <- fetch entryId
+        entry
+            |> buildEntry
+            |> ifValid \case
+                Left entry -> render EditView { .. }
+                Right entry -> do
+                    entry <- entry |> updateRecord
+                    setSuccessMessage "Entry updated"
+                    redirectTo EditEntryAction { .. }
+
+    action CreateEntryAction = do
+        let entry = newRecord @Entry
+        entry
+            |> buildEntry
+            |> ifValid \case
+                Left entry -> render NewView { .. } 
+                Right entry -> do
+                    entry <- entry |> createRecord
+                    setSuccessMessage "Entry created"
+                    redirectTo EntriesAction
+
+    action DeleteEntryAction { entryId } = do
+        entry <- fetch entryId
+        deleteRecord entry
+        setSuccessMessage "Entry deleted"
+        redirectTo EntriesAction
+
+buildEntry entry = entry
+    |> fill @["till", "day", "comment", "isfree"]

Web/Controller/Prelude.hs

@@ -0,0 +1,13 @@
+module Web.Controller.Prelude
+( module Web.Types
+, module Application.Helper.Controller
+, module IHP.ControllerPrelude
+, module Generated.Types
+)
+where
+
+import Web.Types
+import Application.Helper.Controller
+import IHP.ControllerPrelude
+import Generated.Types
+import Web.Routes

Web/Controller/Static.hs

@@ -0,0 +1,6 @@
+module Web.Controller.Static where
+import Web.Controller.Prelude
+import Web.View.Static.Welcome
+
+instance Controller StaticController where
+    action WelcomeAction = render WelcomeView