@@ -65,11 +65,11 @@ runOpenClose tutdSetup' tutdIterate' tCount dbdir' = do
6565 case res of
6666 DisplayErrorResult err -> error (T.unpack err)
6767 DisplayParseErrorResult _ err ->
68− #if __GLASGOW_HASKELL__ >= 806
68+#if __GLASGOW_HASKELL__ >= 806
6969 error (errorBundlePretty err)
70− #else
70+#else
7171 error (parseErrorPretty err)
72− #endif
72+#endif
7373 _ -> do
7474 replicateM_ tCount (runTransaction tutdIterate' session conn)
7575 close conn
@@ -85,11 +85,11 @@ runTransaction tutdIterate' sess conn =
8585 case res of
8686 DisplayErrorResult err -> error (T.unpack err)
8787 DisplayParseErrorResult _ err ->
88− #if __GLASGOW_HASKELL__ >= 806
88+#if __GLASGOW_HASKELL__ >= 806
8989 error (errorBundlePretty err)
90− #else
90+#else
9191 error (parseErrorPretty err)
92− #endif
92+#endif
9393 _ -> do
9494 eErr <- commit sess conn
9595 case eErr of