Fix ambiguous catch for GHC 7.4

nurpax · Feb 14, 2014 · 166da07 · 166da07
1 parent 820281a
commit 166da07
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Database/SQLite/Simple.hs b/Database/SQLite/Simple.hs
@@ -343,7 +343,7 @@ convertRow rowRes ncols = do
        | otherwise -> errorColumnMismatch (ColumnOutOfBounds col)
     Errors []  -> throwIO $ ConversionFailed "" "" "unknown error"
     Errors [x] ->
-      throw x `catch` (\e -> errorColumnMismatch (e :: ColumnOutOfBounds))
+      throw x `Control.Exception.catch` (\e -> errorColumnMismatch (e :: ColumnOutOfBounds))
     Errors xs  -> throwIO $ ManyErrors xs
   where
     errorColumnMismatch :: ColumnOutOfBounds -> IO r