github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-26 16:33:03 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #469 from github/bake-bifunctors-in

Browse Source 
Remove bifunctors
This commit is contained in:
Josh Vera 2016-02-26 18:28:01 -07:00
commit 0986b3c48f
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
semantic-diff.cabal
View File

@ -37,8 +37,8 @@ library
, Source
, Control.Monad.Free
, Control.Comonad.Cofree
, Data.Bifunctor.Join
build-depends: base >= 4.8 && < 5
, bifunctors
, blaze-html
, blaze-markup
, bytestring
@ -67,7 +67,6 @@ executable semantic-diff-exe
cc-options: -DU_STATIC_IMPLEMENTATION=1
cpp-options: -DU_STATIC_IMPLEMENTATION=1
build-depends: base
, bifunctors
, bytestring
, containers
, directory
@ -101,7 +100,6 @@ executable semantic-diff
cc-options: -DU_STATIC_IMPLEMENTATION=1
cpp-options: -DU_STATIC_IMPLEMENTATION=1
build-depends: base
, bifunctors
, bytestring
, containers
, directory
@ -136,7 +134,6 @@ test-suite semantic-diff-test
, SplitSpec
, TermSpec
build-depends: base
, bifunctors
, bytestring
, containers
, deepseq

8
src/Data/Bifunctor/Join.hs Normal file
View File

@ -0,0 +1,8 @@
module Data.Bifunctor.Join where
newtype Join a = Join { runJoin :: (a, a) }
deriving (Eq, Show, Functor, Foldable, Traversable)
instance Applicative Join where
pure a = Join (a, a)
Join (f, g) <*> Join (a, b) = Join (f a, g b)