Support for Haskell (hs, ghc)

README.md

@@ -51,6 +51,7 @@ enter testcases.
 -   C
 -   Rust
 -   Go
+-   Haskell
 -   Python
 -   Java
 -   JavaScript (Node.js)

package.json

@@ -191,6 +191,25 @@
                     "default": "go",
                     "description": "Command used to compile .go files."
                 },
+                "cph.language.haskell.Args": {
+                    "title": "Compilation flags for .hs files",
+                    "type": "string",
+                    "default": "",
+                    "description": "Space seperated additional flags passed to go while compiling your file."
+                },
+                "cph.language.haskell.SubmissionCompiler": {
+                    "type": "string",
+                    "default": "Haskell GHC 8.10.1",
+                    "enum": [
+                        "Haskell GHC 8.10.1"
+                    ],
+                    "description": "The compiler chosen in the drop down during Codeforces submission for haskell"
+                },
+                "cph.language.haskell.Command": {
+                    "type": "string",
+                    "default": "ghc",
+                    "description": "Command used to compile .hs files."
+                },
                 "cph.language.java.Args": {
                     "title": "Compilation flags for Java",
                     "type": "string",

src/compiler.ts

@@ -99,6 +99,17 @@ const getFlags = (language: Language, srcPath: string): string[] => {
             ret = [srcPath, '-d', binDir, ...args];
             break;
         }
+        case 'hs': {
+            ret = [
+                srcPath,
+                '-o',
+                getBinSaveLocation(srcPath),
+                '-no-keep-hi-files',
+                '-no-keep-o-files',
+                ...args,
+            ];
+            break;
+        }
         default: {
             ret = [];
             break;

src/config.ts

@@ -15,6 +15,7 @@ export default {
         java: 'java',
         js: 'js',
         go: 'go',
+        hs: 'hs',
     },
     compilers: {
         c: 'gcc',
@@ -24,6 +25,7 @@ export default {
         java: 'javac',
         js: 'node',
         go: 'go',
+        hs: 'hs',
     },
     compilerToId: {
         'GNU G++17 7.3.0': 54,
@@ -45,7 +47,8 @@ export default {
         'GNU GCC C11 5.1.0': 43,
         'Go 1.19.5': 32,
         'Rust 1.66.0 (2021)': 75,
+        'Haskell GHC 8.10.1': 12,
     },
-    supportedExtensions: ['py', 'cpp', 'rs', 'c', 'java', 'js', 'go'],
+    supportedExtensions: ['py', 'cpp', 'rs', 'c', 'java', 'js', 'go', 'hs'],
     skipCompile: ['py', 'js'],
 };

src/preferences.ts

@@ -53,6 +53,9 @@ export const getCArgsPref = (): string[] =>
 export const getPythonArgsPref = (): string[] =>
     getPreference('language.python.Args').split(' ') || [];
 
+export const getHaskellArgsPref = (): string[] =>
+    getPreference('language.haskell.Args').split(' ') || [];
+
 export const getRustArgsPref = (): string[] =>
     getPreference('language.rust.Args').split(' ') || [];
 
@@ -101,6 +104,8 @@ export const getJsCommand = (): string =>
     getPreference('language.js.Command') || 'node';
 export const getGoCommand = (): string =>
     getPreference('language.go.Command') || 'go';
+export const getHaskellCommand = (): string =>
+    getPreference('language.haskell.Command') || 'ghc';
 
 export const getMenuChoices = (): string[] =>
     getPreference('general.menuChoices').split(' ');
@@ -144,6 +149,11 @@ export const getLanguageId = (srcPath: string): number => {
             compiler = getPreference('language.go.SubmissionCompiler');
             break;
         }
+
+        case '.hs': {
+            compiler = getPreference('language.haskell.SubmissionCompiler');
+            break;
+        }
     }
     if (compiler == null) return -1;
     for (const [_compiler, id] of Object.entries(config.compilerToId)) {

src/types.ts

@@ -33,6 +33,9 @@ export type prefSection =
     | 'language.python.Args'
     | 'language.python.SubmissionCompiler'
     | 'language.python.Command'
+    | 'language.haskell.Args'
+    | 'language.haskell.SubmissionCompiler'
+    | 'language.haskell.Command'
     | 'general.retainWebviewContext'
     | 'general.autoShowJudge'
     | 'general.defaultLanguageTemplateFileLocation';
@@ -44,7 +47,15 @@ export type Language = {
     skipCompile: boolean;
 };
 
-export type LangNames = 'python' | 'c' | 'cpp' | 'rust' | 'java' | 'js' | 'go';
+export type LangNames =
+    | 'python'
+    | 'c'
+    | 'cpp'
+    | 'rust'
+    | 'java'
+    | 'js'
+    | 'go'
+    | 'hs';
 
 export type TestCase = {
     input: string;

src/utils.ts

@@ -14,13 +14,15 @@ import {
     getJavaArgsPref,
     getJsArgsPref,
     getGoArgsPref,
+    getHaskellArgsPref,
     getCCommand,
     getCppCommand,
     getPythonCommand,
     getRustCommand,
     getJavaCommand,
     getJsCommand,
     getGoCommand,
+    getHaskellCommand,
 } from './preferences';
 import { Language, Problem } from './types';
 import telmetry from './telmetry';
@@ -100,6 +102,14 @@ export const getLanguage = (srcPath: string): Language => {
                 skipCompile: false,
             };
         }
+        case 'hs': {
+            return {
+                name: langName,
+                args: [...getHaskellArgsPref()],
+                compiler: getHaskellCommand(),
+                skipCompile: false,
+            };
+        }
     }
     throw new Error('Invalid State');
 };