Fix ValueBasedJsonCodecLog

Author: pete-murphy

recipes/ValueBasedJsonCodecLog/src/Main.purs

@@ -10,7 +10,7 @@ import Data.Codec.Argonaut (JsonCodec, JsonDecodeError(..), printJsonDecodeError
 import Data.Codec.Argonaut as CA
 import Data.Codec.Argonaut.Common as CAM
 import Data.Codec.Argonaut.Record as CAR
-import Data.Either (Either(..), either, fromRight)
+import Data.Either (Either(..), either)
 import Data.Int as Int
 import Data.Maybe (Maybe(..))
 import Data.Profunctor (dimap)
@@ -46,9 +46,8 @@ main = do
   log $ "Encoding the example value:"
   log $ stringify $ encode entireRecordCodec exampleValue
 
-
 exampleJson :: Json
-exampleJson = unsafePartial $ fromRight $ jsonParser
+exampleJson = unsafePartial $ (\(Right json) -> json) $ jsonParser
   """
   {
     "string":"string value",
@@ -83,7 +82,7 @@ exampleJson = unsafePartial $ fromRight $ jsonParser
       "key3": "stuff"
     }
   }
-  """
+  """ 
 
 type EntireRecord =
   { string :: String