on develop help sign in
Merge pull request #17 from brendanhay/feature/issue-16
1089780Brendan Hay
core/src/Network/Google/Types.hs+1−1
@@ -58,7 +58,7 @@ data AltJSON = AltJSON deriving (Eq, Ord, Show, Read, Generic, Typeable)
58data AltMedia = AltMedia deriving (Eq, Ord, Show, Read, Generic, Typeable)
58data AltMedia = AltMedia deriving (Eq, Ord, Show, Read, Generic, Typeable)
59
59
60instance ToText AltJSON where toText = const "json"
60instance ToText AltJSON where toText = const "json"
61−instance ToText AltMedia where toText = const "media"
61+instance ToText AltMedia where toText = const "multipart"
62
62
63newtype OAuthScope = OAuthScope Text
63newtype OAuthScope = OAuthScope Text
64 deriving (Eq, Ord, Show, Read, IsString, Generic, Typeable, FromText, ToText, FromJSON, ToJSON)
64 deriving (Eq, Ord, Show, Read, IsString, Generic, Typeable, FromText, ToText, FromJSON, ToJSON)