/usr/share/doc/libghc-openal-doc/examples/TestDevice.hs is in libghc-openal-doc 1.4.0.2-2.
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"
|