gbacon / hs-kernel32

Calling into kernel32.dll from Haskell

This URL has Read+Write access

hs-kernel32 / Setup.hs
100755 15 lines (11 sloc) 0.465 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#! /usr/bin/env runghc
 
import Distribution.PackageDescription
import Distribution.Simple
import Distribution.Simple.LocalBuildInfo
import System.Cmd (system)
import System.FilePath ((</>))
 
main = defaultMainWithHooks hooks
  where hooks = simpleUserHooks { runTests = runTests' }
 
runTests' :: Args -> Bool -> PackageDescription -> LocalBuildInfo -> IO ()
runTests' _ _ _ lbi = system testprog >> return ()
  where testprog = (buildDir lbi) </> "test" </> "test"