use abs path

Author: Meowcolm024

CHANGELOG.md

@@ -7,6 +7,7 @@ Check [Keep a Changelog](http://keepachangelog.com/) for recommendations on how
 ## [Unreleased]
 
 - fix typo
+- use absolute path for GHCi
 
 ## [0.1.2]
 

package.json

@@ -3,7 +3,7 @@
     "displayName": "Haskell Runner 2",
     "description": "Shortcut for GHCi and Stack",
     "publisher": "Meowcolm024",
-    "version": "0.1.2",
+    "version": "0.1.3",
     "license": "BSD3",
     "icon": "images/hr2.png",
     "engines": {

src/extension.ts

@@ -21,13 +21,11 @@ export async function activate(context: vscode.ExtensionContext) {
 
     // GHCi command
     let ghci = vscode.commands.registerCommand("runner2.ghci", () => {
-        let folder = option.option(vscode.workspace.workspaceFolders);
         let doc = option.option(vscode.window.activeTextEditor).map(e => e.document);
-        let filename =
-            folder.flatmap(f => doc
-                .flatmap(d => util.isHaskell(d) ? option.some(d) : option.none<vscode.TextDocument>())
-                .map(d => d.fileName.replace(f[0].uri.path + "/", ""))
-                .map(s => `\"${s}\"`));
+        let filename = doc
+            .flatmap(d => util.isHaskell(d) ? option.some(d) : option.none<vscode.TextDocument>())
+            .map(s => `\"${s.fileName}\"`);
+        // currently at GHCi
         if (terminal.map(t => t.name).contains("GHCi")) {
             filename.map(f => terminal.unwrap().sendText(stackproj ? ":r" : (":l " + f)));
         } else {