gopro-plus 0.6.2.0 → 0.6.2.1

raw patch · 3 files changed

+7/−5 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 +2/−1
• src/GoPro/Plus/Upload.hs +3/−2

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 7978d726abfc1fe3a9d4deb3534ee342c213838e7d02d8dd92726d8e08e97b2d+-- hash: 87bd8a0ef055649ead5b4800185675050d93de453e6dc6a6eb9a0f9af0e3cd68  name:           gopro-plus-version:        0.6.2.0+version:        0.6.2.1 synopsis:       GoPro Plus Client API. description:    Please see the README on GitHub at <https://github.com/dustin/gopro-plus#readme> category:       Web

@@ -60,6 +60,7 @@ import           Network.Wreq                 (asJSON, deleteWith, responseBody) import           Network.Wreq.Types           (Putable) import           System.Random                (getStdRandom, randomR)+import           Text.Read                    (readMaybe)  import           GoPro.Plus.Auth import           GoPro.Plus.Internal.AuthHTTP@@ -106,7 +107,7 @@   toJSON = J.String . T.pack . show  instance FromJSON MediumType where-  parseJSON (J.String x) = pure . read . T.unpack $ x+  parseJSON (J.String x) = maybe (fail ("Unexpected MediumType: " <> show x)) pure . readMaybe . T.unpack $ x   parseJSON invalid      = typeMismatch "Response" invalid  data ReadyToViewType = ViewReady

@@ -46,7 +46,7 @@ import           Data.Char                    (toUpper) import           Data.List.NonEmpty           (NonEmpty (..)) import qualified Data.List.NonEmpty           as NE-import           Data.Maybe                   (fromJust)+import           Data.Maybe                   (fromJust, fromMaybe) import qualified Data.Text                    as T import           Data.Time.Clock.POSIX        (getCurrentTime) import qualified Data.Vector                  as V@@ -54,6 +54,7 @@ import           System.FilePath.Posix        (takeExtension, takeFileName) import           System.IO                    (IOMode (..), SeekMode (..), hSeek, withFile) import           System.Posix.Files           (fileSize, getFileStatus)+import           Text.Read                    (readMaybe) import           UnliftIO                     (MonadUnliftIO (..))  import           GoPro.Plus.Auth              (AuthInfo (..), HasGoProAuth (..))@@ -241,7 +242,7 @@    where     tInt :: T.Text -> Integer-    tInt = read . T.unpack+    tInt = fromMaybe 0 . readMaybe . T.unpack     aChunk v = liftA3 UploadPart (v ^? key "Content-Length" . _String . to tInt)                                  (v ^? key "part" . _Integer . to toInteger)                                  (v ^? key "url" . _String . to T.unpack)