git.iko.soy/gogol
on develop help sign in
Regenerating vision API library with corrected prefixes
f58680aBrendan Hay
gogol-vision/gen/Network/Google/Resource/Vision/Images/Annotate.hs+3−3
compare with develop
unifiedsplit
@@ -51,7 +51,7 @@ import Network.Google.Vision.Types
51type ImagesAnnotateResource =
51type ImagesAnnotateResource =
52 "v1" :>
52 "v1" :>
53 "images:annotate" :>
53 "images:annotate" :>
54− QueryParam "$.xgafv" $Xgafv :>
54+ QueryParam "$.xgafv" Xgafv :>
55 QueryParam "upload_protocol" Text :>
55 QueryParam "upload_protocol" Text :>
56 QueryParam "pp" Bool :>
56 QueryParam "pp" Bool :>
57 QueryParam "access_token" Text :>
57 QueryParam "access_token" Text :>
@@ -66,7 +66,7 @@ type ImagesAnnotateResource =
66--
66--
67-- /See:/ 'imagesAnnotate' smart constructor.
67-- /See:/ 'imagesAnnotate' smart constructor.
68data ImagesAnnotate = ImagesAnnotate
68data ImagesAnnotate = ImagesAnnotate
69− { _iaXgafv :: !(Maybe $ Xgafv)
69+ { _iaXgafv :: !(Maybe Xgafv)
70 , _iaUploadProtocol :: !(Maybe Text)
70 , _iaUploadProtocol :: !(Maybe Text)
71 , _iaPp :: !Bool
71 , _iaPp :: !Bool
72 , _iaAccessToken :: !(Maybe Text)
72 , _iaAccessToken :: !(Maybe Text)
@@ -111,7 +111,7 @@ imagesAnnotate pIaPayload_ =
111 }
111 }
112
112
113-- | V1 error format.
113-- | V1 error format.
114−iaXgafv :: Lens' ImagesAnnotate (Maybe $Xgafv)
114+iaXgafv :: Lens' ImagesAnnotate (Maybe Xgafv)
115iaXgafv = lens _iaXgafv (\ s a -> s{_iaXgafv = a})
115iaXgafv = lens _iaXgafv (\ s a -> s{_iaXgafv = a})
116
116
117-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
117-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
gogol-vision/gen/Network/Google/Vision.hs+5−5
@@ -198,8 +198,8 @@ module Network.Google.Vision
198 -- ** LandmarkType
198 -- ** LandmarkType
199 , LandmarkType (..)
199 , LandmarkType (..)
200
200
201− -- ** $Xgafv
201+ -- ** Xgafv
202− , $Xgafv (..)
202+ , Xgafv (..)
203
203
204 -- ** ImageSource
204 -- ** ImageSource
205 , ImageSource
205 , ImageSource
@@ -256,9 +256,9 @@ module Network.Google.Vision
256 , pY
256 , pY
257 ) where
257 ) where
258
258
259−import Network.Google.Prelude
259+import Network.Google.Prelude
260−import Network.Google.Resource.Vision.Images.Annotate
260+import Network.Google.Resource.Vision.Images.Annotate
261−import Network.Google.Vision.Types
261+import Network.Google.Vision.Types
262
262
263{- $resources
263{- $resources
264TODO
264TODO
gogol-vision/gen/Network/Google/Vision/Types.hs+5−5
@@ -182,8 +182,8 @@ module Network.Google.Vision.Types
182 -- * LandmarkType
182 -- * LandmarkType
183 , LandmarkType (..)
183 , LandmarkType (..)
184
184
185− -- * $Xgafv
185+ -- * Xgafv
186− , $Xgafv (..)
186+ , Xgafv (..)
187
187
188 -- * ImageSource
188 -- * ImageSource
189 , ImageSource
189 , ImageSource
@@ -240,9 +240,9 @@ module Network.Google.Vision.Types
240 , pY
240 , pY
241 ) where
241 ) where
242
242
243−import Network.Google.Prelude
243+import Network.Google.Prelude
244−import Network.Google.Vision.Types.Product
244+import Network.Google.Vision.Types.Product
245−import Network.Google.Vision.Types.Sum
245+import Network.Google.Vision.Types.Sum
246
246
247-- | Default request referring to version 'v1' of the Cloud Vision API. This contains the host and root path used as a starting point for constructing service requests.
247-- | Default request referring to version 'v1' of the Cloud Vision API. This contains the host and root path used as a starting point for constructing service requests.
248visionService :: ServiceConfig
248visionService :: ServiceConfig
gogol-vision/gen/Network/Google/Vision/Types/Sum.hs+7−7
@@ -617,7 +617,7 @@ instance ToJSON LandmarkType where
617 toJSON = toJSONText
617 toJSON = toJSONText
618
618
619-- | V1 error format.
619-- | V1 error format.
620−data $Xgafv
620+data Xgafv
621 = $1
621 = $1
622 -- ^ @1@
622 -- ^ @1@
623 -- v1 error format
623 -- v1 error format
@@ -626,23 +626,23 @@ data $Xgafv
626 -- v2 error format
626 -- v2 error format
627 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
627 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
628
628
629−instance Hashable $Xgafv
629+instance Hashable Xgafv
630
630
631−instance FromText $Xgafv where
631+instance FromText Xgafv where
632 fromText = \case
632 fromText = \case
633 "1" -> Just $1
633 "1" -> Just $1
634 "2" -> Just $2
634 "2" -> Just $2
635 _ -> Nothing
635 _ -> Nothing
636
636
637−instance ToText $Xgafv where
637+instance ToText Xgafv where
638 toText = \case
638 toText = \case
639 $1 -> "1"
639 $1 -> "1"
640 $2 -> "2"
640 $2 -> "2"
641
641
642−instance FromJSON $Xgafv where
642+instance FromJSON Xgafv where
643− parseJSON = parseJSONText "$Xgafv"
643+ parseJSON = parseJSONText "Xgafv"
644
644
645−instance ToJSON $Xgafv where
645+instance ToJSON Xgafv where
646 toJSON = toJSONText
646 toJSON = toJSONText
647
647
648-- | Spoof likelihood. The likelihood that an obvious modification was made
648-- | Spoof likelihood. The likelihood that an obvious modification was made