gopro-plus 0.4.0.0 → 0.4.1.0

raw patch · 3 files changed

+13/−3 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• gopro-plus.cabal +2/−2
• src/GoPro/Plus/Media.hs +7/−1
• test/Spec.hs +4/−0

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: c4a43a2cafe660b7470ec32c0dfa673a4c94724aaed4a35b1b1a10ae30f0cf46+-- hash: 0c596a3df2de59436a312bfc424e21230568752498bcd759c9a005c680dc8f1b  name:           gopro-plus-version:        0.4.0.0+version:        0.4.1.0 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(..), HasMediaLabel(..), HasMediaType(..),+  HasMediaURL(..), HasMediaHead(..), HasMediaLabel(..), HasMediaType(..),   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,@@ -199,6 +199,9 @@ class HasMediaURL c where   media_url :: Lens' c String +class HasMediaHead c where+  media_head :: Lens' c String+ class HasMediaLabel c where   media_label :: Lens' c String @@ -220,6 +223,7 @@ makeLenses  ''File  instance HasMediaURL File where media_url = file_url+instance HasMediaHead File where media_head = file_head  instance FromJSON File where   parseJSON = genericParseJSON defaultOptions {@@ -241,6 +245,7 @@ makeLenses ''Variation  instance HasMediaURL Variation where media_url = var_url+instance HasMediaHead Variation where media_head = var_head instance HasMediaLabel Variation where media_label = var_label instance HasMediaType Variation where media_type = var_type @@ -292,6 +297,7 @@ makeLenses ''SidecarFile  instance HasMediaURL SidecarFile where media_url = sidecar_url+instance HasMediaHead SidecarFile where media_head = sidecar_head instance HasMediaLabel SidecarFile where media_label = sidecar_label instance HasMediaType SidecarFile where media_type = sidecar_type 

@@ -35,6 +35,10 @@   assertEqual (show fs) ["http://b/"] (fs ^.. sidecar_files . folded . media_url)   assertEqual (show fs) ["http://d/", "http://e/", "http://f/"] (fs ^.. variations . folded . media_url) +  assertEqual (show fs) ["hhttp://a/", "hhttp://aprime/"] (fs ^.. files . folded . media_head)+  assertEqual (show fs) ["hhttp://b/"] (fs ^.. sidecar_files . folded . media_head)+  assertEqual (show fs) ["hhttp://d/", "hhttp://e/", "hhttp://f/"] (fs ^.. variations . folded . media_head)+   assertEqual (show fs) ["ziplabel", "timelapse_video", "high_res_proxy_mp4", "mp4_low"] (     mconcat [fs ^.. sidecar_files . folded . media_label, fs ^.. variations . folded . media_label])