From 13f74d018bb1a3c13909c86096194ba4f2c4ce8d Mon Sep 17 00:00:00 2001
From: Raniere Silva <raniere@rgaiacs.com>
Date: Thu, 3 Dec 2015 08:21:25 -0200
Subject: [PATCH] Add support to GAP
---
src/Text/Pandoc/Highlighting.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/Text/Pandoc/Highlighting.hs b/src/Text/Pandoc/Highlighting.hs
index 71927054f..d7a14c129 100644
--- a/src/Text/Pandoc/Highlighting.hs
+++ b/src/Text/Pandoc/Highlighting.hs
@@ -124,6 +124,7 @@ langsList = [("ada","Ada")
,("php","PHP")
,("xslt","XSLT")
,("html","HTML")
+ ,("gap","GAP")
]
listingsLangs :: [String]
@@ -138,7 +139,7 @@ listingsLangs = ["Ada","Java","Prolog","Algol","JVMIS","Promela",
"Oberon-2","TeX","erlang","OCL","VBScript","Euphoria",
"Octave","Verilog","Fortran","Oz","VHDL","GCL",
"Pascal","VRML","Gnuplot","Perl","XML","Haskell",
- "PHP","XSLT","HTML","PL/I"]
+ "PHP","XSLT","HTML","PL/I","GAP"]
-- Determine listings language name from highlighting-kate language name.
toListingsLanguage :: String -> Maybe String