diff options
| author | Jasper Van der Jeugt | 2020-07-28 23:25:57 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt | 2020-07-28 23:25:57 +0200 |
| commit | 125a792ec885d16fc0e41751d073caf2da9f2301 (patch) | |
| tree | 607c34616ba7b6473b5a8ab1cf22c93acf78f292 /server/src/GenerateElmTypes.hs | |
| parent | f9716e24c2b41cfc416e227b275e2ae15866a370 (diff) | |
Mess around
Diffstat (limited to '')
| -rw-r--r-- | server/src/GenerateElmTypes.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/server/src/GenerateElmTypes.hs b/server/src/GenerateElmTypes.hs new file mode 100644 index 0000000..e8aa25b --- /dev/null +++ b/server/src/GenerateElmTypes.hs @@ -0,0 +1,13 @@ +{-# OPTIONS_GHC -fno-warn-orphans #-} +{-# LANGUAGE TemplateHaskell #-} +import Cafp.Messages +import Elm.Derive +import Elm.Module +import Data.Proxy + +deriveBoth defaultOptions ''ServerMessage + +main :: IO () +main = putStrLn $ makeElmModule "Messages" + [ DefineElm (Proxy :: Proxy ServerMessage) + ] |