Initial commit

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