[Haskell-cafe] do construct in wxhaskell

[Jodi-Ann Prince]

hi, im working ona project, and im having problem loading some code in wxhaskell:
 
 
onOpen :: Frame a -> TextCtrl b -> MenuItem c -> StatusField -> IO ()
onOpen f sw mclose status = do   mbfname <- fileOpenDialog f False True "Open image" fileTypes "" ""                                              case  (mbfname) of                                              (Nothing)      -> return ()
                                              (Just (fname)) -> do   fileContent <- readFile fname
                                                                             set sw [text := fileContent]                                                                             set mclose [enabled := True]                                                                              set status [text := fname]                                              return ()
 
i keep getting the error : "the last statement in a 'do' construct must be an expression."
ive tried rearranging it many times, but i still get the same error. any help would be greatly appreciated.
_________________________________________________________________
Connect to the next generation of MSN Messenger 
http://imagine-msn.com/messenger/launch80/default.aspx?locale=en-us&source=wlmailtagline
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.haskell.org/pipermail/haskell-cafe/attachments/20080412/09659f79/attachment.htm