Initial project setup

2022-09-02 22:40:21 +02:00
commit ce35c0300c
41 changed files with 1127 additions and 0 deletions
--- a/Web/Types.hs
+++ b/Web/Types.hs
@@ -0,0 +1,21 @@
+module Web.Types where
+
+import IHP.Prelude
+import IHP.ModelSupport
+import Generated.Types
+
+data WebApplication = WebApplication deriving (Eq, Show)
+
+
+data StaticController = WelcomeAction deriving (Eq, Show, Data)
+
+data EntriesController
+    = TodayAction
+    | EntriesAction
+    | NewEntryAction
+    | ShowEntryAction { entryId :: !(Id Entry) }
+    | CreateEntryAction
+    | EditEntryAction { entryId :: !(Id Entry) }
+    | UpdateEntryAction { entryId :: !(Id Entry) }
+    | DeleteEntryAction { entryId :: !(Id Entry) }
+    deriving (Eq, Show, Data)