gopro-plus 0.6.1.0 → 0.6.1.1

raw patch · 2 files changed

+12/−3 lines, 2 filesPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

API changes (from Hackage documentation)

Files

• gopro-plus.cabal +2/−2
• src/GoPro/Plus/Media.hs +10/−1

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 568ca727f101246b004f87ca33c63a764b181feb946f40ec1212abb44a2d8b58+-- hash: 11284666d679019928c9ebccb4138e841a5db94cdcfd6067e862a357f4e57843  name:           gopro-plus-version:        0.6.1.0+version:        0.6.1.1 synopsis:       GoPro Plus Client API. description:    Please see the README on GitHub at <https://github.com/dustin/gopro-plus#readme> category:       Web

@@ -26,7 +26,7 @@   medium_ready_to_view, medium_source_duration, medium_type,   medium_token, medium_width, medium_height,   Listing(..), media, pages,-  HasMediaURL(..), HasMediaHead(..), HasMediaLabel(..), HasMediaType(..),+  HasMediaURL(..), HasMediaHead(..), HasMediaLabel(..), HasMediaType(..), HasMediaItemNumber(..),   File(..), file_camera_position, file_height, file_width,   file_item_number, file_orientation, file_head, file_url, file_transforms,   Variation(..), var_height, var_width, var_label, var_quality,@@ -217,6 +217,9 @@ class HasMediaType c where   media_type :: Lens' c String +class HasMediaItemNumber c where+  media_item_number :: Lens' c (Maybe Int)+ data File = File     { _file_camera_position :: String     , _file_height          :: Int@@ -234,6 +237,11 @@ instance HasMediaURL File where media_url = file_url instance HasMediaHead File where media_head = file_head +instance HasMediaItemNumber File where+  media_item_number = lens+                        (Just . _file_item_number)+                        (\f -> maybe f (\x -> f{_file_item_number=x}))+ instance FromJSON File where   parseJSON = genericParseJSON defaultOptions {     fieldLabelModifier = dropPrefix "_file_"@@ -262,6 +270,7 @@ instance HasMediaHead Variation where media_head = var_head instance HasMediaLabel Variation where media_label = var_label instance HasMediaType Variation where media_type = var_type+instance HasMediaItemNumber Variation where media_item_number = var_item_number  instance FromJSON Variation where   parseJSON = genericParseJSON defaultOptions {