Use the actual newtype example

Author: garyb

test/Test/Example/Newtype.purs

@@ -1,6 +1,6 @@
 module Test.Example.Newtype where
 
-import Data.Codec.Argonaut as CA
+import Data.Codec.Argonaut.Common as CA
 import Data.Codec.Argonaut.Record as CAR
 import Data.Newtype (class Newtype)
 import Data.Profunctor (wrapIso)
@@ -13,8 +13,8 @@ derive instance newtypePerson ∷ Newtype Person _
 
 codec ∷ CA.JsonCodec Person
 codec =
-  CA.coercible "Person"
-    (CAR.record
+  wrapIso Person
+    (CAR.object "Person"
       { "Name": CA.string
       , age: CA.int
       , "is active": CA.boolean