blob: 83d49d20ccabbbc10f5b4701e73d437408d2c384 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
{-# LANGUAGE ForeignFunctionInterface #-}
import System.IO
-- Test that the startEventLog interface works as expected.
main :: IO ()
main = do
putStrLn "Starting eventlog..."
hFlush stdout
c_init_eventlog
foreign import ccall unsafe "init_eventlog"
c_init_eventlog :: IO ()
|
