From 8b8fca65cbb9c8e30d9d67dcf64904358c25147b Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Thu, 29 Aug 2019 20:01:13 -0400
Subject: [PATCH] what to do next
---
PaymentServer.cabal | 1 +
app/Main.hs | 11 ++++++++---
src/PaymentServer/Main.hs | 6 ++++++
3 files changed, 15 insertions(+), 3 deletions(-)
create mode 100644 src/PaymentServer/Main.hs
diff --git a/PaymentServer.cabal b/PaymentServer.cabal
index 91290a9..a765653 100644
--- a/PaymentServer.cabal
+++ b/PaymentServer.cabal
@@ -17,6 +17,7 @@ library
hs-source-dirs: src
exposed-modules: PaymentServer.Processors.Stripe
, PaymentServer.Persistence
+ , PaymentServer.Main
build-depends: base >= 4.7 && < 5
, aeson
, servant
diff --git a/app/Main.hs b/app/Main.hs
index d82a4bd..d4379ac 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -1,4 +1,9 @@
-module Main where
+module Main
+ ( main
+ ) where
-main :: IO ()
-main = return ()
+import PaymentServer.Main
+ ( run
+ )
+
+main = run
diff --git a/src/PaymentServer/Main.hs b/src/PaymentServer/Main.hs
new file mode 100644
index 0000000..1e3a2f0
--- /dev/null
+++ b/src/PaymentServer/Main.hs
@@ -0,0 +1,6 @@
+module PaymentServer.Main
+ ( run
+ ) where
+
+run :: IO ()
+run =
--
GitLab