bamse 0.9.1 → 0.9.2

raw patch · 2 files changed

+6/−5 lines, 2 filesdep ~com

Dependency ranges changed: com

Files

• Bamse/Writer.hs +4/−3
• bamse.cabal +2/−2

@@ -36,6 +36,7 @@  import Util.List     ( mapFirstDefault, enclose ) +import System.Win32.Com ( catchComException, throwIOComException ) import System.Win32.Com.Automation                      ( (#), coRun, coCreateObject,  		       isCoError, coGetErrorString,@@ -88,7 +89,7 @@   createBasePackage (w_toolDir env) (w_templateDir env) (w_outFile env)   putStrLn "done."   ip <- coCreateObject "WindowsInstaller.Installer" iidInstaller-  flip catch (topHandler ip) $ do+  flip catchComException (topHandler ip) $ do     putStr "Creating MSI tables.."     db <- ip # openDatabase (w_outFile env) (fromEnum MsiOpenDatabaseModeTransact)     db # createTables tables@@ -119,7 +120,7 @@   when (not flg)        (ioError (userError ("Unable to locate: " ++ oFile)))   ip  <- coCreateObject "WindowsInstaller.Installer" iidInstaller-  flip catch (topHandler ip) $ do+  flip catchComException (topHandler ip) $ do     db  <- ip # openDatabase oFile (fromEnum MsiOpenDatabaseModeReadOnly)     (rec,_) <- db # fetchRow "Property"   		      [ ("Property", "ProductCode") ]@@ -138,7 +139,7 @@      		 [1 .. len]      ioError (userError (v ++  	                 unlines (("\nDetails (first val is the error code): ") : map ("  "++) ls)))- | otherwise = ioError err+ | otherwise = throwIOComException err  -- -- Function: storeTables

@@ -1,5 +1,5 @@ name: bamse
-version: 0.9.1
+version: 0.9.2
 Synopsis: A Windows Installer (MSI) generator framework
 Description:
    Bamse is a framework for building Windows Installers for
@@ -97,7 +97,7 @@ 
  Ghc-Options:     -Wall
 
- build-depends: com, haskell98, directory, pretty
+ build-depends: com >= 1.2 , haskell98, directory, pretty
  if flag(old-base)
    Build-Depends: base < 3
  else