/usr/share/doc/libhugs-openal-bundled/examples/OpenAL/test/TestDevice.hs is in libhugs-openal-bundled 98.200609.21-5.4build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | import Control.Monad ( unless )
import System.IO ( hPutStrLn, stderr )
import System.Posix.Unistd ( sleep )
import Sound.OpenAL
main :: IO ()
main = do
maybeDevice <- openDevice (Just "'( ( devices '( native null ) ) )")
case maybeDevice of
Nothing -> hPutStrLn stderr "openDevice failed"
Just device -> do
sleep 1
ok <- closeDevice device
unless ok $
hPutStrLn stderr "closeDevice failed"
|