Skip to content
This repository has been archived by the owner on Jan 2, 2021. It is now read-only.

Cleaner Show instance for SpanInfo #244

Merged
merged 2 commits into from
Dec 14, 2019
Merged

Cleaner Show instance for SpanInfo #244

Changes from 1 commit
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
d8c49d2
Cleaner Show instance for SpanInfo
jacg Dec 14, 2019
31bf22e
Stylistic fixes
jacg Dec 14, 2019
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Stylistic fixes
  • Loading branch information
@jacg
jacg committed Dec 14, 2019
commit 31bf22e2e864914ad83f7505e7aae109a9590619
5 changes: 2 additions & 3 deletions src/Development/IDE/Spans/Type.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -14,7 +14,6 @@ module Development.IDE.Spans.Type(
import GHC
import Control.DeepSeq
import OccName
import Data.List
import Development.IDE.GHC.Util

-- | Type of some span of source code. Most of these fields are
Expand All @@ -38,8 +37,8 @@ data SpanInfo =
}
instance Show SpanInfo where
show (SpanInfo sl sc el ec t n) =
intercalate " " ["(SpanInfo", show sl, show sc, show el, show ec
, show $ maybe "NoType" prettyPrint t, ("(" <> show n <> "))")]
unwords ["(SpanInfo", show sl, show sc, show el, show ec
, show $ maybe "NoType" prettyPrint t, "(" <> show n <> "))"]

instance NFData SpanInfo where
rnf = rwhnf
Expand Down