1 module SafetyNet where

2

3 import Graphics.UI.WX hiding (window)

4 import Prelude hiding (catch)

5 import Control.Exception

6 import Constants (toolName)

7

8 safetyNet :: Window a -> IO b -> IO ()

9 safetyNet window computation =

10 do{ catch

11 (do { computation; return () })

12 (handler window)

13 ; return ()

14 }

15

16 handler :: Window a -> Exception -> IO ()

17 handler window exception =

18 do{ putStrLn $ "SafetyNet exception: " ++ show exception

19 ; errorDialog window "Exception"

20 ( "An exception occurred; please report the following text exactly to the makers: \n\n"

21 ++ show exception ++ "\n\n"

22 ++ "Please save the document under a different name and quit " ++ toolName ++ "."

23 )

24 }