Fix quick info priority

Author: Krzysztof-Cieslak

.gitignore

@@ -57,7 +57,6 @@ temp
 .fake
 .vs
 *.js
-.vscode
 .orig
 release.cmd
 paket-files

release/.vscode/launch.json .vscode/launch.jsonrelease/.vscode/launch.json renamed to .vscode/launch.json

@@ -3,10 +3,11 @@
 	"version": "0.1.0",
 	"configurations": [
 		{
+            "preLaunchTask": "Default",
 			"name": "Launch Extension",
 			"type": "extensionHost",
 			"runtimeExecutable": "${execPath}",
-			"args": ["--extensionDevelopmentPath=${workspaceRoot}" ],
+			"args": ["--extensionDevelopmentPath=${workspaceRoot}/release" ],
 			"stopOnEntry": false
 		}
 	]

.vscode/tasks.json

@@ -0,0 +1,23 @@
+// Available variables which can be used inside of strings.
+// ${workspaceRoot}: the root folder of the team
+// ${file}: the current opened file
+// ${fileBasename}: the current opened file's basename
+// ${fileDirname}: the current opened file's dirname
+// ${fileExtname}: the current opened file's extension
+// ${cwd}: the current working directory of the spawned process
+
+{
+	"version": "0.1.0",
+    "command": "build.cmd",
+    "isShellCommand": true,
+	"showOutput": "silent",
+    "args": [],
+    "tasks": [
+        {
+            "taskName": "Default",
+            "args": [],
+            "isBuildCommand": true
+        }
+    ]
+
+}

src/Components/Linter.fs

@@ -8,7 +8,7 @@ open FunScript.TypeScript.vscode.languages
 open FunScript.TypeScript.path
 open FunScript.TypeScript.fs
 
-open DTO
+open DTO 
 open Ionide.VSCode.Helpers
 
 [<ReflectedDefinition>]
@@ -35,7 +35,6 @@ module Linter =
         p
         |> Globals.dirname
         |> findFsProj
-        |> Option.map (fun n -> LanguageService.project n )
 
     let private parse path text =
 
@@ -57,7 +56,10 @@ module Linter =
         let path = file.fileName
         let prom = project path
         match prom with
-        | Some p -> p |> Promise.success (fun _ -> parse path (file.getText ())) |> ignore
+        | Some p -> p
+                    |> LanguageService.project
+                    |> Promise.success (fun _ -> parse path (file.getText ()))
+                    |> ignore
         | None -> parse path (file.getText ())
 
     let mutable private timer = None : NodeJS.Timer option

src/Components/QuickInfo.fs

@@ -13,32 +13,30 @@ open Ionide.VSCode.Helpers
 module QuickInfo =
     let mutable private item : StatusBarItem option = None
 
-    
-
-    let private handle' (event : TextEditorSelectionChangeEvent) = 
+    let private handle' (event : TextEditorSelectionChangeEvent) =
         let doc = event.textEditor.document
         let pos = event.selections.[0].active
         LanguageService.tooltip (doc.fileName) (int pos.line + 1) (int pos.character + 1)
-        |> Promise.success (fun o -> 
+        |> Promise.success (fun o ->
             let res = (o.Data |> Array.fold (fun acc n -> (n |> Array.toList) @ acc ) []).Head.Signature
-            let t = res.Split('\n').[0] 
+            let t = res.Split('\n').[0]
             item |> Option.iter (fun n -> n.hide ())
-            let i = window.Globals.createStatusBarItem (1 |> unbox)
+            let i = window.Globals.createStatusBarItem (1 |> unbox, -1.)
             i.text <- t
             i.tooltip <- res
             i.show ()
             item <- Some i
             ()
         )
         |> ignore
-        
+
     let mutable private timer = None : NodeJS.Timer option
-    
+
     let private handle (event : TextEditorSelectionChangeEvent) =
         timer |> Option.iter(Globals.clearTimeout)
         timer <- Some (Globals.setTimeout((fun n -> handle' event), 500.) )
 
-    let activate (disposables: Disposable[]) = 
+    let activate (disposables: Disposable[]) =
         window.Globals.onDidChangeTextEditorSelection
-        |> EventHandler.add handle () disposables 
+        |> EventHandler.add handle () disposables
         ()

src/Ionide.FSharp.fsproj

@@ -8,7 +8,7 @@
     <RootNamespace>Ionide.FSharp</RootNamespace>
     <AssemblyName>Ionide.FSharp</AssemblyName>
     <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
-    <TargetFrameworkProfile /> 
+    <TargetFrameworkProfile />
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
     <DebugSymbols>true</DebugSymbols>