Update for zoom-cache API change (zoomDumpSummaryLevel)

kfish · Nov 22, 2011 · 9a3ad6b · 9a3ad6b
1 parent 0eb22dc
commit 9a3ad6b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tools/zoom-cache-sndfile.hs b/tools/zoom-cache-sndfile.hs
@@ -216,7 +216,8 @@ zoomSummaryHandler = do
     (config, filenames) <- liftIO . processArgs =<< appArgs
     liftIO . (f (track config)) $ filenames
     where
-        f trackNo (lvl:paths) = mapM_ (zoomDumpSummaryLevel pcmIdentifiers trackNo (read lvl)) paths
+        f trackNo (lvl:paths) = mapM_ (zoomDumpSummaryLevel (read lvl)
+                                       pcmIdentifiers trackNo) paths
         f _ _ = putStrLn "Usage: zoom-cache summary n file.zxd"
 
 ------------------------------------------------------------