git.iko.soy/stackage
on bf52f1d help sign in
stackage/patching/patches/sqlite-simple-0.4.5.1.patch
12 lines 661 B history raw
1diff -ru orig/Database/SQLite/Simple.hs new/Database/SQLite/Simple.hs
2--- orig/Database/SQLite/Simple.hs 2014-02-14 14:38:24.411759783 +0200
3+++ new/Database/SQLite/Simple.hs 2014-02-14 14:38:24.000000000 +0200
4@@ -343,7 +343,7 @@
5 | otherwise -> errorColumnMismatch (ColumnOutOfBounds col)
6 Errors [] -> throwIO $ ConversionFailed "" "" "unknown error"
7 Errors [x] ->
8- throw x `catch` (\e -> errorColumnMismatch (e :: ColumnOutOfBounds))
9+ throw x `Control.Exception.catch` (\e -> errorColumnMismatch (e :: ColumnOutOfBounds))
10 Errors xs -> throwIO $ ManyErrors xs
11 where
12 errorColumnMismatch :: ColumnOutOfBounds -> IO r