github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 23:11:50 +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 qualified Data.Text.Lazy as TL
import Data.These import Data.These
import Info import Info
import Prologue hiding (div, head, fst, snd, link) import Prologue hiding (div, head, fst, snd, link, (<>))
import qualified Prologue import qualified Prologue
import Renderer import Renderer
import Source 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") <> td (toMarkup line) ! A.class_ (stringValue $ if hasChanges then "blob-code blob-code-replacement" else "blob-code")
<> string "\n" <> string "\n"
instance Semigroup Html where (<>) :: Monoid m => m -> m -> m
(<>) = mappend (<>) = mappend