git.iko.soy/typeable/ether
on master help sign in
Fix tests for GHC 7.8
405928cIndex Int
test/Regression.hs+1−1
compare with master
unifiedsplit
@@ -215,4 +215,4 @@ wrapStateBad2Core :: Int -> Int
215wrapStateBad2Core = evalState foo (ensureUniqueTags $ ethered foo wrapStateBad2)
215wrapStateBad2Core = evalState foo (ensureUniqueTags $ ethered foo wrapStateBad2)
216
216
217wrapReaderCore :: Int -> Int
217wrapReaderCore :: Int -> Int
218−wrapReaderCore = runReader foo (ethered foo ((+) <$> T.ask <*> ask foo))
218+wrapReaderCore = runReader foo (ethered foo (liftM2 (+) T.ask (ask foo)))