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
|
