Adds encodeStrict

Adds an `encodeStrict` helper to `Fleece.Aeson` that returns a strict
`ByteString`

json-fleece-aeson/json-fleece-aeson.cabal

@@ -5,7 +5,7 @@ cabal-version: 1.12
 -- see: https://github.com/sol/hpack
 
 name:           json-fleece-aeson
-version:        0.3.4.0
+version:        0.3.5.0
 description:    Please see the README on GitHub at <https://github.com/githubuser/json-fleece-aeson#readme>
 homepage:       https://github.com/flipstone/json-fleece#readme
 bug-reports:    https://github.com/flipstone/json-fleece/issues

json-fleece-aeson/package.yaml

@@ -1,5 +1,5 @@
 name:                json-fleece-aeson
-version:             0.3.4.0
+version:             0.3.5.0
 github:              "flipstone/json-fleece/json-fleece-aeson"
 license:             BSD3
 author:              "Author name here"

json-fleece-aeson/src/Fleece/Aeson/Encoder.hs

@@ -9,12 +9,14 @@
 module Fleece.Aeson.Encoder
   ( Encoder (..)
   , encode
+  , encodeStrict
   ) where
 
 import qualified Data.Aeson as Aeson
 import qualified Data.Aeson.Encoding as AesonEncoding
 import qualified Data.Aeson.Key as AesonKey
 import qualified Data.Aeson.Types as AesonTypes
+import qualified Data.ByteString as BS
 import qualified Data.ByteString.Lazy as LBS
 import Data.Coerce (coerce)
 import qualified Data.Map.Strict as Map
@@ -34,6 +36,10 @@ encode :: Encoder a -> a -> LBS.ByteString
 encode (Encoder _name toEncoding) =
   AesonEncoding.encodingToLazyByteString . toEncoding
 
+encodeStrict :: Encoder a -> a -> BS.ByteString
+encodeStrict (Encoder _name toEncoding) =
+  LBS.toStrict . AesonEncoding.encodingToLazyByteString . toEncoding
+
 instance FC.Fleece Encoder where
   newtype Object Encoder object _constructor
     = Object (object -> Aeson.Series)