github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 15:35:14 +03:00
Code Issues Projects Releases Wiki Activity

Revert "These is an instance of Bifunctor."

Browse Source 
This reverts commit e299633535e46af5ca0a6334cdc3891d18fb76b4.
This commit is contained in:
Rob Rix 2016-03-07 12:57:06 -05:00
parent 705b0757ed
commit 6fbafa268d
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Data/Bifunctor/These.hs
View File

@ -1,14 +1,4 @@
module Data.Bifunctor.These where
import Data.Bifunctor
data These a b = This a | That b | These a b
deriving (Eq, Show)
-- Instances
instance Bifunctor These where
bimap f _ (This a) = This (f a)
bimap _ g (That b) = That (g b)
bimap f g (These a b) = These (f a) (g b)