git.iko.soy/project-m36
on master help sign in
indentation
46ae3e4iko
src/bin/benchmark/Handles.hs+6−6
compare with master
unifiedsplit
@@ -65,11 +65,11 @@ runOpenClose tutdSetup' tutdIterate' tCount dbdir' = do
65 case res of
65 case res of
66 DisplayErrorResult err -> error (T.unpack err)
66 DisplayErrorResult err -> error (T.unpack err)
67 DisplayParseErrorResult _ err ->
67 DisplayParseErrorResult _ err ->
68− #if __GLASGOW_HASKELL__ >= 806
68+#if __GLASGOW_HASKELL__ >= 806
69 error (errorBundlePretty err)
69 error (errorBundlePretty err)
70− #else
70+#else
71 error (parseErrorPretty err)
71 error (parseErrorPretty err)
72− #endif
72+#endif
73 _ -> do
73 _ -> do
74 replicateM_ tCount (runTransaction tutdIterate' session conn)
74 replicateM_ tCount (runTransaction tutdIterate' session conn)
75 close conn
75 close conn
@@ -85,11 +85,11 @@ runTransaction tutdIterate' sess conn =
85 case res of
85 case res of
86 DisplayErrorResult err -> error (T.unpack err)
86 DisplayErrorResult err -> error (T.unpack err)
87 DisplayParseErrorResult _ err ->
87 DisplayParseErrorResult _ err ->
88− #if __GLASGOW_HASKELL__ >= 806
88+#if __GLASGOW_HASKELL__ >= 806
89 error (errorBundlePretty err)
89 error (errorBundlePretty err)
90− #else
90+#else
91 error (parseErrorPretty err)
91 error (parseErrorPretty err)
92− #endif
92+#endif
93 _ -> do
93 _ -> do
94 eErr <- commit sess conn
94 eErr <- commit sess conn
95 case eErr of
95 case eErr of