speechmatics 0.2.0.0 → 0.3.0.0
raw patch · 2 files changed
+6/−4 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
- Speechmatics.Client: type AuthToken = String
+ Speechmatics.Client: type AuthToken = Maybe String
Files
- speechmatics.cabal +2/−2
- src/Speechmatics/Client.hs +4/−2
speechmatics.cabal view
@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 1321392778a08e60b2508e7e69fd70c31029767f2a3b62377f7411e4c80d5e9a+-- hash: 63fe41e6b9c568c093582034f99bea7eb1a9275cd7369a231b24601f6ee2d16b name: speechmatics-version: 0.2.0.0+version: 0.3.0.0 synopsis: Speechmatics api client description: Upload audio files to speechmatics to get a transcription category: API
src/Speechmatics/Client.hs view
@@ -36,7 +36,7 @@ import qualified Speechmatics.JSON.PeekJob as Peek -- | Authorization token obtained from speechmatics-type AuthToken = String+type AuthToken = Maybe String -- | UserID obtained from speechmatics type UserID = Integer -- | Which langauge model to use@@ -81,7 +81,9 @@ & manager .~ Left (defaultManagerSettings { managerResponseTimeout = timeout} ) tokenUri :: AuthToken -> String-tokenUri auth = "?auth_token=" <> auth+tokenUri (Just auth) = "?auth_token=" <> auth+tokenUri Nothing = ""+ slash = mappend . (flip mappend "/") -- play around to much with ghci jobsUri :: String -> UserID -> String -> String