blob: 0bd43c12174e69cbd0a3f3a279781f28e28bdcea (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{-# OPTIONS_GHC -fno-warn-orphans #-}
{-# LANGUAGE TemplateHaskell #-}
module Cafp.Main.GenerateElmTypes
( main
) where
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)
]
|