diff --git a/lib/rouge/lexers/haskell.rb b/lib/rouge/lexers/haskell.rb
index 72a858035b..e756836731 100644
--- a/lib/rouge/lexers/haskell.rb
+++ b/lib/rouge/lexers/haskell.rb
@@ -61,6 +61,7 @@ def self.detect?(text)
         # rule /^[_a-z][\w']*/, Name::Function
         rule /[_a-z][\w']*/, Name
         rule /[A-Z][\w']*/, Keyword::Type
+        rule /'[A-Z]\w[\w']*/, Keyword::Type  # promoted data constructor
 
         # lambda operator
         rule %r(\\(?![:!#\$\%&*+.\\/<=>?@^\|~-]+)), Name::Function