mirror of
https://github.com/github/semantic.git
synced 2024-12-24 15:35:14 +03:00
Stub in an AppMerge semigroup.
This commit is contained in:
parent
3315096629
commit
0b2b27ff21
@ -72,6 +72,7 @@ library
|
||||
, Data.Patch
|
||||
, Data.Range
|
||||
, Data.Record
|
||||
, Data.Semigroup.App
|
||||
, Data.Source
|
||||
, Data.Span
|
||||
, Data.SplitDiff
|
||||
|
7
src/Data/Semigroup/App.hs
Normal file
7
src/Data/Semigroup/App.hs
Normal file
@ -0,0 +1,7 @@
|
||||
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
|
||||
module Data.Semigroup.App where
|
||||
|
||||
import Control.Applicative
|
||||
|
||||
newtype AppMerge f a = AppMerge { runAppMerge :: f a }
|
||||
deriving (Alternative, Applicative, Bounded, Enum, Eq, Foldable, Functor, Monad, Ord, Show, Traversable)
|
Loading…
Reference in New Issue
Block a user