Bryan O'Sullivan avatar Bryan O'Sullivan committed 9b31c3f

A little tidying.

Comments (0)

Files changed (1)

Data/Text/ICU/Error/Internal.hsc

 
 handleParseError :: (ICUError -> Bool)
                  -> (Ptr UParseError -> Ptr UErrorCode -> IO a) -> IO a
-handleParseError isParseError action =
-    with 0 $ \uerrPtr ->
-      alloca $ \perrPtr -> do
-        ret <- action perrPtr uerrPtr
-        err <- ICUError `fmap` peek uerrPtr
-        if isParseError err
-          then do
-            perr <- peek perrPtr
-            throwIO perr { errError = err }
-          else if isFailure err
-               then throwIO err
-               else return ret
+handleParseError isParseError action = with 0 $ \uerrPtr ->
+  alloca $ \perrPtr -> do
+    ret <- action perrPtr uerrPtr
+    err <- ICUError `fmap` peek uerrPtr
+    case undefined of
+     _| isParseError err -> do
+                         perr <- peek perrPtr
+                         throwIO perr { errError = err }
+      | isFailure err -> throwIO err
+      | otherwise     -> return ret
 
 -- | Return a string representing the name of the given error code.
 errorName :: ICUError -> String
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.