Fix example

Author: garyb

examples/Complex.purs

@@ -10,10 +10,10 @@ import Control.Monad.Eff
 foreign import showUnsafe
   "var showUnsafe = JSON.stringify;" :: forall a. a -> String
 
-data Object = Object { foo :: String
-                     , bar :: Boolean
-                     , baz :: Number
-                     , list :: [ListItem] }
+data SomeObject = SomeObject { foo :: String
+                             , bar :: Boolean
+                             , baz :: Number
+                             , list :: [ListItem] }
 
 data ListItem = ListItem { x :: Number
                          , y :: Number
@@ -26,17 +26,17 @@ instance readListItem :: ReadForeign ListItem where
     z <- prop "z"
     return $ ListItem { x: x, y: y, z: z }
 
-instance readObject :: ReadForeign Object where
+instance readObject :: ReadForeign SomeObject where
   read = do
     foo <- prop "foo"
     bar <- prop "bar"
     baz <- prop "baz"
     list <- prop "list"
-    return $ Object { foo: foo, bar: bar, baz: baz, list: list }
+    return $ SomeObject { foo: foo, bar: bar, baz: baz, list: list }
 
 main = do
 
   let json = "{\"foo\":\"hello\",\"bar\":true,\"baz\":1,\"list\":[{\"x\":1,\"y\":2},{\"x\":3,\"y\":4,\"z\":999}]}" 
   Debug.Trace.trace case parseJSON json of
     Left err -> "Error parsing JSON:\n" ++ err
-    Right (Object result) -> showUnsafe result
+    Right (SomeObject result) -> showUnsafe result