Show context in messages

decl/results-db/result-item.d.ts

@@ -7,15 +7,17 @@ export interface IResultItem {
     position?: TPosition;
     message: TMessage;
     severity: TSeverity;
+    context?: string;
 }
 export declare class ResultItem {
     readonly providerId: number;
     readonly uri?: string;
     readonly position?: Point;
     readonly message: MessageObject;
     readonly severity: TSeverity;
+    readonly context?: string;
     private _isValid;
-    constructor(providerId: number, {uri, message, severity, position}: IResultItem);
+    constructor(providerId: number, {uri, message, severity, position, context}: IResultItem);
     isValid(): boolean;
     setValid(isValid: boolean): void;
     hash(): string;

src/output-panel/views/output-panel-item.tsx

@@ -10,6 +10,7 @@ export class OutputPanelItem {
     return (
       <ide-haskell-panel-item>
         {this.renderPosition()}
+        <ide-haskell-item-context>{this.props.model.context || ""}</ide-haskell-item-context>
         <ide-haskell-item-description innerHTML={this.props.model.message.toHtml()}/>
       </ide-haskell-panel-item>
     )

src/results-db/result-item.ts

@@ -10,19 +10,22 @@ export interface IResultItem {
   position?: TPosition
   message: TMessage
   severity: TSeverity
+  context?: string
 }
 
 export class ResultItem {
   public readonly uri?: string
   public readonly position?: Point
   public readonly message: MessageObject
   public readonly severity: TSeverity
+  public readonly context?: string
   private _isValid: boolean
-  constructor (public readonly providerId: number, {uri, message, severity, position}: IResultItem) {
+  constructor (public readonly providerId: number, {uri, message, severity, position, context}: IResultItem) {
     this.uri = uri
     this.message = MessageObject.fromObject(message)
     this.severity = severity
     this.position = position && Point.fromObject(position)
+    this.context = context
     this._isValid = true
   }
 
@@ -38,7 +41,8 @@ export class ResultItem {
     const h = createHash('md5')
     h.update(JSON.stringify({
       uri: this.uri, position: this.position && this.position.serialize(),
-      message: this.message.raw(), severity: this.severity
+      message: this.message.raw(), severity: this.severity,
+      context: this.context
     }))
     return h.digest('latin1')
   }

styles/ide-haskell.less

@@ -332,7 +332,13 @@ ide-haskell-panel {
 
       ide-haskell-item-position {
         cursor: pointer;
-        display: block;
+        display: inline-block;
+      }
+
+      ide-haskell-item-context {
+        display: inline-block;
+        font-family: Consolas, monospace;
+        margin-left: 1em;
       }
 
       ide-haskell-item-description {