jammittools 0.5 → 0.5.0.1

raw patch · 2 files changed

+6/−5 lines, 2 filesdep ~conduit-audiodep ~jammittoolsPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: conduit-audio, jammittools

API changes (from Hackage documentation)

Files

• jammittools.cabal +2/−2
• src/Sound/Jammit/Base.hs +4/−3

@@ -1,5 +1,5 @@ Name:               jammittools-Version:            0.5+Version:            0.5.0.1 Synopsis:           Export sheet music and audio from Windows/Mac app Jammit Description: @@ -61,7 +61,7 @@     , directory     >= 1.2.0.1 && < 1.3     , filepath      >= 1.3.0.1 && < 1.5     , boxes         >= 0.1.3   && < 0.2-    , jammittools   == 0.5+    , jammittools   == 0.5.0.1   ghc-options:      -Wall -O2  source-repository head

@@ -29,6 +29,7 @@ import Control.Applicative ((<|>)) import Control.Monad (filterM, guard, forM) import Data.Char (toLower)+import Data.Maybe (fromMaybe) import System.Environment (lookupEnv) import qualified Data.Map as Map import qualified System.Directory as Dir@@ -240,9 +241,9 @@ instance PropertyListItem Beat where   fromPropertyList pl = do     dict <- fromPropertyList pl-    isDownbeat  <- fromLookup "isDownbeat"  dict-    isGhostBeat <- fromLookup "isGhostBeat" dict-    position    <- fromLookup "position"    dict+    let isDownbeat  = fromMaybe False $ fromLookup "isDownbeat"  dict+        isGhostBeat = fromMaybe False $ fromLookup "isGhostBeat" dict+    position       <-                   fromLookup "position"    dict     return Beat{..}  loadBeats :: FilePath -> IO (Maybe [Beat])