1 files changed, 10 insertions, 10 deletions

diff --git a/ddl/out/LambdaCube.TypeInfo.hs b/ddl/out/LambdaCube.TypeInfo.hs
index a2df59c..f23bd83 100644
--- a/ddl/out/LambdaCube.TypeInfo.hs
+++ b/ddl/out/LambdaCube.TypeInfo.hs
@@ -1,5 +1,5 @@
 -- generated file, do not modify!
--- 2016-02-12T16:05:13.364534000000Z
+-- 2016-02-26T10:42:57.376331000000Z
 
 {-# LANGUAGE OverloadedStrings, RecordWildCards #-}
 module LambdaCube.TypeInfo where
@@ -28,9 +28,9 @@ data TypeInfo
 
   deriving (Show, Eq, Ord)
 
-data MyEither
-  = MyLeft TypeInfo (Vector TypeInfo)
-  | MyRight String Pipeline (Vector TypeInfo)
+data CompileResult
+  = CompileError (Vector TypeInfo) (Vector TypeInfo)
+  | Compiled String Pipeline (Vector TypeInfo)
   deriving (Show, Eq, Ord)
 
 
@@ -64,16 +64,16 @@ instance FromJSON TypeInfo where
           } 
   parseJSON _ = mzero
 
-instance ToJSON MyEither where
+instance ToJSON CompileResult where
   toJSON v = case v of
-    MyLeft arg0 arg1 -> object [ "tag" .= ("MyLeft" :: Text), "arg0" .= arg0, "arg1" .= arg1]
-    MyRight arg0 arg1 arg2 -> object [ "tag" .= ("MyRight" :: Text), "arg0" .= arg0, "arg1" .= arg1, "arg2" .= arg2]
+    CompileError arg0 arg1 -> object [ "tag" .= ("CompileError" :: Text), "arg0" .= arg0, "arg1" .= arg1]
+    Compiled arg0 arg1 arg2 -> object [ "tag" .= ("Compiled" :: Text), "arg0" .= arg0, "arg1" .= arg1, "arg2" .= arg2]
 
-instance FromJSON MyEither where
+instance FromJSON CompileResult where
   parseJSON (Object obj) = do
     tag <- obj .: "tag"
     case tag :: Text 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"
   parseJSON _ = mzero