generate show and eq instances for purescript stream type

2 files changed, 6 insertions, 1 deletions

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