Small refactoring: Turn a needlessly monadic binding into a let binding

1 files changed, 5 insertions, 7 deletions

diff --git a/compiler/deSugar/DsForeign.lhs b/compiler/deSugar/DsForeign.lhs
index 22a4a7bdde..318d1df44b 100644
--- a/compiler/deSugar/DsForeign.lhs
+++ b/compiler/deSugar/DsForeign.lhs
@@ -299,13 +299,11 @@ dsFExport fn_id co ext_name cconv isDyn = do
        -- Look at the result type of the exported function, orig_res_ty
        -- If it's IO t, return         (t, True)
        -- If it's plain t, return      (t, False)
-    (res_ty,             -- t
-     is_IO_res_ty) <-    -- Bool
-        case tcSplitIOType_maybe orig_res_ty of
-           Just (_ioTyCon, res_ty) -> return (res_ty, True)
-                   -- The function already returns IO t
-           Nothing                    -> return (orig_res_ty, False)
-                   -- The function returns t
+       (res_ty, is_IO_res_ty) = case tcSplitIOType_maybe orig_res_ty of
+                                -- The function already returns IO t
+                                Just (_ioTyCon, res_ty) -> (res_ty, True)
+                                -- The function returns t
+                                Nothing                 -> (orig_res_ty, False)
 
     dflags <- getDOpts
     return $