on master help sign in
Fix tests for GHC 7.8
commit405928c6d14c424fda2401ed8a244d6169d85bbd authorIndex Int <vlad.z.4096@gmail.com> dateSun 18 Oct 2015, 06:46 (11 years ago) parent672b28f
1 file changed+1−1
test/Regression.hs+1−1
test/Regression.hs+1−1
@@ -215,4 +215,4 @@ wrapStateBad2Core :: Int -> Int
215215wrapStateBad2Core = evalState foo (ensureUniqueTags $ ethered foo wrapStateBad2)
216216
217217wrapReaderCore :: Int -> Int
218−wrapReaderCore = runReader foo (ethered foo ((+) <$> T.ask <*> ask foo))
218+wrapReaderCore = runReader foo (ethered foo (liftM2 (+) T.ask (ask foo)))