servant-elm-0.7.1: test/PolymorphicData.hs

{-# LANGUAGE TemplateHaskell #-}

module PolymorphicData where

import Servant.Elm


data PolymorphicData a b = PolymorphicData a b deriving (Show, Eq)
data SomeRecord = SomeRecord
  { recordId :: Int
  , recordName :: String
  } deriving (Show, Eq)

deriveBoth defaultOptions ''PolymorphicData
deriveBoth defaultOptions ''SomeRecord