Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
12 lines (8 sloc) 244 Bytes
import Sound.OpenSoundControl
import Network.Netclock.Client
import System.Exit
main = stop
stop :: IO ()
stop = do serv <- openUDP "127.0.0.1" 7777
send serv (Message "/screensave/stop" [])
return ()
Something went wrong with that request. Please try again.