git.iko.soy/typeable/postgresql-simple
on master help sign in
Merge pull request #15 from phadej/ghc-8.8-inlines
2bd1c05Oleg Grenrus
test/Inspection.hs+6−1
compare with master
unifiedsplit
@@ -53,7 +53,12 @@ inspectionTests = testGroup "inspection"
53
53
54 -- byteaOid isn't inlined?
54 -- byteaOid isn't inlined?
55 , testCase "inlineTypoid" $
55 , testCase "inlineTypoid" $
56+#if __GLASGOW_HASKELL__ >= 808
57+ assertSuccess
58+#else
59+ assertFailure'
60+#endif
56− assertFailure' $(inspectTest $ 'lhs02 ==- 'rhs02)
61+ $(inspectTest $ 'lhs02 ==- 'rhs02)
57 ]
62 ]
58
63
59assertSuccess :: Result -> IO ()
64assertSuccess :: Result -> IO ()