import Graphics.SOE

main() =

    runGraphics (

    do  w <- openWindow "My First Graphics Program" (300, 300)

        drawInWindow w (text(100, 200) "HelloFraphicsWorld")

        spaceClose w

    )

spaceClose :: Window -> IO()

spaceClose w

    =   do  k <- getKey w

            if k == ' ' then closeWindow w

                        else spaceClose w

[1 of 1] Compiling Main             ( firstGraphics.hs, firstGraphics.o )

firstGraphics.hs:3:1:

    Couldn't match expected type `IO t0' with actual type `() -> IO ()'

    In the expression: main

    When checking the type of the function `main'