Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix compilation
authorunc0rr
Wed, 12 Aug 2009 12:52:14 +0000
changeset 2306 1addfe9fddb1
parent 2305 a51f5f88f3cf
child 2307 b20830087ed1
Fix compilation
gameServer/OfficialServer/DBInteraction.hs file | annotate | diff | comparison | revisions 
--- a/gameServer/OfficialServer/DBInteraction.hs	Wed Aug 12 12:48:57 2009 +0000
+++ b/gameServer/OfficialServer/DBInteraction.hs	Wed Aug 12 12:52:14 2009 +0000
@@ -40,9 +40,9 @@
 #if defined(OFFICIAL_SERVER)
 -------------------------------------------------------------------
 -- borrowed from base 4.0.0 ---------------------------------------
-onException :: IO a -> IO b -> IO a                              --
-onException io what = io `catch` \e -> do what                   --
-                                          throw (e :: Exception) --
+onException :: IO a -> IO b -> IO a
+onException io what = io `Exception.catch` \e -> do what
+                                          Exception.throw (e :: Exception)
 -- to be deleted --------------------------------------------------
 -------------------------------------------------------------------
hedgewars