#!/usr/bin/runghc \begin{code} import Distribution.Simple import Distribution.Setup import Distribution.PackageDescription import System.Info main = defaultMainWithHooks defaultUserHooks{preConf=configure} where configure :: [String] -> ConfigFlags -> IO HookedBuildInfo configure args flags = do let binfo | os == "mingw32" = emptyBuildInfo{extraLibs=["odbc32"], ccOptions=["-Dmingw32_HOST_OS"]} | otherwise = emptyBuildInfo{extraLibs=["odbc"]} hbi = (Just binfo,[]) writeHookedBuildInfo "ODBC.buildinfo" hbi return hbi \end{code}