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

Define <> locally.

Browse Source
This commit is contained in:
Rob Rix 2016-09-14 19:26:41 -04:00
parent aa240c4e63
commit 996f9f5fa7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Renderer/Split.hs
View File

@ -10,7 +10,7 @@ import Data.Record
import qualified Data.Text.Lazy as TL
import Data.These
import Info
import Prologue hiding (div, head, fst, snd, link)
import Prologue hiding (div, head, fst, snd, link, (<>))
import qualified Prologue
import Renderer
import Source
@ -164,5 +164,5 @@ instance ToMarkup a => ToMarkup (Cell a) where
<> td (toMarkup line) ! A.class_ (stringValue $ if hasChanges then "blob-code blob-code-replacement" else "blob-code")
<> string "\n"
instance Semigroup Html where
(<>) = mappend
(<>) :: Monoid m => m -> m -> m
(<>) = mappend