v0.5.0.1, fixed a bug in reading beats.plist

incorrectly converted the code from jelly...

jammittools.cabal

@@ -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 @@ executable jammittools
     , 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

src/Sound/Jammit/Base.hs

@@ -29,6 +29,7 @@ import Control.Applicative ((<$>))
 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 @@ data Beat = Beat
 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])

stack.yaml

@@ -4,6 +4,7 @@ packages:
 - location:
     git: git@github.com:Twinside/HPDF
     commit: 090c08ab61a237c721a307f5cf9fd33f3988b82e
+  extra-dep: true
 extra-deps:
 - boxes-0.1.4
 - conduit-audio-0.1