From dfbdb0cf9924c3efb75bf2baa6eb7b88ab9cf696 Mon Sep 17 00:00:00 2001
From: Saku Laesvuori <saku@laesvuori.fi>
Date: Thu, 19 Oct 2023 09:55:59 +0300
Subject: [PATCH] Modulify Datarekisteri.Backend

---
 backend/datarekisteri-backend.cabal  | 3 ++-
 backend/src/Datarekisteri/Backend.hs | 2 ++
 backend/src/Main.hs                  | 4 ++++
 3 files changed, 8 insertions(+), 1 deletion(-)
 create mode 100644 backend/src/Main.hs

diff --git a/backend/datarekisteri-backend.cabal b/backend/datarekisteri-backend.cabal
index a11e4f8..00e7f97 100644
--- a/backend/datarekisteri-backend.cabal
+++ b/backend/datarekisteri-backend.cabal
@@ -43,8 +43,9 @@ executable datarekisteri-backend
     wai-cors,
     wai-extra,
     directory
-  main-is: Datarekisteri/Backend.hs
+  main-is: Main.hs
   other-modules:
+    Datarekisteri.Backend,
     Datarekisteri.Backend.API,
     Datarekisteri.Backend.DB,
     Datarekisteri.Backend.Sql,
diff --git a/backend/src/Datarekisteri/Backend.hs b/backend/src/Datarekisteri/Backend.hs
index 6cf0f50..d97ea38 100644
--- a/backend/src/Datarekisteri/Backend.hs
+++ b/backend/src/Datarekisteri/Backend.hs
@@ -5,6 +5,8 @@
 
 {-# LANGUAGE NoImplicitPrelude #-}
 
+module Datarekisteri.Backend where
+
 import Relude
 
 import "cryptonite" Crypto.Random (MonadRandom(..))
diff --git a/backend/src/Main.hs b/backend/src/Main.hs
new file mode 100644
index 0000000..4c64a28
--- /dev/null
+++ b/backend/src/Main.hs
@@ -0,0 +1,4 @@
+import qualified Datarekisteri.Backend as Backend
+
+main :: IO ()
+main = Backend.main