diff --git a/README b/README
--- a/README
+++ b/README
@@ -65,6 +65,8 @@
   
   CHANGES
   -------
+  1.2.2:  * And classes are now also written to the output file, somewhere I was
+            sleeping during all this. :)
   1.2.1:  * Fixed a regression, detection of language pragmas was apparently
             broken and now they aren't anymore.
   1.2.0:  * Hopefully the ``ambiguous infix operator'' error shouldn't occur 
diff --git a/examples/theme1.tex b/examples/theme1.tex
--- a/examples/theme1.tex
+++ b/examples/theme1.tex
@@ -18,5 +18,9 @@
 \newcommand{\lhsCHprelude}[1]{\color{prelude}{\mathbf{#1}}}
 \newcommand{\lhsCHkeyword}[1]{\color{keyword}{\textbf{#1}}}
 \newcommand{\lhsCHconstructor}[1]{\color{constructor}{\textbf{#1}}}
-\newcommand{\lhsCHlitNumber}[1]{\color{numeral}{{#1}}}
 \newcommand{\lhsCHtype}[1]{\color{datatype}{{#1}}}
+\newcommand{\lhsCHclass}[1]{\color{class}{{#1}}}
+
+%subst char a    	= "\color{char}\text{\tt ''" a "''}"
+%subst string a  	= "\color{string}\text{\tt \char34 " a "\char34}"
+%subst numeral a =  "\color{numeral}{ " a " }"
diff --git a/lhs2TeX-hl.cabal b/lhs2TeX-hl.cabal
--- a/lhs2TeX-hl.cabal
+++ b/lhs2TeX-hl.cabal
@@ -1,5 +1,5 @@
 Name:               lhs2TeX-hl
-Version:            0.1.2.1
+Version:            0.1.2.2
 Cabal-Version:      >= 1.6
 License:            MIT
 Author:             Alessandro Vermeulen <me@alessandrovermeulen.me>
diff --git a/src/Base/Common.hs b/src/Base/Common.hs
--- a/src/Base/Common.hs
+++ b/src/Base/Common.hs
@@ -1,4 +1,4 @@
 module Base.Common where
   
-programVersion = "0.1.2.1"
+programVersion = "0.1.2.2"
 programName    = "lhs2TeX-hl"
diff --git a/src/Literate/Haskell.hs b/src/Literate/Haskell.hs
--- a/src/Literate/Haskell.hs
+++ b/src/Literate/Haskell.hs
@@ -88,11 +88,12 @@
 mapping = [ ("syntax",       syntax)
           , ("keyword",      keywords)
           , ("prelude",      prelude)
-          , ("applicative",  applicative )
+          -- , ("applicative",  applicative )
           , ("type",         mtypes) 
           , ("constructor",  mconstructors)
           , ("function",  mfunctions)
           , ("infixoperator", moperators)
+          , ("class", mclasses)
           ]
           
 mtypes :: SimpleInfo -> [(String, String)]
@@ -101,6 +102,7 @@
                                        operators
 mconstructors SimpleInfo{constructors} = map (dp) constructors
 mfunctions SimpleInfo{functions   } = map (dp) functions
+mclasses SimpleInfo{classes}        = map (dp) classes
 
 syntax _  = map dp  [ "=", "{", "}", "(", ")", "<-", "->", "=>", ","
                     ]