From 72b1de1a28c23cf694ff5f982f0f637afd4ba5bc Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Wed, 29 Jul 2020 15:57:28 +0200
Subject: Stub server

---
 server/src/GenerateElmTypes.hs | 13 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

(limited to 'server/src/GenerateElmTypes.hs')

diff --git a/server/src/GenerateElmTypes.hs b/server/src/GenerateElmTypes.hs
index e8aa25b..c85aaf3 100644
--- a/server/src/GenerateElmTypes.hs
+++ b/server/src/GenerateElmTypes.hs
@@ -1,13 +1,4 @@
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-{-# LANGUAGE TemplateHaskell #-}
-import Cafp.Messages
-import Elm.Derive
-import Elm.Module
-import Data.Proxy
-
-deriveBoth defaultOptions ''ServerMessage
+import qualified Cafp.Main.GenerateElmTypes
 
 main :: IO ()
-main = putStrLn $ makeElmModule "Messages"
-    [ DefineElm (Proxy :: Proxy ServerMessage)
-    ]
+main = Cafp.Main.GenerateElmTypes.main
-- 
cgit v1.2.3