Control: tags -1 patch Control: user [email protected] Control: usertags -1 ubuntu-patch
To fix this, you could upgrade to raincat 1.1.1.2 (http://hackage.haskell.org/package/Raincat - and it might be worth adding a watch file at the same time). Alternatively, here's a backported patch; I've attached it rather than including it inline since it contains embedded DOS newlines. Thanks, -- Colin Watson [[email protected]]
* Backport upstream patch to remove uses of Control.OldException. diff -u raincat-1.1/debian/patches/series raincat-1.1/debian/patches/series --- raincat-1.1/debian/patches/series +++ raincat-1.1/debian/patches/series @@ -3,0 +4 @@ +remove-oldexception.patch only in patch2: unchanged: --- raincat-1.1.orig/debian/patches/remove-oldexception.patch +++ raincat-1.1/debian/patches/remove-oldexception.patch @@ -0,0 +1,48 @@ +Description: Remove uses of Control.OldException +Origin: backport, https://github.com/styx/Raincat/commit/c88ec41d3fee0ef2cd86d3d65ad4d619f7c767ca +Forwarded: not-needed +Last-Update: 2013-04-10 + +Index: b/src/Game/GameInput.hs +=================================================================== +--- a/src/Game/GameInput.hs ++++ b/src/Game/GameInput.hs +@@ -3,7 +3,6 @@ + gameMotion) where + + import Graphics.UI.GLUT +-import Control.OldException + import System.Exit + import Data.IORef + import World.World +@@ -81,8 +80,8 @@ + writeIORef keysStateRef (keysState {escKeyDown = False}) + + -- quit key +-keyboardAct keysStateRef (Char 'q') Down = do +- throwIO $ ExitException ExitSuccess ++keyboardAct _ (Char 'q') Down = do ++ exitWith ExitSuccess + + -- left mouse button + keyboardAct keysStateRef (MouseButton LeftButton) Down = do +Index: b/src/Main.hs +=================================================================== +--- a/src/Main.hs ++++ b/src/Main.hs +@@ -3,7 +3,6 @@ + + import Graphics.UI.GLUT + import Data.Maybe +-import Control.OldException + import System.Exit + import Game.GameInput + import Game.GameMain +@@ -34,6 +33,4 @@ + + mainLoop + +-exitMain :: IO () +-exitMain = do +- throwIO $ ExitException ExitSuccess ++ exitWith ExitSuccess
