diff options
| author | Jasper Van der Jeugt | 2020-07-29 15:57:28 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt | 2020-07-29 15:57:28 +0200 |
| commit | 72b1de1a28c23cf694ff5f982f0f637afd4ba5bc (patch) | |
| tree | d12b7bb68aa912c0845433a2ec72e399fb54ee60 /server/src | |
| parent | 125a792ec885d16fc0e41751d073caf2da9f2301 (diff) | |
Stub server
Diffstat (limited to 'server/src')
| -rw-r--r-- | server/src/GenerateElmTypes.hs | 13 | ||||
| -rw-r--r-- | server/src/Server.hs | 4 |
2 files changed, 6 insertions, 11 deletions
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 diff --git a/server/src/Server.hs b/server/src/Server.hs new file mode 100644 index 0000000..fba65ef --- /dev/null +++ b/server/src/Server.hs @@ -0,0 +1,4 @@ +import qualified Cafp.Main.Server + +main :: IO () +main = Cafp.Main.Server.main |