elm-websocket-1.0: example/code-generator/Main.hs

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Api
import Data.Proxy
import Elm.Export

spec :: Spec
spec =
  moduleSpec ["Api"] $ do
    renderType (Proxy :: Proxy TaskStatus)
    renderType (Proxy :: Proxy Task)
    renderType (Proxy :: Proxy Request)
    renderType (Proxy :: Proxy Response)
    renderEncoder (Proxy :: Proxy TaskStatus)
    renderEncoder (Proxy :: Proxy Task)
    renderEncoder (Proxy :: Proxy Request)
    renderDecoder (Proxy :: Proxy TaskStatus)
    renderDecoder (Proxy :: Proxy Task)
    renderDecoder (Proxy :: Proxy Response)
    renderSubscriber

main :: IO ()
main = specsToDir [spec] "client/src"