/usr/share/doc/libhugs-alut-bundled/examples/ALUT/Basic/HelloWorld.hs is in libhugs-alut-bundled 98.200609.21-5.3.
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 16 17 18 19 20 | {-
HelloWorld.hs (adapted from hello_world.c in freealut)
Copyright (c) Sven Panne 2005 <sven.panne@aedion.de>
This file is part of the ALUT package & distributed under a BSD-style license
See the file libraries/ALUT/LICENSE
-}
import Sound.ALUT
-- This is the Haskell version of the 'Hello World' program from the ALUT
-- reference manual.
main :: IO ()
main =
withProgNameAndArgs runALUT $ \_progName _args -> do
helloBuffer <- createBuffer HelloWorld
[helloSource] <- genObjectNames 1
buffer helloSource $= Just helloBuffer
play [helloSource]
sleep 1
|