hp2any-manager 0.4.4 → 0.4.5

raw patch · 3 files changed

+12/−4 lines, 3 filesdep +directory

Dependencies added: directory

Files

• CHANGES +3/−0
• hp2any-manager.cabal +2/−2
• src/Manager.hs +7/−2

@@ -1,3 +1,6 @@+0.4.5 - 110414+* added ability to load files specified as command line arguments+ 0.4.4 - 110413 * got rid of impredicative types (using unsafeCoerce...) * cleaned up warnings

@@ -1,5 +1,5 @@ Name:          hp2any-manager-Version:       0.4.4+Version:       0.4.5 Cabal-Version: >= 1.2 Synopsis:      A utility to visualise and compare heap profiles. Category:      profiling, development, utils@@ -26,7 +26,7 @@ Executable hp2any-manager   HS-Source-Dirs: src   Main-IS:        Manager.hs-  Build-Depends:  base >= 4 && < 5, containers, array, filepath, time,+  Build-Depends:  base >= 4 && < 5, containers, array, filepath, directory, time,                   glib, gtk, gtkglext, glade, cairo, OpenGL,                   bytestring, hp2any-core, hp2any-graph   GHC-Options:    -Wall -O2

@@ -23,6 +23,8 @@ import Profiling.Heap.Read import Profiling.Heap.Types import Profiling.Heap.Stats+import System.Directory+import System.Environment import System.FilePath --import System.Glib.Types import System.IO.Unsafe@@ -616,7 +618,8 @@  loadHpFiles :: VBox -> [FilePath] -> IO () loadHpFiles column hpFiles = do-  let numFiles = length hpFiles+  hpFiles' <- filterM doesFileExist hpFiles+  let numFiles = length hpFiles'    when (numFiles > 0) $ do     cancelled <- newIORef False@@ -625,7 +628,7 @@     widgetShowAll progWin      -- Load the files one by one-    forM_ (zip hpFiles [1..]) $ \(name,num) -> withCancelled $ \c -> unless c $ do+    forM_ (zip hpFiles' [1..]) $ \(name,num) -> withCancelled $ \c -> unless c $ do       progString $ takeFileName name ++ " (" ++ show (num :: Int) ++ "/" ++ show numFiles ++ ")"       refresh @@ -701,4 +704,6 @@     widgetShowAll newColumn    widgetShowAll mainWindow+  loadHpFiles startColumn =<< getArgs+   mainGUI