@@ -78,7 +78,9 @@ attempt :: (x -> Help.Report) -> IO (Either x a) -> IO a
78attempt toReport work =
78attempt toReport work =
79 do result <- work `catch` reportExceptionsNicely
79 do result <- work `catch` reportExceptionsNicely
80 case result of
80 case result of
81− Right a -> return a
82+ return a
83 do Exit.toStderr (toReport x)
85 do Exit.toStderr (toReport x)
84 Exit.exitFailure
86 Exit.exitFailure
@@ -88,7 +90,9 @@ attemptWithStyle :: Style -> (x -> Help.Report) -> IO (Either x a) -> IO a
88attemptWithStyle style toReport work =
90attemptWithStyle style toReport work =
89 do result <- work `catch` reportExceptionsNicely
91 do result <- work `catch` reportExceptionsNicely
90 case result of
92 case result of
91− Right a -> return a
94+ return a
93 case style of
97 case style of