Playing with SDL

test.hs

module TestSDL where

import qualified Graphics.UI.SDL.General as SDLG
import Graphics.UI.SDL.Joystick (countAvailable, tryName)


main = do
    SDLG.init [SDLG.InitJoystick]
    name <- tryName 0
    case name of
        Nothing -> print "None Found"
        Just x  -> print x