HDBC-mysql 0.6.6.1 → 0.6.6.2

raw patch · 2 files changed

+8/−6 lines, 2 filessetup-changednew-uploader

Files

• HDBC-mysql.cabal +3/−2
• Setup.lhs +5/−4

@@ -1,7 +1,7 @@ Name:             HDBC-mysql Category:         Database Synopsis:         MySQL driver for HDBC-Version:          0.6.6.1+Version:          0.6.6.2 Stability:        Experimental Maintainer:       Bryan O'Sullivan <bos@serpentine.com> Author:           Chris Waterson@@ -12,7 +12,7 @@ Bug-Reports:      http://github.com/bos/hdbc-mysql/issues Build-Type:       Custom Tested-with:      GHC-Cabal-Version:    >= 1.6+Cabal-Version:    >= 1.8 Description:   This package provides a MySQL driver for HDBC, implemented via   bindings to the C @mysqlclient@ library.@@ -32,6 +32,7 @@     time,     utf8-string   ghc-options:      -Wall+  Extra-Libraries: mysqlclient  source-repository head   type:     git

@@ -12,6 +12,8 @@ import Data.Char (isSpace) import Data.List (dropWhile,span) +import Debug.Trace+ import Control.Monad  main = defaultMainWithHooks simpleUserHooks {@@ -27,9 +29,9 @@ }  mysqlConfigProgram = (simpleProgram "mysql_config") {-    programFindLocation = \verbosity -> do-      mysql_config  <- findProgramOnPath "mysql_config"  verbosity-      mysql_config5 <- findProgramOnPath "mysql_config5" verbosity+    programFindLocation = \verbosity _ -> do+      mysql_config  <- findProgramLocation verbosity "mysql_config" +      mysql_config5 <- findProgramLocation verbosity "mysql_config5"       return (mysql_config `mplus` mysql_config5)   } @@ -55,5 +57,4 @@               let (run, cs1) = span (`notElem` xs) cs0                   cs2        = dropWhile (`elem` xs) cs1               in run:(split' cs2)- \end{code}