gopro-plus 0.6.1.1 → 0.6.1.2
raw patch · 2 files changed
+10/−8 lines, 2 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
+ GoPro.Plus.Media: [_sidecar_item_number] :: SidecarFile -> Maybe Int
+ GoPro.Plus.Media: instance GoPro.Plus.Media.HasMediaItemNumber GoPro.Plus.Media.SidecarFile
+ GoPro.Plus.Media: sidecar_item_number :: Lens' SidecarFile (Maybe Int)
- GoPro.Plus.Media: SidecarFile :: Double -> String -> String -> String -> String -> SidecarFile
+ GoPro.Plus.Media: SidecarFile :: Double -> String -> String -> String -> String -> Maybe Int -> SidecarFile
Files
- gopro-plus.cabal +2/−2
- src/GoPro/Plus/Media.hs +8/−6
gopro-plus.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 11284666d679019928c9ebccb4138e841a5db94cdcfd6067e862a357f4e57843+-- hash: 6d0f0bd4ed2516dce211a0156ac512af8485e6d79ee5787564318d05fc909ee3 name: gopro-plus-version: 0.6.1.1+version: 0.6.1.2 synopsis: GoPro Plus Client API. description: Please see the README on GitHub at <https://github.com/dustin/gopro-plus#readme> category: Web
src/GoPro/Plus/Media.hs view
@@ -34,7 +34,7 @@ SpriteFrame(..), frame_count, frame_height, frame_width, Sprite(..), sprite_fps, sprite_frame, sprite_height, sprite_width, sprite_type, sprite_heads, sprite_urls,- SidecarFile(..), sidecar_fps, sidecar_label, sidecar_type, sidecar_head, sidecar_url,+ SidecarFile(..), sidecar_fps, sidecar_label, sidecar_type, sidecar_head, sidecar_url, sidecar_item_number, FileStuff(..), files, variations, sprites, sidecar_files, FileInfo(..), fileStuff, filename, Error(..), error_reason, error_code, error_description, error_id,@@ -322,11 +322,12 @@ toJSON = genericToJSON jsonOpts{ fieldLabelModifier = dropPrefix "_sprite_" } data SidecarFile = SidecarFile- { _sidecar_fps :: Double- , _sidecar_label :: String- , _sidecar_type :: String- , _sidecar_head :: String- , _sidecar_url :: String+ { _sidecar_fps :: Double+ , _sidecar_label :: String+ , _sidecar_type :: String+ , _sidecar_head :: String+ , _sidecar_url :: String+ , _sidecar_item_number :: Maybe Int } deriving (Generic, Eq, Show) makeLenses ''SidecarFile@@ -335,6 +336,7 @@ instance HasMediaHead SidecarFile where media_head = sidecar_head instance HasMediaLabel SidecarFile where media_label = sidecar_label instance HasMediaType SidecarFile where media_type = sidecar_type+instance HasMediaItemNumber SidecarFile where media_item_number = sidecar_item_number instance FromJSON SidecarFile where parseJSON = genericParseJSON defaultOptions {