X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FDotnet.hs;h=01de3e991654973b3b548411c5171f47df047bc1;hb=8e9892cd14b7558649fcd9ba0597805eb57505b3;hp=b0d45c1f01e8d6f2e0a5e3ad019ec0b00e16ebec;hpb=b3768993c0fa634d54a15a0eefa370208110be21;p=ghc-base.git

diff --git a/GHC/Dotnet.hs b/GHC/Dotnet.hs
index b0d45c1..01de3e9 100644
--- a/GHC/Dotnet.hs
+++ b/GHC/Dotnet.hs
@@ -42,7 +42,7 @@ checkResult fun = IO $ \ st ->
   case fun st of
     (# st1, res, err #)
       | err `eqAddr#` nullAddr# -> (# st1, res #)
-      | otherwise               -> throw (IOException (raiseError err)) st1
+      | otherwise               -> throw (raiseError err) st1
 
 -- ToDo: attach finaliser.
 unmarshalObject :: Addr# -> Object a