1 files changed, 10 insertions, 10 deletions

diff --git a/ddl/out/LambdaCube.TypeInfo.purs b/ddl/out/LambdaCube.TypeInfo.purs
index afd8a86..3252a7f 100644
--- a/ddl/out/LambdaCube.TypeInfo.purs
+++ b/ddl/out/LambdaCube.TypeInfo.purs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-02-12T16:05:13.364534000000Z
+-- 2016-02-26T10:42:57.376331000000Z
 
 module LambdaCube.TypeInfo where
 import Prelude
@@ -28,9 +28,9 @@ data TypeInfo
   }
 
 
-data MyEither
-  = MyLeft TypeInfo (Array TypeInfo)
-  | MyRight String Pipeline (Array TypeInfo)
+data CompileResult
+  = CompileError (Array TypeInfo) (Array TypeInfo)
+  | Compiled String Pipeline (Array TypeInfo)
 
 
 
@@ -64,16 +64,16 @@ instance decodeJsonTypeInfo :: DecodeJson TypeInfo where
           , text:text
           } 
 
-instance encodeJsonMyEither :: EncodeJson MyEither where
+instance encodeJsonCompileResult :: EncodeJson CompileResult where
   encodeJson v = case v of
-    MyLeft arg0 arg1 -> "tag" := "MyLeft" ~> "arg0" := arg0 ~> "arg1" := arg1 ~> jsonEmptyObject
-    MyRight arg0 arg1 arg2 -> "tag" := "MyRight" ~> "arg0" := arg0 ~> "arg1" := arg1 ~> "arg2" := arg2 ~> jsonEmptyObject
+    CompileError arg0 arg1 -> "tag" := "CompileError" ~> "arg0" := arg0 ~> "arg1" := arg1 ~> jsonEmptyObject
+    Compiled arg0 arg1 arg2 -> "tag" := "Compiled" ~> "arg0" := arg0 ~> "arg1" := arg1 ~> "arg2" := arg2 ~> jsonEmptyObject
 
-instance decodeJsonMyEither :: DecodeJson MyEither where
+instance decodeJsonCompileResult :: DecodeJson CompileResult where
   decodeJson json = do
     obj <- decodeJson json
     tag <- obj .? "tag"
     case tag of
-      "MyLeft" -> MyLeft <$> obj .? "arg0" <*> obj .? "arg1"
-      "MyRight" -> MyRight <$> obj .? "arg0" <*> obj .? "arg1" <*> obj .? "arg2"
+      "CompileError" -> CompileError <$> obj .? "arg0" <*> obj .? "arg1"
+      "Compiled" -> Compiled <$> obj .? "arg0" <*> obj .? "arg1" <*> obj .? "arg2"