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

Intercalate!

Browse Source
This commit is contained in:
Rob Rix 2015-12-21 10:15:26 -05:00
parent 058d8d89f9
commit 5f01b38d53
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Split.hs
View File

@ -17,7 +17,7 @@ import qualified OrderedMap as Map
import Data.Maybe
import Data.Monoid
import qualified Data.Set as Set
import Data.List (intersperse)
import Data.List (intercalate)
type ClassName = String
@ -121,7 +121,7 @@ unLine EmptyLine = []
unLine (Line _ elements) = elements
instance Show a => Show (Line a) where
show (Line change elements) = show change ++ " [" ++ (concat . intersperse ", " $ show <$> elements) ++ "]"
show (Line change elements) = show change ++ " [" ++ (intercalate ", " $ show <$> elements) ++ "]"
show EmptyLine = "EmptyLine"
instance Monoid (Line a) where