\lstdefinelanguage[Regular]{Haskell}[]{Haskell}{%
keywords={abstype,if,then,else,case,class,data,default,deriving,hiding,if,in,infix,infixl,infixr,import,instance,let,module,newtype,of,qualified,type,where,do,Q},
\lstdefinelanguage[Regular]{Haskell}[]{Haskell}{%
keywords={abstype,if,then,else,case,class,data,default,deriving,hiding,if,in,infix,infixl,infixr,import,instance,let,module,newtype,of,qualified,type,where,do,Q},