diff --git a/frontend/static/languages/_groups.json b/frontend/static/languages/_groups.json
index eddb625c7..3b3b0daf9 100644
--- a/frontend/static/languages/_groups.json
+++ b/frontend/static/languages/_groups.json
@@ -322,6 +322,7 @@
       "code_javascript",
       "code_javascript_1k",
       "code_julia",
+      "code_haskell",
       "code_html",
       "code_pascal",
       "code_java",
diff --git a/frontend/static/languages/_list.json b/frontend/static/languages/_list.json
index d779a5f1a..a4ba575fb 100644
--- a/frontend/static/languages/_list.json
+++ b/frontend/static/languages/_list.json
@@ -172,6 +172,7 @@
   ,"code_javascript"
   ,"code_javascript_1k"
   ,"code_julia"
+  ,"code_haskell"
   ,"code_html"
   ,"code_pascal"
   ,"code_java"
diff --git a/frontend/static/languages/code_haskell.json b/frontend/static/languages/code_haskell.json
new file mode 100644
index 000000000..2203190fb
--- /dev/null
+++ b/frontend/static/languages/code_haskell.json
@@ -0,0 +1,215 @@
+{
+  "name": "code_haskell",
+  "leftToRight": true,
+  "noLazyMode": true,
+  "words": [
+    "!",
+    "'",
+    "''",
+    "-",
+    "--",
+    "-<",
+    "-<<",
+    "->",
+    "::",
+    ";",
+    "<-",
+    ",",
+    "=",
+    "=>",
+    ">",
+    "?",
+    "#",
+    "*",
+    "@",
+    "[|",
+    "|]",
+    "\\",
+    "_",
+    "`",
+    "{,",
+    "}",
+    "{-",
+    "-}",
+    "|",
+    "~",
+    "as",
+    "case",
+    "of",
+    "class",
+    "data",
+    "data family",
+    "data instance",
+    "default",
+    "deriving",
+    "deriving instance",
+    "do",
+    "forall",
+    "foreign",
+    "hiding",
+    "if",
+    "then",
+    "else",
+    "import",
+    "infix",
+    "infixl",
+    "infixr",
+    "instance",
+    "let",
+    "in",
+    "mdo",
+    "module",
+    "newtype",
+    "proc",
+    "qualified",
+    "rec",
+    "type",
+    "type family",
+    "type instance",
+    "where",
+    "Int",
+    "Float",
+    "Double",
+    "Bool",
+    "Char",
+    "String",
+    "()",
+    "[Int]",
+    "[Float]",
+    "[Double]",
+    "[Bool]",
+    "[Char]",
+    "[String]",
+    "(&&)",
+    "(||)",
+    "(==)",
+    "(/=)",
+    "(<)",
+    "(<=)",
+    "(>)",
+    "(>=)",
+    "(+)",
+    "(-)",
+    "(*)",
+    "(/)",
+    "(**)",
+    "(^)",
+    "(^^)",
+    "(<$)",
+    "(<$>)",
+    "(<*>)",
+    "(*>)",
+    "(<*)",
+    "(>>=)",
+    "(>>)",
+    "(=<<)",
+    "(.)",
+    "($)",
+    "($!)",
+    "(++)",
+    "(!!)",
+    "not",
+    "otherwise",
+    "fst",
+    "snd",
+    "curry",
+    "uncurry",
+    "max",
+    "min",
+    "succ",
+    "pred",
+    "negate",
+    "abs",
+    "signum",
+    "quot",
+    "rem",
+    "div",
+    "mod",
+    "recip",
+    "even",
+    "odd",
+    "fmap",
+    "pure",
+    "return",
+    "foldMap",
+    "foldr",
+    "foldl",
+    "elem",
+    "maximum",
+    "minimum",
+    "sum",
+    "product",
+    "traverse",
+    "sequence",
+    "id",
+    "const",
+    "flip",
+    "until",
+    "undefined",
+    "seq",
+    "map",
+    "filter",
+    "head",
+    "last",
+    "tail",
+    "init",
+    "null",
+    "length",
+    "reverse",
+    "and",
+    "or",
+    "any",
+    "all",
+    "concat",
+    "concatMap",
+    "iterate",
+    "repeat",
+    "replicate",
+    "cycle",
+    "take",
+    "drop",
+    "takeWhile",
+    "dropWhile",
+    "span",
+    "break",
+    "splitAt",
+    "notElem",
+    "loopup",
+    "zip",
+    "zipWith",
+    "unzip",
+    "lines",
+    "words",
+    "unlines",
+    "unwords",
+    "putChar",
+    "putStr",
+    "putStrLn",
+    "print",
+    "getChar",
+    "getLine",
+    "getContents",
+    "interact",
+    "readFile",
+    "writeFile",
+    "appendFile",
+    "readIO",
+    "readLn",
+    "Eq",
+    "Enum",
+    "Bounded",
+    "Num",
+    "Real",
+    "Fractional",
+    "Semigroup",
+    "Functor",
+    "Applicative",
+    "Monad",
+    "Foldable",
+    "Show",
+    "Read",
+    "Maybe",
+    "Either",
+    "Ordering"
+  ]
+}