diff --git a/projects/linux/ee.files b/projects/linux/ee.files
index 5830bd3ba..0471e1f3e 100644
--- a/projects/linux/ee.files
+++ b/projects/linux/ee.files
@@ -911,6 +911,8 @@
 ../../src/eepp/ui/doc/languages/csharp.hpp
 ../../src/eepp/ui/doc/languages/css.cpp
 ../../src/eepp/ui/doc/languages/css.hpp
+../../src/eepp/ui/doc/languages/curry.cpp
+../../src/eepp/ui/doc/languages/curry.hpp
 ../../src/eepp/ui/doc/languages/d.cpp
 ../../src/eepp/ui/doc/languages/d.hpp
 ../../src/eepp/ui/doc/languages/dart.cpp
diff --git a/projects/macos/ee.files b/projects/macos/ee.files
index 6898cdc29..466e77c6b 100644
--- a/projects/macos/ee.files
+++ b/projects/macos/ee.files
@@ -971,6 +971,8 @@
 ../../src/eepp/ui/doc/languages/csharp.cpp
 ../../src/eepp/ui/doc/languages/csharp.hpp
 ../../src/eepp/ui/doc/languages/css.cpp
+../../src/eepp/ui/doc/languages/curry.cpp
+../../src/eepp/ui/doc/languages/curry.hpp
 ../../src/eepp/ui/doc/languages/d.cpp
 ../../src/eepp/ui/doc/languages/dart.cpp
 ../../src/eepp/ui/doc/languages/dart.hpp
diff --git a/src/modules/languages-syntax-highlighting/src/eepp/ui/doc/languages/curry.cpp b/src/modules/languages-syntax-highlighting/src/eepp/ui/doc/languages/curry.cpp
new file mode 100644
index 000000000..e8ffc4d64
--- /dev/null
+++ b/src/modules/languages-syntax-highlighting/src/eepp/ui/doc/languages/curry.cpp
@@ -0,0 +1,42 @@
+#include <eepp/ui/doc/languages/curry.hpp>
+#include <eepp/ui/doc/syntaxdefinitionmanager.hpp>
+
+namespace EE { namespace UI { namespace Doc { namespace Language {
+
+SyntaxDefinition& addCurry() {
+
+	return SyntaxDefinitionManager::instance()->add(
+
+		{ "Curry",
+		  { "%.curry$" },
+		  {
+			  { { "%-%-", "\n" }, "comment" },
+			  { { "{%-", "%-}" }, "comment" },
+			  { { "\"", "\"", "\\" }, "string" },
+			  { { "'", "'", "\\" }, "string" },
+			  { { "-?0x%x+" }, "number" },
+			  { { "-?%d+[%d%.eE]*f?" }, "number" },
+			  { { "-?%.?%d+f?" }, "number" },
+			  { { "[!%#%$%%&*+./%<=>%?@\\%^|%-~:]" }, "operator" },
+			  { { "[%a_'][%w_']*" }, "symbol" },
+
+		  },
+		  {
+			  { "in", "keyword" },		 { "then", "keyword" },	  { "default", "keyword" },
+			  { "mdo", "keyword" },		 { "forall", "keyword" }, { "hiding", "keyword" },
+			  { "data", "keyword" },	 { "import", "keyword" }, { "as", "keyword" },
+			  { "class", "keyword" },	 { "infixl", "keyword" }, { "newtype", "keyword" },
+			  { "of", "keyword" },		 { "module", "keyword" }, { "infix", "keyword" },
+			  { "deriving", "keyword" }, { "where", "keyword" },  { "else", "keyword" },
+			  { "foreign", "keyword" },	 { "infixr", "keyword" }, { "qualified", "keyword" },
+			  { "case", "keyword" },	 { "if", "keyword" },	  { "let", "keyword" },
+			  { "do", "keyword" },		 { "type", "keyword" },
+
+		  },
+		  "--",
+		  {}
+
+		} );
+}
+
+}}}} // namespace EE::UI::Doc::Language
diff --git a/src/modules/languages-syntax-highlighting/src/eepp/ui/doc/languages/curry.hpp b/src/modules/languages-syntax-highlighting/src/eepp/ui/doc/languages/curry.hpp
new file mode 100644
index 000000000..640dddbc4
--- /dev/null
+++ b/src/modules/languages-syntax-highlighting/src/eepp/ui/doc/languages/curry.hpp
@@ -0,0 +1,12 @@
+#ifndef EE_UI_DOC_Curry
+#define EE_UI_DOC_Curry
+
+#include <eepp/ui/doc/syntaxdefinition.hpp>
+
+namespace EE { namespace UI { namespace Doc { namespace Language {
+
+extern SyntaxDefinition& addCurry();
+
+}}}} // namespace EE::UI::Doc::Language
+
+#endif
diff --git a/src/modules/languages-syntax-highlighting/src/eepp/ui/doc/languages/elm.cpp b/src/modules/languages-syntax-highlighting/src/eepp/ui/doc/languages/elm.cpp
index eb36f9c1d..d41440c04 100644
--- a/src/modules/languages-syntax-highlighting/src/eepp/ui/doc/languages/elm.cpp
+++ b/src/modules/languages-syntax-highlighting/src/eepp/ui/doc/languages/elm.cpp
@@ -35,7 +35,7 @@ SyntaxDefinition& addElm() {
 			  { "xor", "keyword" },		 { "alias", "keyword" },
 
 		  },
-		  "%-%-",
+		  "--",
 		  {}
 
 		} );
diff --git a/src/modules/languages-syntax-highlighting/src/eepp/ui/doc/languages/haskell.cpp b/src/modules/languages-syntax-highlighting/src/eepp/ui/doc/languages/haskell.cpp
index e03b27148..aa6eb9276 100644
--- a/src/modules/languages-syntax-highlighting/src/eepp/ui/doc/languages/haskell.cpp
+++ b/src/modules/languages-syntax-highlighting/src/eepp/ui/doc/languages/haskell.cpp
@@ -33,7 +33,7 @@ SyntaxDefinition& addHaskell() {
 			  { "do", "keyword" },		 { "type", "keyword" },
 
 		  },
-		  "%-%-",
+		  "--",
 		  {}
 
 		} );
diff --git a/src/modules/languages-syntax-highlighting/src/eepp/ui/doc/languagessyntaxhighlighting.cpp b/src/modules/languages-syntax-highlighting/src/eepp/ui/doc/languagessyntaxhighlighting.cpp
index ed59b62dc..2903030a6 100644
--- a/src/modules/languages-syntax-highlighting/src/eepp/ui/doc/languagessyntaxhighlighting.cpp
+++ b/src/modules/languages-syntax-highlighting/src/eepp/ui/doc/languagessyntaxhighlighting.cpp
@@ -19,6 +19,7 @@
 #include <eepp/ui/doc/languages/covscript.hpp>
 #include <eepp/ui/doc/languages/crystal.hpp>
 #include <eepp/ui/doc/languages/csharp.hpp>
+#include <eepp/ui/doc/languages/curry.hpp>
 #include <eepp/ui/doc/languages/d.hpp>
 #include <eepp/ui/doc/languages/dart.hpp>
 #include <eepp/ui/doc/languages/difffile.hpp>
@@ -248,6 +249,12 @@ void LanguagesSyntaxHighlighting::load() {
 		"csharp",
 	} );
 
+	sdm->addPreDefinition( {
+		"Curry",
+		[]() -> SyntaxDefinition& { return addCurry(); },
+		{ "%.curry$" },
+	} );
+
 	sdm->addPreDefinition( {
 		"eC",
 		[]() -> SyntaxDefinition& { return addeC(); },