@@ -13,9 +13,7 @@ module Proto.Autopilotrpc.Autopilot (
13
13
) where
14
14
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
15
15
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
16
- import qualified Text.PrettyPrint.GenericPretty.Instance
17
16
import qualified GHC.Generics
18
- import qualified Text.PrettyPrint.GenericPretty
19
17
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
20
18
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
21
19
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
@@ -52,7 +50,6 @@ instance Prelude.Show ModifyStatusRequest where
52
50
' {'
53
51
(Prelude. showString
54
52
(Data.ProtoLens. showMessageShort __x) (Prelude. showChar ' }' __s))
55
- instance Text.PrettyPrint.GenericPretty. Out ModifyStatusRequest
56
53
instance Data.ProtoLens.Field. HasField ModifyStatusRequest " enable" Prelude. Bool where
57
54
fieldOf _
58
55
= (Prelude. .)
@@ -158,7 +155,6 @@ instance Prelude.Show ModifyStatusResponse where
158
155
' {'
159
156
(Prelude. showString
160
157
(Data.ProtoLens. showMessageShort __x) (Prelude. showChar ' }' __s))
161
- instance Text.PrettyPrint.GenericPretty. Out ModifyStatusResponse
162
158
instance Data.ProtoLens. Message ModifyStatusResponse where
163
159
messageName _ = Data.Text. pack " autopilotrpc.ModifyStatusResponse"
164
160
packedMessageDescriptor _
@@ -195,13 +191,13 @@ instance Data.ProtoLens.Message ModifyStatusResponse where
195
191
Data.ProtoLens. unknownFields (\ ! t -> Prelude. reverse t) x)
196
192
else
197
193
do tag <- Data.ProtoLens.Encoding.Bytes. getVarInt
198
- case tag of {
194
+ case tag of
199
195
wire
200
196
-> do ! y <- Data.ProtoLens.Encoding.Wire. parseTaggedValueFromWire
201
197
wire
202
198
loop
203
199
(Lens.Family2. over
204
- Data.ProtoLens. unknownFields (\ ! t -> (:) y t) x) }
200
+ Data.ProtoLens. unknownFields (\ ! t -> (:) y t) x)
205
201
in
206
202
(Data.ProtoLens.Encoding.Bytes. <?>)
207
203
(do loop Data.ProtoLens. defMessage) " ModifyStatusResponse"
@@ -230,7 +226,6 @@ instance Prelude.Show QueryScoresRequest where
230
226
' {'
231
227
(Prelude. showString
232
228
(Data.ProtoLens. showMessageShort __x) (Prelude. showChar ' }' __s))
233
- instance Text.PrettyPrint.GenericPretty. Out QueryScoresRequest
234
229
instance Data.ProtoLens.Field. HasField QueryScoresRequest " pubkeys" [Data.Text. Text ] where
235
230
fieldOf _
236
231
= (Prelude. .)
@@ -325,14 +320,9 @@ instance Data.ProtoLens.Message QueryScoresRequest where
325
320
case tag of
326
321
10
327
322
-> do ! y <- (Data.ProtoLens.Encoding.Bytes. <?>)
328
- (do value <- do len <- Data.ProtoLens.Encoding.Bytes. getVarInt
329
- Data.ProtoLens.Encoding.Bytes. getBytes
330
- (Prelude. fromIntegral len)
331
- Data.ProtoLens.Encoding.Bytes. runEither
332
- (case Data.Text.Encoding. decodeUtf8' value of
333
- (Prelude. Left err)
334
- -> Prelude. Left (Prelude. show err)
335
- (Prelude. Right r) -> Prelude. Right r))
323
+ (do len <- Data.ProtoLens.Encoding.Bytes. getVarInt
324
+ Data.ProtoLens.Encoding.Bytes. getText
325
+ (Prelude. fromIntegral len))
336
326
" pubkeys"
337
327
v <- Data.ProtoLens.Encoding.Parser.Unsafe. unsafeLiftIO
338
328
(Data.ProtoLens.Encoding.Growing. append mutable'pubkeys y)
@@ -413,7 +403,6 @@ instance Prelude.Show QueryScoresResponse where
413
403
' {'
414
404
(Prelude. showString
415
405
(Data.ProtoLens. showMessageShort __x) (Prelude. showChar ' }' __s))
416
- instance Text.PrettyPrint.GenericPretty. Out QueryScoresResponse
417
406
instance Data.ProtoLens.Field. HasField QueryScoresResponse " results" [QueryScoresResponse'HeuristicResult ] where
418
407
fieldOf _
419
408
= (Prelude. .)
@@ -554,7 +543,6 @@ instance Prelude.Show QueryScoresResponse'HeuristicResult where
554
543
' {'
555
544
(Prelude. showString
556
545
(Data.ProtoLens. showMessageShort __x) (Prelude. showChar ' }' __s))
557
- instance Text.PrettyPrint.GenericPretty. Out QueryScoresResponse'HeuristicResult
558
546
instance Data.ProtoLens.Field. HasField QueryScoresResponse'HeuristicResult " heuristic" Data.Text. Text where
559
547
fieldOf _
560
548
= (Prelude. .)
@@ -643,14 +631,9 @@ instance Data.ProtoLens.Message QueryScoresResponse'HeuristicResult where
643
631
case tag of
644
632
10
645
633
-> do y <- (Data.ProtoLens.Encoding.Bytes. <?>)
646
- (do value <- do len <- Data.ProtoLens.Encoding.Bytes. getVarInt
647
- Data.ProtoLens.Encoding.Bytes. getBytes
648
- (Prelude. fromIntegral len)
649
- Data.ProtoLens.Encoding.Bytes. runEither
650
- (case Data.Text.Encoding. decodeUtf8' value of
651
- (Prelude. Left err)
652
- -> Prelude. Left (Prelude. show err)
653
- (Prelude. Right r) -> Prelude. Right r))
634
+ (do len <- Data.ProtoLens.Encoding.Bytes. getVarInt
635
+ Data.ProtoLens.Encoding.Bytes. getText
636
+ (Prelude. fromIntegral len))
654
637
" heuristic"
655
638
loop
656
639
(Lens.Family2. set (Data.ProtoLens.Field. field @ " heuristic" ) y x)
@@ -745,7 +728,6 @@ instance Prelude.Show QueryScoresResponse'HeuristicResult'ScoresEntry where
745
728
' {'
746
729
(Prelude. showString
747
730
(Data.ProtoLens. showMessageShort __x) (Prelude. showChar ' }' __s))
748
- instance Text.PrettyPrint.GenericPretty. Out QueryScoresResponse'HeuristicResult'ScoresEntry
749
731
instance Data.ProtoLens.Field. HasField QueryScoresResponse'HeuristicResult'ScoresEntry " key" Data.Text. Text where
750
732
fieldOf _
751
733
= (Prelude. .)
@@ -832,14 +814,9 @@ instance Data.ProtoLens.Message QueryScoresResponse'HeuristicResult'ScoresEntry
832
814
case tag of
833
815
10
834
816
-> do y <- (Data.ProtoLens.Encoding.Bytes. <?>)
835
- (do value <- do len <- Data.ProtoLens.Encoding.Bytes. getVarInt
836
- Data.ProtoLens.Encoding.Bytes. getBytes
837
- (Prelude. fromIntegral len)
838
- Data.ProtoLens.Encoding.Bytes. runEither
839
- (case Data.Text.Encoding. decodeUtf8' value of
840
- (Prelude. Left err)
841
- -> Prelude. Left (Prelude. show err)
842
- (Prelude. Right r) -> Prelude. Right r))
817
+ (do len <- Data.ProtoLens.Encoding.Bytes. getVarInt
818
+ Data.ProtoLens.Encoding.Bytes. getText
819
+ (Prelude. fromIntegral len))
843
820
" key"
844
821
loop (Lens.Family2. set (Data.ProtoLens.Field. field @ " key" ) y x)
845
822
17
@@ -914,7 +891,6 @@ instance Prelude.Show SetScoresRequest where
914
891
' {'
915
892
(Prelude. showString
916
893
(Data.ProtoLens. showMessageShort __x) (Prelude. showChar ' }' __s))
917
- instance Text.PrettyPrint.GenericPretty. Out SetScoresRequest
918
894
instance Data.ProtoLens.Field. HasField SetScoresRequest " heuristic" Data.Text. Text where
919
895
fieldOf _
920
896
= (Prelude. .)
@@ -999,14 +975,9 @@ instance Data.ProtoLens.Message SetScoresRequest where
999
975
case tag of
1000
976
10
1001
977
-> do y <- (Data.ProtoLens.Encoding.Bytes. <?>)
1002
- (do value <- do len <- Data.ProtoLens.Encoding.Bytes. getVarInt
1003
- Data.ProtoLens.Encoding.Bytes. getBytes
1004
- (Prelude. fromIntegral len)
1005
- Data.ProtoLens.Encoding.Bytes. runEither
1006
- (case Data.Text.Encoding. decodeUtf8' value of
1007
- (Prelude. Left err)
1008
- -> Prelude. Left (Prelude. show err)
1009
- (Prelude. Right r) -> Prelude. Right r))
978
+ (do len <- Data.ProtoLens.Encoding.Bytes. getVarInt
979
+ Data.ProtoLens.Encoding.Bytes. getText
980
+ (Prelude. fromIntegral len))
1010
981
" heuristic"
1011
982
loop
1012
983
(Lens.Family2. set (Data.ProtoLens.Field. field @ " heuristic" ) y x)
@@ -1100,7 +1071,6 @@ instance Prelude.Show SetScoresRequest'ScoresEntry where
1100
1071
' {'
1101
1072
(Prelude. showString
1102
1073
(Data.ProtoLens. showMessageShort __x) (Prelude. showChar ' }' __s))
1103
- instance Text.PrettyPrint.GenericPretty. Out SetScoresRequest'ScoresEntry
1104
1074
instance Data.ProtoLens.Field. HasField SetScoresRequest'ScoresEntry " key" Data.Text. Text where
1105
1075
fieldOf _
1106
1076
= (Prelude. .)
@@ -1181,14 +1151,9 @@ instance Data.ProtoLens.Message SetScoresRequest'ScoresEntry where
1181
1151
case tag of
1182
1152
10
1183
1153
-> do y <- (Data.ProtoLens.Encoding.Bytes. <?>)
1184
- (do value <- do len <- Data.ProtoLens.Encoding.Bytes. getVarInt
1185
- Data.ProtoLens.Encoding.Bytes. getBytes
1186
- (Prelude. fromIntegral len)
1187
- Data.ProtoLens.Encoding.Bytes. runEither
1188
- (case Data.Text.Encoding. decodeUtf8' value of
1189
- (Prelude. Left err)
1190
- -> Prelude. Left (Prelude. show err)
1191
- (Prelude. Right r) -> Prelude. Right r))
1154
+ (do len <- Data.ProtoLens.Encoding.Bytes. getVarInt
1155
+ Data.ProtoLens.Encoding.Bytes. getText
1156
+ (Prelude. fromIntegral len))
1192
1157
" key"
1193
1158
loop (Lens.Family2. set (Data.ProtoLens.Field. field @ " key" ) y x)
1194
1159
17
@@ -1258,7 +1223,6 @@ instance Prelude.Show SetScoresResponse where
1258
1223
' {'
1259
1224
(Prelude. showString
1260
1225
(Data.ProtoLens. showMessageShort __x) (Prelude. showChar ' }' __s))
1261
- instance Text.PrettyPrint.GenericPretty. Out SetScoresResponse
1262
1226
instance Data.ProtoLens. Message SetScoresResponse where
1263
1227
messageName _ = Data.Text. pack " autopilotrpc.SetScoresResponse"
1264
1228
packedMessageDescriptor _
@@ -1295,13 +1259,13 @@ instance Data.ProtoLens.Message SetScoresResponse where
1295
1259
Data.ProtoLens. unknownFields (\ ! t -> Prelude. reverse t) x)
1296
1260
else
1297
1261
do tag <- Data.ProtoLens.Encoding.Bytes. getVarInt
1298
- case tag of {
1262
+ case tag of
1299
1263
wire
1300
1264
-> do ! y <- Data.ProtoLens.Encoding.Wire. parseTaggedValueFromWire
1301
1265
wire
1302
1266
loop
1303
1267
(Lens.Family2. over
1304
- Data.ProtoLens. unknownFields (\ ! t -> (:) y t) x) }
1268
+ Data.ProtoLens. unknownFields (\ ! t -> (:) y t) x)
1305
1269
in
1306
1270
(Data.ProtoLens.Encoding.Bytes. <?>)
1307
1271
(do loop Data.ProtoLens. defMessage) " SetScoresResponse"
@@ -1325,7 +1289,6 @@ instance Prelude.Show StatusRequest where
1325
1289
' {'
1326
1290
(Prelude. showString
1327
1291
(Data.ProtoLens. showMessageShort __x) (Prelude. showChar ' }' __s))
1328
- instance Text.PrettyPrint.GenericPretty. Out StatusRequest
1329
1292
instance Data.ProtoLens. Message StatusRequest where
1330
1293
messageName _ = Data.Text. pack " autopilotrpc.StatusRequest"
1331
1294
packedMessageDescriptor _
@@ -1360,13 +1323,13 @@ instance Data.ProtoLens.Message StatusRequest where
1360
1323
Data.ProtoLens. unknownFields (\ ! t -> Prelude. reverse t) x)
1361
1324
else
1362
1325
do tag <- Data.ProtoLens.Encoding.Bytes. getVarInt
1363
- case tag of {
1326
+ case tag of
1364
1327
wire
1365
1328
-> do ! y <- Data.ProtoLens.Encoding.Wire. parseTaggedValueFromWire
1366
1329
wire
1367
1330
loop
1368
1331
(Lens.Family2. over
1369
- Data.ProtoLens. unknownFields (\ ! t -> (:) y t) x) }
1332
+ Data.ProtoLens. unknownFields (\ ! t -> (:) y t) x)
1370
1333
in
1371
1334
(Data.ProtoLens.Encoding.Bytes. <?>)
1372
1335
(do loop Data.ProtoLens. defMessage) " StatusRequest"
@@ -1391,7 +1354,6 @@ instance Prelude.Show StatusResponse where
1391
1354
' {'
1392
1355
(Prelude. showString
1393
1356
(Data.ProtoLens. showMessageShort __x) (Prelude. showChar ' }' __s))
1394
- instance Text.PrettyPrint.GenericPretty. Out StatusResponse
1395
1357
instance Data.ProtoLens.Field. HasField StatusResponse " active" Prelude. Bool where
1396
1358
fieldOf _
1397
1359
= (Prelude. .)
0 commit comments