diff options
Diffstat (limited to '')
| -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 |