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:
parent
34c4c7f559
commit
2eb8b6b460
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user