@@ -72,7 +72,7 @@ newtype AuthKey = AuthKey Text
72newtype OAuthScope = OAuthScope { scopeToText :: Text }
72newtype OAuthScope = OAuthScope { scopeToText :: Text }
73 deriving (Eq, Ord, Show, Read, IsString, Generic, Typeable, ToText, FromJSON, ToJSON)
73 deriving (Eq, Ord, Show, Read, IsString, Generic, Typeable, ToText, FromJSON, ToJSON)
75−newtype OAuthToken = OAuthToken { tokenToText :: ByteString }
75+newtype OAuthToken = OAuthToken { tokenToBS :: ByteString }
76 deriving (Eq, Ord, Show, Read, IsString, Generic, Typeable)
76 deriving (Eq, Ord, Show, Read, IsString, Generic, Typeable)
78instance FromJSON OAuthToken where
78instance FromJSON OAuthToken where