Added missing encode re-exports, fixed examples

Author: davezuch

examples/Examples/Data/Argonaut/Record.purs

@@ -4,6 +4,7 @@ import Prelude
 
 import Data.Argonaut (class EncodeJson, class DecodeJson, Json, encodeJson, fromArray, decodeJson, jsonEmptyObject, (~>), (~>?), (:=), (:=?), (.:), (.:?), (.!=))
 import Data.Either (Either)
+import Data.Maybe (Maybe)
 import Data.Traversable (traverse)
 
 newtype BlogPost = BlogPost
@@ -22,7 +23,7 @@ instance decodeJsonBlogPost :: DecodeJson BlogPost where
     content <- obj .: "content"
     publishDate <- obj .:? "publish_date"
     categories <- obj .:? "categories" .!= ""
-    pure $ BlogPost { id, title, content, publishDate, content }
+    pure $ BlogPost { id, title, content, publishDate, categories }
 
 instance encodeJsonBlogPost :: EncodeJson BlogPost where
   encodeJson (BlogPost post)

src/Data/Argonaut.purs

@@ -10,7 +10,7 @@ module Data.Argonaut
 
 import Data.Argonaut.Core (Json, caseJson, caseJsonArray, caseJsonBoolean, caseJsonNull, caseJsonNumber, caseJsonObject, caseJsonString, fromArray, fromBoolean, fromNumber, fromObject, fromString, isArray, isBoolean, isNull, isNumber, isObject, isString, jsonEmptyArray, jsonEmptyObject, jsonEmptyString, jsonFalse, jsonNull, jsonSingletonArray, jsonSingletonObject, jsonTrue, jsonZero, stringify, toArray, toBoolean, toNull, toNumber, toObject, toString)
 import Data.Argonaut.Decode (class DecodeJson, decodeJson, getField, getFieldDeprecated, getFieldOptional, getFieldOptionalDeprecated, getFieldOptional', defaultField, defaultFieldDeprecated, (.:), (.?), (.:!), (.:?), (.??), (.!=), (.?=))
-import Data.Argonaut.Encode (class EncodeJson, assoc, encodeJson, extend, (:=), (~>))
+import Data.Argonaut.Encode (class EncodeJson, assoc, assocOptional, encodeJson, extend, extendOptional, (:=), (:=?), (~>), (~>?))
 import Data.Argonaut.JCursor (JCursor(..), JsonPrim(..), cursorGet, cursorSet, downField, downIndex, fail, fromPrims, inferEmpty, insideOut, primBool, primNull, primNum, primStr, primToJson, runJsonPrim, toPrims)
 import Data.Argonaut.Parser (jsonParser)
 import Data.Argonaut.Prisms (_Array, _Boolean, _Null, _Number, _Object, _String)