[htoolkit-cvs] HSQL/MSI/Database/HSQL MSI.hsc,1.7,1.8

[<kr_...@us...>]

Update of /cvsroot/htoolkit/HSQL/MSI/Database/HSQL
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv5509/Database/HSQL

Modified Files:
	MSI.hsc 
Log Message:
it's enabled to have equal dest and source databases


Index: MSI.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/MSI/Database/HSQL/MSI.hsc,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** MSI.hsc	9 Jan 2006 14:49:23 -0000	1.7
--- MSI.hsc	19 Nov 2006 22:17:10 -0000	1.8
***************
*** 24,27 ****
--- 24,28 ----
  import Foreign
  import Foreign.C
+ import System.Directory(canonicalizePath)
  import Database.HSQL
  import Database.HSQL.Types
***************
*** 36,40 ****
    withCString dest   $ \cdest   ->
    alloca             $ \phandle -> do
!     msiOpenDatabase csource cdest phandle >>= checkResult
      hDatabase <- peek phandle
      refFalse <- newMVar False
--- 37,43 ----
    withCString dest   $ \cdest   ->
    alloca             $ \phandle -> do
!     source <- canonicalizePath source
!     dest   <- canonicalizePath dest
!     msiOpenDatabase csource (if source == dest then nullPtr `plusPtr` 2 else cdest) phandle >>= checkResult
      hDatabase <- peek phandle
      refFalse <- newMVar False