Merge pull request #18 from airvin/iterator-methods

Iterator methods

Author: airvin

protos-hs/Common/Common.hs

@@ -9,6 +9,7 @@
 {-# OPTIONS_GHC -fno-warn-unused-matches #-}
 
 -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT!
+
 module Google.Protobuf.Timestamp where
 import qualified Prelude as Hs
 import qualified Proto3.Suite.Class as HsProtobuf
@@ -34,16 +35,16 @@ import qualified Data.Word as Hs (Word16, Word32, Word64)
 import qualified GHC.Enum as Hs
 import qualified GHC.Generics as Hs
 import qualified Unsafe.Coerce as Hs
-
+ 
 data Timestamp = Timestamp{timestampSeconds :: Hs.Int64,
                            timestampNanos :: Hs.Int32}
                deriving (Hs.Show, Hs.Eq, Hs.Ord, Hs.Generic, Hs.NFData)
-
+ 
 instance HsProtobuf.Named Timestamp where
         nameOf _ = (Hs.fromString "Timestamp")
-
+ 
 instance HsProtobuf.HasDefault Timestamp
-
+ 
 instance HsProtobuf.Message Timestamp where
         encodeMessage _
           Timestamp{timestampSeconds = timestampSeconds,
@@ -71,26 +72,26 @@ instance HsProtobuf.Message Timestamp where
                 (HsProtobuf.Single "nanos")
                 []
                 "")]
-
+ 
 instance HsJSONPB.ToJSONPB Timestamp where
         toJSONPB (Timestamp f1 f2)
           = (HsJSONPB.object ["seconds" .= f1, "nanos" .= f2])
         toEncodingPB (Timestamp f1 f2)
           = (HsJSONPB.pairs ["seconds" .= f1, "nanos" .= f2])
-
+ 
 instance HsJSONPB.FromJSONPB Timestamp where
         parseJSONPB
           = (HsJSONPB.withObject "Timestamp"
                (\ obj ->
                   (Hs.pure Timestamp) <*> obj .: "seconds" <*> obj .: "nanos"))
-
+ 
 instance HsJSONPB.ToJSON Timestamp where
         toJSON = HsJSONPB.toAesonValue
         toEncoding = HsJSONPB.toAesonEncoding
-
+ 
 instance HsJSONPB.FromJSON Timestamp where
         parseJSON = HsJSONPB.parseJSONPB
-
+ 
 instance HsJSONPB.ToSchema Timestamp where
         declareNamedSchema _
           = do let declare_seconds = HsJSONPB.declareSchemaRef
@@ -109,4 +110,4 @@ instance HsJSONPB.ToSchema Timestamp where
                                                    HsJSONPB._schemaProperties =
                                                      HsJSONPB.insOrdFromList
                                                        [("seconds", timestampSeconds),
-                                                        ("nanos", timestampNanos)]}})
+                                                        ("nanos", timestampNanos)]}})

protos-hs/Common/Policies.hs

@@ -9,6 +9,7 @@
 {-# OPTIONS_GHC -fno-warn-unused-matches #-}
 
 -- | Generated by Haskell protocol buffer compiler. DO NOT EDIT!
+
 module Ledger.Queryresult.KvQueryResult where
 import qualified Prelude as Hs
 import qualified Proto3.Suite.Class as HsProtobuf
@@ -35,16 +36,16 @@ import qualified GHC.Enum as Hs
 import qualified GHC.Generics as Hs
 import qualified Unsafe.Coerce as Hs
 import qualified Google.Protobuf.Timestamp
-
+ 
 data KV = KV{kvNamespace :: Hs.Text, kvKey :: Hs.Text,
              kvValue :: Hs.ByteString}
         deriving (Hs.Show, Hs.Eq, Hs.Ord, Hs.Generic, Hs.NFData)
-
+ 
 instance HsProtobuf.Named KV where
         nameOf _ = (Hs.fromString "KV")
-
+ 
 instance HsProtobuf.HasDefault KV
-
+ 
 instance HsProtobuf.Message KV where
         encodeMessage _
           KV{kvNamespace = kvNamespace, kvKey = kvKey, kvValue = kvValue}
@@ -80,27 +81,27 @@ instance HsProtobuf.Message KV where
                 (HsProtobuf.Single "value")
                 []
                 "")]
-
+ 
 instance HsJSONPB.ToJSONPB KV where
         toJSONPB (KV f1 f2 f3)
           = (HsJSONPB.object ["namespace" .= f1, "key" .= f2, "value" .= f3])
         toEncodingPB (KV f1 f2 f3)
           = (HsJSONPB.pairs ["namespace" .= f1, "key" .= f2, "value" .= f3])
-
+ 
 instance HsJSONPB.FromJSONPB KV where
         parseJSONPB
           = (HsJSONPB.withObject "KV"
                (\ obj ->
                   (Hs.pure KV) <*> obj .: "namespace" <*> obj .: "key" <*>
                     obj .: "value"))
-
+ 
 instance HsJSONPB.ToJSON KV where
         toJSON = HsJSONPB.toAesonValue
         toEncoding = HsJSONPB.toAesonEncoding
-
+ 
 instance HsJSONPB.FromJSON KV where
         parseJSON = HsJSONPB.parseJSONPB
-
+ 
 instance HsJSONPB.ToSchema KV where
         declareNamedSchema _
           = do let declare_namespace = HsJSONPB.declareSchemaRef
@@ -122,20 +123,20 @@ instance HsJSONPB.ToSchema KV where
                                                      HsJSONPB.insOrdFromList
                                                        [("namespace", kvNamespace), ("key", kvKey),
                                                         ("value", kvValue)]}})
-
+ 
 data KeyModification = KeyModification{keyModificationTxId ::
                                        Hs.Text,
                                        keyModificationValue :: Hs.ByteString,
                                        keyModificationTimestamp ::
                                        Hs.Maybe Google.Protobuf.Timestamp.Timestamp,
                                        keyModificationIsDelete :: Hs.Bool}
                      deriving (Hs.Show, Hs.Eq, Hs.Ord, Hs.Generic, Hs.NFData)
-
+ 
 instance HsProtobuf.Named KeyModification where
         nameOf _ = (Hs.fromString "KeyModification")
-
+ 
 instance HsProtobuf.HasDefault KeyModification
-
+ 
 instance HsProtobuf.Message KeyModification where
         encodeMessage _
           KeyModification{keyModificationTxId = keyModificationTxId,
@@ -193,7 +194,7 @@ instance HsProtobuf.Message KeyModification where
                 (HsProtobuf.Single "is_delete")
                 []
                 "")]
-
+ 
 instance HsJSONPB.ToJSONPB KeyModification where
         toJSONPB (KeyModification f1 f2 f3 f4)
           = (HsJSONPB.object
@@ -203,22 +204,22 @@ instance HsJSONPB.ToJSONPB KeyModification where
           = (HsJSONPB.pairs
                ["tx_id" .= f1, "value" .= f2, "timestamp" .= f3,
                 "is_delete" .= f4])
-
+ 
 instance HsJSONPB.FromJSONPB KeyModification where
         parseJSONPB
           = (HsJSONPB.withObject "KeyModification"
                (\ obj ->
                   (Hs.pure KeyModification) <*> obj .: "tx_id" <*> obj .: "value" <*>
                     obj .: "timestamp"
                     <*> obj .: "is_delete"))
-
+ 
 instance HsJSONPB.ToJSON KeyModification where
         toJSON = HsJSONPB.toAesonValue
         toEncoding = HsJSONPB.toAesonEncoding
-
+ 
 instance HsJSONPB.FromJSON KeyModification where
         parseJSON = HsJSONPB.parseJSONPB
-
+ 
 instance HsJSONPB.ToSchema KeyModification where
         declareNamedSchema _
           = do let declare_tx_id = HsJSONPB.declareSchemaRef
@@ -245,4 +246,4 @@ instance HsJSONPB.ToSchema KeyModification where
                                                        [("tx_id", keyModificationTxId),
                                                         ("value", keyModificationValue),
                                                         ("timestamp", keyModificationTimestamp),
-                                                        ("is_delete", keyModificationIsDelete)]}})
+                                                        ("is_delete", keyModificationIsDelete)]}})