diff --git a/autotests/html/highlight.hs.html b/autotests/html/highlight.hs.html
--- a/autotests/html/highlight.hs.html
+++ b/autotests/html/highlight.hs.html
@@ -23,7 +23,7 @@
-- a data definition
-data Tree a = Br (Tree a) (Tree a) | Leaf a | Nil deriving (Show, Eq)
+data Tree a = Br (Tree a) (Tree a) | Leaf a | Nil deriving (Show, Eq)
-- function definition, "funnyfunction::", "Integer", "Int", "Bool" should be highlighted
@@ -62,10 +62,10 @@
-- everything highlighted except the "a"
-class Bounded a where
+class Bounded a where
minBound, maxBound :: a
-class (Num a, Ord a) => Real a where
+class (Num a, Ord a) => Real a where
toRational :: a -> Rational
-- finally, some keyword lists
@@ -123,12 +123,12 @@
-- classes
-Bounded, Enum, Eq, Floating, Fractional, Functor, Integral, Ix, Monad, Num, Ord, Read, RealFloat,
-RealFrac, Real, Show
+Bounded, Enum, Eq, Floating, Fractional, Functor, Integral, Ix, Monad, Num, Ord, Read, RealFloat,
+RealFrac, Real, Show
-- data constructors
-EQ, False, GT, Just, LT, Left, Nothing, Right, True
+EQ, False, GT, Just, LT, Left, Nothing, Right, True
-- promoted data constructors
diff --git a/autotests/html/highlight.lhs.html b/autotests/html/highlight.lhs.html
--- a/autotests/html/highlight.lhs.html
+++ b/autotests/html/highlight.lhs.html
@@ -23,7 +23,7 @@
a data definition
-> data Tree a = Br (Tree a) (Tree a) | Leaf a | Nil deriving (Show, Eq)
+> data Tree a = Br (Tree a) (Tree a) | Leaf a | Nil deriving (Show, Eq)
function definition, "funnyfunction::", "Integer", "Int", "Bool" should be highlighted
@@ -62,10 +62,10 @@
everything highlighted except the "a"
-> class Bounded a where
+> class Bounded a where
> minBound, maxBound :: a
-> class (Num a, Ord a) => Real a where
+> class (Num a, Ord a) => Real a where
> toRational :: a -> Rational
finally, some keyword lists
@@ -122,10 +122,10 @@
classes
-> Bounded, Enum, Eq, Floating, Fractional, Functor, Integral, Ix, Monad, Num, Ord, Read, RealFloat,
-> RealFrac, Real, Show
+> Bounded, Enum, Eq, Floating, Fractional, Functor, Integral, Ix, Monad, Num, Ord, Read, RealFloat,
+> RealFrac, Real, Show
data constructors
-> EQ, False, GT, Just, LT, Left, Nothing, Right, True
+> EQ, False, GT, Just, LT, Left, Nothing, Right, True