github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-18 20:31:55 +03:00
Code Issues Projects Releases Wiki Activity

intersperse commas in Show Line instance

Browse Source
This commit is contained in:
joshvera 2015-12-09 19:06:29 -05:00
parent 79d8924b58
commit 9039068a5c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Split.hs
View File

@ -15,6 +15,8 @@ import qualified Text.Blaze.Html5.Attributes as A
import Text.Blaze.Html.Renderer.Utf8
import Data.Monoid
import qualified Data.Set as Set
import Debug.Trace
import Data.List (intersperse)
type ClassName = String
@ -71,7 +73,7 @@ instance ToMarkup Line where
data Line = Line { unLine :: [HTML] } | EmptyLine deriving Eq
instance Show Line where
show (Line elements) = "[" ++ (concat $ show <$> elements) ++ "]"
show (Line elements) = "[" ++ (concat . intersperse ", " $ show <$> elements) ++ "]"
show EmptyLine = "EmptyLine"
instance Monoid Line where