1
1
mirror of https://github.com/github/semantic.git synced 2024-12-01 09:15:01 +03:00

Revert "Add a stupid rowMap function to fmap Both things. It’s an Applicative helper really."

This reverts commit 7a924bbacdd74b3697cc9bbf991b27b24ec8ce31.
This commit is contained in:
Rob Rix 2016-03-03 08:49:59 -05:00
parent 34c4c7f559
commit 2eb8b6b460

View File

@ -18,10 +18,6 @@ unLeft = fst . unRow
unRight :: Row a -> Line a
unRight = snd . unRow
-- | Like fmap but applies Both functions.
rowMap :: Both (a -> b) -> Row a -> Row b
rowMap transform row = Row $ fmap <$> transform <*> unRow row
-- | Map over both sides of a row with the given functions.
wrapRowContents :: Both ([a] -> b) -> Row a -> Row b
wrapRowContents transform row = Row $ wrapLineContents <$> transform <*> unRow row