vim-haskell -> hasksyn

2 files changed, 281 insertions, 333 deletions

diff --git a/syntax/cabal.vim b/syntax/cabal.vim
new file mode 100644
index 00000000..d0510097
--- /dev/null
+++ b/syntax/cabal.vim
@@ -0,0 +1,147 @@
+" Vim syntax file
+" Language: Cabal
+" Author: Tristan Ravitch
+" Version: 0.0.1
+
+if version < 600
+  syntax clear
+elseif exists('b:current_syntax')
+  finish
+endif
+
+syn sync minlines=50 maxlines=200
+syn case ignore
+
+" Top-level package keywords
+syn match cabalKey '^name:'
+syn match cabalKey '^version:'
+syn match cabalKey '^cabal-version:'
+syn match cabalKey '^build-type:'
+syn match cabalKey '^license:'
+syn match cabalKey '^license-file:'
+syn match cabalKey '^copyright:'
+syn match cabalKey '^author:'
+syn match cabalKey '^maintainer:'
+syn match cabalKey '^stability:'
+syn match cabalKey '^homepage:'
+syn match cabalKey '^bug-reports:'
+syn match cabalKey '^package-url:'
+syn match cabalKey '^synopsis:'
+syn match cabalKey '^description:'
+syn match cabalKey '^category:'
+syn match cabalKey '^tested-with:'
+syn match cabalKey '^data-files:'
+syn match cabalKey '^data-dir:'
+syn match cabalKey '^extra-source-files:'
+syn match cabalKey '^extra-tmp-files:'
+
+" Other keywords
+syn match cabalLit '\(:\s*\)\@<=\(true\|false\)'
+
+" Library-specifics
+syn region cabalLibraryR start='^library\(\s\|$\)\@=' end='^\w' transparent keepend contains=cabalLibrayKey,cabalBuildKey,cabalCondition,cabalOperator
+syn match cabalLibraryKey '^library\(\s\|$\)\@='
+syn match cabalLibraryKey '\(^\s\+\)\@<=exposed-modules:'
+syn match cabalLibraryKey '\(^\s\+\)\@<=exposed:'
+
+" Executable-specifics
+syn region cabalExeR start='^executable\s\@=' end='^\w' transparent keepend contains=cabalExeKey,cabalBuildKey,cabalCondition,cabalOperator,cabalBuildableName
+syn match cabalExeKey '^executable\s\@='
+syn match cabalExeKey '\(^\s\+\)\@<=main-is:'
+
+" Test-specifics
+syn region cabalTestR start='^test-suite\s\@=' end='^\w' transparent keepend contains=cabalTestKey,cabalBuildKey,cabalCondition,cabalOperator,cabalBuildableName
+syn match cabalTestKey '^test-suite\s\@='
+syn match cabalTestKey '\(^\s\+\)\@<=type:'
+syn match cabalTestKey '\(^\s\+\)\@<=main-is:'
+syn match cabalTestKey '\(^\s\+\)\@<=test-module:'
+
+" Benchmark-specifics
+syn region cabalBenchR start='^benchmark\s\@=' end='^\w' transparent keepend contains=cabalBenchKey,cabalBuildKey,cabalCondition,cabalOperator,cabalBuildableName
+syn match cabalBenchKey '^benchmark\s\@='
+syn match cabalBenchKey '\(^\s\+\)\@<=type:'
+syn match cabalBenchKey '\(^\s\+\)\@<=main-is:'
+
+syn match cabalBuildableName '\(^\(^benchmark\|test-suite\|executable\)\s\+\)\@<=\w\+'
+
+" General build info
+syn match cabalBuildKey '\(^\s\+\)\@<=default-language:'
+syn match cabalBuildKey '\(^\s\+\)\@<=build-depends:'
+syn match cabalBuildKey '\(^\s\+\)\@<=other-modules:'
+syn match cabalBuildKey '\(^\s\+\)\@<=hs-source-dirs:'
+syn match cabalBuildKey '\(^\s\+\)\@<=extensions:'
+syn match cabalBuildKey '\(^\s\+\)\@<=build-tools:'
+syn match cabalBuildKey '\(^\s\+\)\@<=buildable:'
+syn match cabalBuildKey '\(^\s\+\)\@<=ghc-options:'
+syn match cabalBuildKey '\(^\s\+\)\@<=ghc-prof-options:'
+syn match cabalBuildKey '\(^\s\+\)\@<=ghc-shared-options:'
+syn match cabalBuildKey '\(^\s\+\)\@<=hugs-options:'
+syn match cabalBuildKey '\(^\s\+\)\@<=nch98-options:'
+syn match cabalBuildKey '\(^\s\+\)\@<=includes:'
+syn match cabalBuildKey '\(^\s\+\)\@<=install-includes:'
+syn match cabalBuildKey '\(^\s\+\)\@<=include-dirs:'
+syn match cabalBuildKey '\(^\s\+\)\@<=c-sources:'
+syn match cabalBuildKey '\(^\s\+\)\@<=extra-libraries:'
+syn match cabalBuildKey '\(^\s\+\)\@<=extra-lib-dirs:'
+syn match cabalBuildKey '\(^\s\+\)\@<=cc-options:'
+syn match cabalBuildKey '\(^\s\+\)\@<=cpp-options:'
+syn match cabalBuildKey '\(^\s\+\)\@<=ld-options:'
+syn match cabalBuildKey '\(^\s\+\)\@<=pkgconfig-depends:'
+syn match cabalBuildKey '\(^\s\+\)\@<=frameworks:'
+
+syn region cabalFlagR start='^flag\s\@=' end='^\w' transparent keepend contains=cabalFlagKey,cabalCondition,cabalFlag
+syn match cabalFlagKey '^flag\s\@='
+syn match cabalFlagKey '\(^\s\+\)\@<=description:'
+syn match cabalFlagKey '\(^\s\+\)\@<=default:'
+syn match cabalFlagKey '\(^\s\+\)\@<=manual:'
+syn match cabalFlag '\(flag\s\+\)\@<=\w\+'
+syn match cabalFlag '\(flag(\)\@<=\w\+)\@='
+
+syn region cabalSourceR start='^source-repository' end='^\w' transparent keepend contains=cabalSourceKey
+syn match cabalSourceKey '^source-repository\s\@='
+syn match cabalSourceKey '\(^\s\+\)\@<=type:'
+syn match cabalSourceKey '\(^\s\+\)\@<=location:'
+syn match cabalSourceKey '\(^\s\+\)\@<=module:'
+syn match cabalSourceKey '\(^\s\+\)\@<=branch:'
+syn match cabalSourceKey '\(^\s\+\)\@<=tag:'
+syn match cabalSourceKey '\(^\s\+\)\@<=subdir:'
+
+syn match cabalCondition '\(^\s\+\)\@<=if\((\|\s\)\@='
+syn match cabalCondition '\(^\s\+\)\@<=else\($\|\s\)\@='
+syn match cabalCondition '\(^\s\+\)\@<=if\((\|\s\)\@='
+syn match cabalCondition '\(^\s\+\)\@<=else\($\|\s\)\@='
+syn match cabalOperator '\W\@<=os\((.\+)\)\@='
+syn match cabalOperator '\W\@<=arch\((.\+)\)\@='
+syn match cabalOperator '\W\@<=impl\((.\+)\)\@='
+syn match cabalOperator '\W\@<=flag\((.\+)\)\@='
+syn match cabalOperator '\(^\s*--.*\)\@<!\(<\|>\|=\|||\|&&\)'
+
+syn match cabalComment '\s\@<=--.*$'
+
+if version >= 508 || !exists('did_cabal_syntax_inits')
+  if version < 508
+    let did_cabal_syntax_inits = 1
+    command -nargs=+ HiLink hi link <args>
+  else
+    command -nargs=+ HiLink hi def link <args>
+  endif
+
+  HiLink cabalBuildableName Structure
+  HiLink cabalFlag Special
+  HiLink cabalComment Comment
+  HiLink cabalCondition Conditional
+  HiLink cabalSourceKey Keyword
+  HiLink cabalOperator Operator
+  HiLink cabalKey Keyword
+  HiLink cabalLibraryKey Keyword
+  HiLink cabalTestKey Keyword
+  HiLink cabalExeKey Keyword
+  HiLink cabalBenchKey Keyword
+  HiLink cabalBuildKey Keyword
+  HiLink cabalFlagKey Keyword
+  HiLink cabalLit Constant
+
+  delcommand HiLink
+endif
+
+let b:current_syntax = 'cabal'
diff --git a/syntax/haskell.vim b/syntax/haskell.vim
index 7ac0fe26..17f48178 100644
--- a/syntax/haskell.vim
+++ b/syntax/haskell.vim
@@ -1,265 +1,115 @@
 " Vim syntax file
-"
-" Modification of vims Haskell syntax file:
-"   - match types using regular expression
-"   - highlight toplevel functions
-"   - use "syntax keyword" instead of "syntax match" where appropriate
-"   - functions and types in import and module declarations are matched
-"   - removed hs_highlight_more_types (just not needed anymore)
-"   - enable spell checking in comments and strings only
-"   - FFI highlighting
-"   - QuasiQuotation
-"   - top level Template Haskell slices
-"   - PackageImport
-"
-" TODO: find out which vim versions are still supported
-"
-" From Original file:
-" ===================
-"
-" Language:		    Haskell
-" Maintainer:		Haskell Cafe mailinglist <haskell-cafe@haskell.org>
-" Last Change:		2010 Feb 21
-" Original Author:	John Williams <jrw@pobox.com>
-"
-" Thanks to Ryan Crumley for suggestions and John Meacham for
-" pointing out bugs. Also thanks to Ian Lynagh and Donald Bruce Stewart
-" for providing the inspiration for the inclusion of the handling
-" of C preprocessor directives, and for pointing out a bug in the
-" end-of-line comment handling.
-"
-" Options-assign a value to these variables to turn the option on:
-"
-" hs_highlight_delimiters - Highlight delimiter characters--users
-"			    with a light-colored background will
-"			    probably want to turn this on.
-" hs_highlight_boolean - Treat True and False as keywords.
-" hs_highlight_types - Treat names of primitive types as keywords.
-" hs_highlight_debug - Highlight names of debugging functions.
-" hs_allow_hash_operator - Don't highlight seemingly incorrect C
-"			   preprocessor directives but assume them to be
-"			   operators
-" 
-" 
+" Language: Haskell
+" Author: Tristan Ravitch
+" Maintainer: Tristan Ravitch
+" Version: 0.0.1
 
 if version < 600
-  syn clear
-elseif exists("b:current_syntax")
+  syntax clear
+elseif exists('b:current_syntax')
   finish
 endif
 
-"syntax sync fromstart "mmhhhh.... is this really ok to do so?
-syntax sync linebreaks=15 minlines=50 maxlines=500
-
-syn match  hsSpecialChar	contained "\\\([0-9]\+\|o[0-7]\+\|x[0-9a-fA-F]\+\|[\"\\'&\\abfnrtv]\|^[A-Z^_\[\\\]]\)"
-syn match  hsSpecialChar	contained "\\\(NUL\|SOH\|STX\|ETX\|EOT\|ENQ\|ACK\|BEL\|BS\|HT\|LF\|VT\|FF\|CR\|SO\|SI\|DLE\|DC1\|DC2\|DC3\|DC4\|NAK\|SYN\|ETB\|CAN\|EM\|SUB\|ESC\|FS\|GS\|RS\|US\|SP\|DEL\)"
-syn match  hsSpecialCharError	contained "\\&\|'''\+"
-sy region  hsString		start=+"+  skip=+\\\\\|\\"+  end=+"+  contains=hsSpecialChar,@Spell
-sy match   hsCharacter		"[^a-zA-Z0-9_']'\([^\\]\|\\[^']\+\|\\'\)'"lc=1 contains=hsSpecialChar,hsSpecialCharError
-sy match   hsCharacter		"^'\([^\\]\|\\[^']\+\|\\'\)'" contains=hsSpecialChar,hsSpecialCharError
-
-" (Qualified) identifiers (no default highlighting)
-syn match ConId "\(\<[A-Z][a-zA-Z0-9_']*\.\)\=\<[A-Z][a-zA-Z0-9_']*\>"
-syn match VarId "\(\<[A-Z][a-zA-Z0-9_']*\.\)\=\<[a-z][a-zA-Z0-9_']*\>"
-
-" Infix operators--most punctuation characters and any (qualified) identifier
-" enclosed in `backquotes`. An operator starting with : is a constructor,
-" others are variables (e.g. functions).
-syn match hsVarSym "\(\<[A-Z][a-zA-Z0-9_']*\.\)\=[-!#$%&\*\+/<=>\?@\\^|~.][-!#$%&\*\+/<=>\?@\\^|~:.]*"
-syn match hsConSym "\(\<[A-Z][a-zA-Z0-9_']*\.\)\=:[-!#$%&\*\+./<=>\?@\\^|~:]*"
-syn match hsVarSym "`\(\<[A-Z][a-zA-Z0-9_']*\.\)\=[a-z][a-zA-Z0-9_']*`"
-syn match hsConSym "`\(\<[A-Z][a-zA-Z0-9_']*\.\)\=[A-Z][a-zA-Z0-9_']*`"
-
-" Toplevel Template Haskell support
-"sy match hsTHTopLevel "^[a-z]\(\(.\&[^=]\)\|\(\n[^a-zA-Z0-9]\)\)*"
-sy match hsTHIDTopLevel "^[a-z]\S*" 
-sy match hsTHTopLevel "^\$(\?" nextgroup=hsTHTopLevelName 
-sy match hsTHTopLevelName "[a-z]\S*" contained
-
-" Reserved symbols--cannot be overloaded.
-syn match hsDelimiter  "(\|)\|\[\|\]\|,\|;\|_\|{\|}"
-
-sy region hsInnerParen start="(" end=")" contained contains=hsInnerParen,hsConSym,hsType,hsVarSym
-sy region hs_InfixOpFunctionName start="^(" end=")\s*[^:`]\(\W\&\S\&[^'\"`()[\]{}@]\)\+"re=s
-    \ contained keepend contains=hsInnerParen,hs_HlInfixOp
-
-sy match hs_hlFunctionName "[a-z_]\(\S\&[^,\(\)\[\]]\)*" contained 
-sy match hs_FunctionName "^[a-z_]\(\S\&[^,\(\)\[\]]\)*" contained contains=hs_hlFunctionName
-sy match hs_HighliteInfixFunctionName "`[a-z_][^`]*`" contained
-sy match hs_InfixFunctionName "^\S[^=]*`[a-z_][^`]*`"me=e-1 contained contains=hs_HighliteInfixFunctionName,hsType,hsConSym,hsVarSym,hsString,hsCharacter
-sy match hs_HlInfixOp "\(\W\&\S\&[^`(){}'[\]]\)\+" contained contains=hsString
-sy match hs_InfixOpFunctionName "^\(\(\w\|[[\]{}]\)\+\|\(\".*\"\)\|\('.*'\)\)\s*[^:]=*\(\W\&\S\&[^='\"`()[\]{}@]\)\+"
-    \ contained contains=hs_HlInfixOp,hsCharacter
-
-sy match hs_OpFunctionName        "(\(\W\&[^(),\"]\)\+)" contained
-"sy region hs_Function start="^["'a-z_([{]" end="=\(\s\|\n\|\w\|[([]\)" keepend extend
-sy region hs_Function start="^["'a-zA-Z_([{]\(\(.\&[^=]\)\|\(\n\s\)\)*=" end="\(\s\|\n\|\w\|[([]\)" 
-        \ contains=hs_OpFunctionName,hs_InfixOpFunctionName,hs_InfixFunctionName,hs_FunctionName,hsType,hsConSym,hsVarSym,hsString,hsCharacter
-
-sy match hs_TypeOp "::"
-sy match hs_DeclareFunction "^[a-z_(]\S*\(\s\|\n\)*::" contains=hs_FunctionName,hs_OpFunctionName,hs_TypeOp
-
-" hi hs_TypeOp guibg=red
-
-" hi hs_InfixOpFunctionName guibg=yellow
-" hi hs_Function guibg=green
-" hi hs_InfixFunctionName guibg=red
-" hi hs_DeclareFunction guibg=red
-
-sy keyword hsStructure data family class where instance default deriving
-sy keyword hsTypedef type newtype
-
-sy keyword hsInfix infix infixl infixr
-sy keyword hsStatement  do case of let in
-sy keyword hsConditional if then else
-
-"if exists("hs_highlight_types")
-  " Primitive types from the standard prelude and libraries.
-  sy match hsType "\<[A-Z]\(\S\&[^,.]\)*\>"
-  sy match hsType "()"
-"endif
-
-" Not real keywords, but close.
-if exists("hs_highlight_boolean")
-  " Boolean constants from the standard prelude.
-  syn keyword hsBoolean True False
-endif
-
-syn region	hsPackageString	start=+L\="+ skip=+\\\\\|\\"\|\\$+ excludenl end=+"+ end='$' contains=cSpecial contained
-sy match   hsModuleName  excludenl "\([A-Z]\w*\.\?\)*" contained 
-
-sy match hsImport "\<import\>\s\+\(qualified\s\+\)\?\(\<\(\w\|\.\)*\>\)" 
-    \ contains=hsModuleName,hsImportLabel
-    \ nextgroup=hsImportParams,hsImportIllegal skipwhite
-sy keyword hsImportLabel import qualified contained
-
-sy match hsImportIllegal "\w\+" contained
-
-sy keyword hsAsLabel as contained
-sy keyword hsHidingLabel hiding contained
-
-sy match hsImportParams "as\s\+\(\w\+\)" contained
-    \ contains=hsModuleName,hsAsLabel
-    \ nextgroup=hsImportParams,hsImportIllegal skipwhite
-sy match hsImportParams "hiding" contained
-    \ contains=hsHidingLabel
-    \ nextgroup=hsImportParams,hsImportIllegal skipwhite 
-sy region hsImportParams start="(" end=")" contained
-    \ contains=hsBlockComment,hsLineComment, hsType,hsDelimTypeExport,hs_hlFunctionName,hs_OpFunctionName
-    \ nextgroup=hsImportIllegal skipwhite
-
-" hi hsImport guibg=red
-"hi hsImportParams guibg=bg
-"hi hsImportIllegal guibg=bg
-"hi hsModuleName guibg=bg
-
-"sy match hsImport		"\<import\>\(.\|[^(]\)*\((.*)\)\?" 
-"         \ contains=hsPackageString,hsImportLabel,hsImportMod,hsModuleName,hsImportList
-"sy keyword hsImportLabel import contained
-"sy keyword hsImportMod		as qualified hiding contained
-"sy region hsImportListInner start="(" end=")" contained keepend extend contains=hs_OpFunctionName
-"sy region  hsImportList matchgroup=hsImportListParens start="("rs=s+1 end=")"re=e-1
-"        \ contained 
-"        \ keepend extend
-"        \ contains=hsType,hsLineComment,hsBlockComment,hs_hlFunctionName,hsImportListInner
-
-
-
-" new module highlighting
-syn region hsDelimTypeExport start="\<[A-Z]\(\S\&[^,.]\)*\>(" end=")" contained
-   \ contains=hsType
-
-sy keyword hsExportModuleLabel module contained
-sy match hsExportModule "\<module\>\(\s\|\t\|\n\)*\([A-Z]\w*\.\?\)*" contained contains=hsExportModuleLabel,hsModuleName
-
-sy keyword hsModuleStartLabel module contained
-sy keyword hsModuleWhereLabel where contained
-
-syn match hsModuleStart "^module\(\s\|\n\)*\(\<\(\w\|\.\)*\>\)\(\s\|\n\)*" 
-  \ contains=hsModuleStartLabel,hsModuleName
-  \ nextgroup=hsModuleCommentA,hsModuleExports,hsModuleWhereLabel
-
-syn region hsModuleCommentA start="{-" end="-}"
-  \ contains=hsModuleCommentA,hsCommentTodo,@Spell contained
-  \ nextgroup=hsModuleCommentA,hsModuleExports,hsModuleWhereLabel skipwhite skipnl
-
-syn match hsModuleCommentA "--.*\n"
-  \ contains=hsCommentTodo,@Spell contained
-  \ nextgroup=hsModuleCommentA,hsModuleExports,hsModuleWhereLabel skipwhite skipnl
-
-syn region hsModuleExports start="(" end=")" contained
-   \ nextgroup=hsModuleCommentB,hsModuleWhereLabel skipwhite skipnl
-   \ contains=hsBlockComment,hsLineComment,hsType,hsDelimTypeExport,hs_hlFunctionName,hs_OpFunctionName,hsExportModule
-
-syn match hsModuleCommentB "--.*\n"
-  \ contains=hsCommentTodo,@Spell contained
-  \ nextgroup=hsModuleCommentB,hsModuleWhereLabel skipwhite skipnl
-
-syn region hsModuleCommentB start="{-" end="-}"
-   \ contains=hsModuleCommentB,hsCommentTodo,@Spell contained
-   \ nextgroup=hsModuleCommentB,hsModuleWhereLabel skipwhite skipnl
-" end module highlighting
-
-" FFI support
-sy keyword hsFFIForeign foreign contained
-"sy keyword hsFFIImportExport import export contained
-sy keyword hsFFIImportExport export contained
-sy keyword hsFFICallConvention ccall stdcall contained
-sy keyword hsFFISafety safe unsafe contained
-sy region  hsFFIString		start=+"+  skip=+\\\\\|\\"+  end=+"+  contained contains=hsSpecialChar
-sy match hsFFI excludenl "\<foreign\>\(.\&[^\"]\)*\"\(.\)*\"\(\s\|\n\)*\(.\)*::"
-  \ keepend
-  \ contains=hsFFIForeign,hsFFIImportExport,hsFFICallConvention,hsFFISafety,hsFFIString,hs_OpFunctionName,hs_hlFunctionName
-
-
-sy match   hsNumber		"\<[0-9]\+\>\|\<0[xX][0-9a-fA-F]\+\>\|\<0[oO][0-7]\+\>"
-sy match   hsFloat		"\<[0-9]\+\.[0-9]\+\([eE][-+]\=[0-9]\+\)\=\>"
-
-" Comments
-sy keyword hsCommentTodo    TODO FIXME XXX TBD contained
-sy match   hsLineComment      "---*\([^-!#$%&\*\+./<=>\?@\\^|~].*\)\?$" contains=hsCommentTodo,@Spell
-sy region  hsBlockComment     start="{-"  end="-}" contains=hsBlockComment,hsCommentTodo,@Spell
-sy region  hsPragma	       start="{-#" end="#-}"
-
-" QuasiQuotation
-sy region hsQQ start="\[\$" end="|\]"me=e-2 keepend contains=hsQQVarID,hsQQContent nextgroup=hsQQEnd
-sy region hsQQNew start="\[\(.\&[^|]\&\S\)*|" end="|\]"me=e-2 keepend contains=hsQQVarIDNew,hsQQContent nextgroup=hsQQEnd
-sy match hsQQContent ".*" contained
-sy match hsQQEnd "|\]" contained
-sy match hsQQVarID "\[\$\(.\&[^|]\)*|" contained
-sy match hsQQVarIDNew "\[\(.\&[^|]\)*|" contained
-
-if exists("hs_highlight_debug")
-  " Debugging functions from the standard prelude.
-  syn keyword hsDebug undefined error trace
-endif
-
-
-" C Preprocessor directives. Shamelessly ripped from c.vim and trimmed
-" First, see whether to flag directive-like lines or not
-if (!exists("hs_allow_hash_operator"))
-    syn match	cError		display "^\s*\(%:\|#\).*$"
-endif
-" Accept %: for # (C99)
-syn region	cPreCondit	start="^\s*\(%:\|#\)\s*\(if\|ifdef\|ifndef\|elif\)\>" skip="\\$" end="$" end="//"me=s-1 contains=cComment,cCppString,cCommentError
-syn match	cPreCondit	display "^\s*\(%:\|#\)\s*\(else\|endif\)\>"
-syn region	cCppOut		start="^\s*\(%:\|#\)\s*if\s\+0\+\>" end=".\@=\|$" contains=cCppOut2
-syn region	cCppOut2	contained start="0" end="^\s*\(%:\|#\)\s*\(endif\>\|else\>\|elif\>\)" contains=cCppSkip
-syn region	cCppSkip	contained start="^\s*\(%:\|#\)\s*\(if\>\|ifdef\>\|ifndef\>\)" skip="\\$" end="^\s*\(%:\|#\)\s*endif\>" contains=cCppSkip
-syn region	cIncluded	display contained start=+"+ skip=+\\\\\|\\"+ end=+"+
-syn match	cIncluded	display contained "<[^>]*>"
-syn match	cInclude	display "^\s*\(%:\|#\)\s*include\>\s*["<]" contains=cIncluded
-syn cluster	cPreProcGroup	contains=cPreCondit,cIncluded,cInclude,cDefine,cCppOut,cCppOut2,cCppSkip,cCommentStartError
-syn region	cDefine		matchgroup=cPreCondit start="^\s*\(%:\|#\)\s*\(define\|undef\)\>" skip="\\$" end="$"
-syn region	cPreProc	matchgroup=cPreCondit start="^\s*\(%:\|#\)\s*\(pragma\>\|line\>\|warning\>\|warn\>\|error\>\)" skip="\\$" end="$" keepend
-
-syn region	cComment	matchgroup=cCommentStart start="/\*" end="\*/" contains=cCommentStartError,cSpaceError contained
-syntax match	cCommentError	display "\*/" contained
-syntax match	cCommentStartError display "/\*"me=e-1 contained
-syn region	cCppString	start=+L\="+ skip=+\\\\\|\\"\|\\$+ excludenl end=+"+ end='$' contains=cSpecial contained
-
-
-if version >= 508 || !exists("did_hs_syntax_inits")
+syn sync minlines=50 maxlines=200
+
+" These basic lexical definitions are taken from the orignal haskell syntax
+" description from vim 7.3.
+syn match  hsSpecialChar      contained "\\\([0-9]\+\|o[0-7]\+\|x[0-9a-fA-F]\+\|[\"\\'&\\abfnrtv]\|^[A-Z^_\[\\\]]\)"
+syn match  hsSpecialChar      contained "\\\(NUL\|SOH\|STX\|ETX\|EOT\|ENQ\|ACK\|BEL\|BS\|HT\|LF\|VT\|FF\|CR\|SO\|SI\|DLE\|DC1\|DC2\|DC3\|DC4\|NAK\|SYN\|ETB\|CAN\|EM\|SUB\|ESC\|FS\|GS\|RS\|US\|SP\|DEL\)"
+syn match  hsSpecialCharError contained "\\&\|'''\+"
+syn region hsString           start=+"+  skip=+\\\\\|\\"+  end=+"+  contains=hsSpecialChar
+syn match  hsCharacter        "[^a-zA-Z0-9_']'\([^\\]\|\\[^']\+\|\\'\)'"lc=1 contains=hsSpecialChar,hsSpecialCharError
+syn match  hsCharacter        "^'\([^\\]\|\\[^']\+\|\\'\)'" contains=hsSpecialChar,hsSpecialCharError
+syn match  hsNumber           "\<[0-9]\+\>\|\<0[xX][0-9a-fA-F]\+\>\|\<0[oO][0-7]\+\>"
+syn match  hsFloat            "\<[0-9]\+\.[0-9]\+\([eE][-+]\=[0-9]\+\)\=\>"
+
+" This case matches the names of types and constructors: names beginning with
+" a capital letter.  Note that this also handles the case of @M.lookup@ where
+" M is a qualified import.  There is a big negative lookbehind assertion here
+" so that we don't highlight import and module statements oddly. 
+syn match hsTypeName "\(^import\s.*\|^module\s.*\)\@<!\([^a-zA-Z0-9]\)\@<=[A-Z][a-zA-Z0-9_]*"
+" Also make unit and the empty list easy to spot - they are constructors too.
+syn match hsTypeName "()"
+syn match hsTypeName "\[\]"
+
+" These are keywords that are only highlighted if they are in comments.
+syn keyword hsFIXME contained FIXME TODO XXX BUG NOTE
+
+" Comment stuff
+syn region hsPragma start='{-#' end='#-}'
+syn region hsBlockComment start='{-' end='-}' fold contains=hsFIXME,hsBlockComment
+" FIXME: haddock block comments should be able to contain hsBlockComments, but
+" it doesn't seem to work at the moment.
+syn region hsHaddockComment start='{-|' end='-}' contains=hsFIXME
+syn match hsLineComment "--.*$" contains=hsFIXME
+" Line-based haddock comments are trickier - they continue until
+" the next line that isn't part of the same block of comments.
+syn region hsHaddockComment start='-- |' end='^\(\s*--\)\@!' contains=hsFIXME
+syn region hsHaddockComment start='-- \$\w\+' end='^\(\s*--\)\@!' contains=hsFIXME
+syn region hsHaddockComment start='-- ^' end='^\(\s*--\)\@!' contains=hsFIXME
+" Haddock sections for import lists
+syn match hsHaddockSection '-- \*.*$'
+" Named documentation chunks (also for import lists)
+syn match hsHaddockSection '-- \$.*$'
+
+
+" Keywords appearing in expressions, plus a few top-level keywords
+syn keyword hsKeyword do let in _ where
+syn keyword hsKeyword infix infixl infixr
+syn keyword hsKeyword forall foreign
+syn match hsKeyword '\(^\(data\|type\)\s\+\)\@<=family\(\W\)\@='
+
+" Vim has a special syntax category for conditionals, so here are all of the
+" haskell conditionals.  These are just keywords with a slightly more flexible
+" coloring.
+syn keyword hsConditional case of if then else
+
+" We define a region for module NNNN (...) where so that haddock section
+" headers (-- *) can be highlighted specially only within this context.
+syn region hsModuleHeader start="^module\s" end="where" contains=hsHaddockSection keepend fold transparent
+" Treat Module imports as the #include category; it maps reasonably well
+syn keyword hsImport import qualified as hiding module
+
+syn keyword hsTypeDecls class instance data newtype type deriving default
+" FIXME: Maybe we can do something fancy for data/type families?  'family' is
+" only a keyword if it follows data/type...
+
+" This is uglier than I'd like.  We want to let '-' participate in operators,
+" but we can't let it match '--' because that interferes with comments.  Hacks
+" for now - just include some common operators with '-'.
+syn match hsOperator "<-\|->\|-->\|-\(-\)\@!\|[%\~\&\*/\$\^|@:+<!>=#!\?]\+"
+" A bare . is an operator (but not surrounded by alnum chars)
+syn match hsOperator "\s\@<=\.\s\@="
+" . is also an operator if adjacent to some other operator char
+syn match hsOperator "[%\~\&\*\$\^|@:+<!>=#!\?]\+\.[%\~\&\*\$\^|@:+<\.!>=#!\?]*"
+syn match hsOperator "[%\~\&\*\$\^|@:+<!>=#!\?]*\.[%\~\&\*\$\^|@:+\.<!>=#!\?]\+"
+" Include support for infix functions as operators
+syn match hsOperator "`[a-zA-Z0-9\.]\+`"
+
+" Highlight function/value names in type signatures.  Looks ahead to find a ::
+" after a name.  This allows whitespace before the name so that it can match
+" in a 'where,' but it won't match local type annotations on random little
+" things.
+syn match hsFunctionList "^\s*\([a-z][a-zA-Z0-9']*[[:space:]\n,]\+\)*[a-z][a-zA-Z0-9']*[[:space:]\n]*::" contains=hsFunction
+syn match hsFunction "\s*[a-z][a-zA-Z0-9']*[[:space:]\n]*\(::\|,\)\@=" contained
+" Also support the style where the first where binding is on the same line as
+" the where keyword.
+syn match hsFunction "\(^\s\+where\s\+\)\@<=[a-z][a-zA-Z0-9']*\(\s*::\)\@="
+
+" FIXME Ignoring proc for now, also mdo and rec
+
+" Give undefined a bit of special treatment
+syn keyword hsScary undefined
+
+" C Preprocessor stuff
+syn match hsCPP '\(^\s*\)\@<=#\(warning\|pragma\|error\)\W\@='
+syn match hsCPPCond '\(^\s*\)\@<=#\(if\|ifdef\|elif\)\W\@='
+syn match hsCPPCond '\(^\s*\)\@<=#\(endif\|else\)\(\s*$\|\W\)\@='
+syn match hsCPPInclude '\(^\s*\)\@<=#include\W\@='
+syn match hsCPPDefine '\(^\s*\)\@<=#define\W\@='
+syn match hsCPPDefined '\(^\s*.*\W\)\@<=defined(\w\+)'
+
+if version >= 508 || !exists('did_hs_syntax_inits')
   if version < 508
     let did_hs_syntax_inits = 1
     command -nargs=+ HiLink hi link <args>
@@ -267,91 +117,42 @@ if version >= 508 || !exists("did_hs_syntax_inits")
     command -nargs=+ HiLink hi def link <args>
   endif
 
-  HiLink hs_hlFunctionName    Function
-  HiLink hs_HighliteInfixFunctionName Function
-  HiLink hs_HlInfixOp       Function
-  HiLink hs_OpFunctionName  Function
-  HiLink hsTypedef          Typedef
-  HiLink hsVarSym           hsOperator
-  HiLink hsConSym           hsOperator
-  if exists("hs_highlight_delimiters")
-    " Some people find this highlighting distracting.
-	HiLink hsDelimiter        Delimiter
-  endif
-
-  HiLink hsModuleStartLabel Structure
-  HiLink hsExportModuleLabel Keyword
-  HiLink hsModuleWhereLabel Structure
-  HiLink hsModuleName       Normal
-  
-  HiLink hsImportIllegal    Error
-  HiLink hsAsLabel          hsImportLabel
-  HiLink hsHidingLabel      hsImportLabel
-  HiLink hsImportLabel      Include
-  HiLink hsImportMod        Include
-  HiLink hsPackageString    hsString
-
-  HiLink hsOperator         Operator
+  " CPP
+  HiLink hsCPP PreProc
+  HiLink hsCPPCond PreCondit
+  HiLink hsCPPInclude Include
+  HiLink hsCPPDefine Define
+  HiLink hsCPPDefined PreProc
 
-  HiLink hsInfix            Keyword
-  HiLink hsStructure        Structure
-  HiLink hsStatement        Statement
-  HiLink hsConditional      Conditional
+  " Comments
+  HiLink hsLineComment Comment
+  HiLink hsBlockComment Comment
+  HiLink hsPragma Comment
+  HiLink hsHaddockComment SpecialComment
+  HiLink hsHaddockSection SpecialComment
 
-  HiLink hsSpecialCharError Error
-  HiLink hsSpecialChar      SpecialChar
-  HiLink hsString           String
-  HiLink hsFFIString        String
-  HiLink hsCharacter        Character
-  HiLink hsNumber           Number
-  HiLink hsFloat            Float
-
-  HiLink hsLiterateComment		  hsComment
-  HiLink hsBlockComment     hsComment
-  HiLink hsLineComment      hsComment
-  HiLink hsModuleCommentA   hsComment
-  HiLink hsModuleCommentB   hsComment
-  HiLink hsComment          Comment
-  HiLink hsCommentTodo      Todo
-  HiLink hsPragma           SpecialComment
-  HiLink hsBoolean			  Boolean
-
-  if exists("hs_highlight_types")
-      HiLink hsDelimTypeExport  hsType
-      HiLink hsType             Type
-  endif
+  HiLink hsKeyword Keyword
+  HiLink hsConditional Conditional
+  HiLink hsImport Include
+  HiLink hsTypeDecls Keyword
 
-  HiLink hsDebug            Debug
+  HiLink hsFIXME Todo
 
-  HiLink hs_TypeOp          hsOperator
+  HiLink hsOperator Operator
 
-  HiLink cCppString         hsString
-  HiLink cCommentStart      hsComment
-  HiLink cCommentError      hsError
-  HiLink cCommentStartError hsError
-  HiLink cInclude           Include
-  HiLink cPreProc           PreProc
-  HiLink cDefine            Macro
-  HiLink cIncluded          hsString
-  HiLink cError             Error
-  HiLink cPreCondit         PreCondit
-  HiLink cComment           Comment
-  HiLink cCppSkip           cCppOut
-  HiLink cCppOut2           cCppOut
-  HiLink cCppOut            Comment
+  HiLink hsModuleQualifier StorageClass
 
-  HiLink hsFFIForeign       Keyword
-  HiLink hsFFIImportExport  Structure
-  HiLink hsFFICallConvention Keyword
-  HiLink hsFFISafety         Keyword
+  HiLink hsFunction Function
+  HiLink hsTypeName Type
 
-  HiLink hsTHIDTopLevel   Macro
-  HiLink hsTHTopLevelName Macro
+  " Literals
+  HiLink hsSpecialChar SpecialChar
+  HiLink hsFloat Float
+  HiLink hsNumber Number
+  HiLink hsCharacter Character
+  HiLink hsString String
 
-  HiLink hsQQVarID Keyword
-  HiLink hsQQVarIDNew Keyword
-  HiLink hsQQEnd   Keyword
-  HiLink hsQQContent String
+  HiLink hsScary Todo
 
   delcommand HiLink
 endif