From 0762c7388287eee8e4aacee616b3fbaa3709ab57 Mon Sep 17 00:00:00 2001 From: Csaba Hruska Date: Tue, 15 Nov 2016 14:36:17 +0100 Subject: generate show and eq instances for purescript stream type --- ddl/Definitions.hs | 1 + ddl/out/purescript/LambdaCube/PipelineSchema.purs | 6 +++++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ddl/Definitions.hs b/ddl/Definitions.hs index 6f50ef8..4c3b026 100644 --- a/ddl/Definitions.hs +++ b/ddl/Definitions.hs @@ -513,6 +513,7 @@ pipelineSchema = do enum_ "Attribute_M42F" enum_ "Attribute_M43F" enum_ "Attribute_M44F" + deriving_ [PureScript] [Show,Eq] data_ "ObjectArraySchema" $ do constR_ "ObjectArraySchema" diff --git a/ddl/out/purescript/LambdaCube/PipelineSchema.purs b/ddl/out/purescript/LambdaCube/PipelineSchema.purs index f5758bd..057c6c6 100644 --- a/ddl/out/purescript/LambdaCube/PipelineSchema.purs +++ b/ddl/out/purescript/LambdaCube/PipelineSchema.purs @@ -1,5 +1,5 @@ -- generated file, do not modify! --- 2016-11-14T21:30:02.999731000000Z +-- 2016-11-15T13:20:49.544037000000Z module LambdaCube.PipelineSchema where import Prelude @@ -58,6 +58,10 @@ data PipelineSchema +derive instance genericStreamType :: Generic StreamType +instance showStreamType :: Show StreamType where show = gShow +instance eqStreamType :: Eq StreamType where eq = gEq + instance encodeJsonStreamType :: EncodeJson StreamType where encodeJson v = case v of -- cgit v1.2.3