fu! s:fix_haskell_syntax()
    hi! link haskellBottom Macro
    hi! link haskellTH Boolean
    hi! link haskellIdentifier Identifier
    hi! link haskellForeignKeywords Structure
    hi! link haskellKeyword Keyword
    hi! link haskellDefault Keyword
    hi! link haskellConditional Conditional
    hi! link haskellNumber Number
    hi! link haskellFloat Float
    hi! link haskellSeparator Delimiter
    hi! link haskellDelimiter Delimiter
    hi! link haskellInfix Keyword
    hi! link haskellOperators Operator
    hi! link haskellQuote Operator
    hi! link haskellShebang Comment
    hi! link haskellLineComment Comment
    hi! link haskellBlockComment Comment
    hi! link haskellPragma SpecialComment
    hi! link haskellLiquid SpecialComment
    hi! link haskellString String
    hi! link haskellChar String
    hi! link haskellBacktick Operator
    hi! link haskellQuasiQuoted String
    hi! link haskellTodo Todo
    hi! link haskellPreProc PreProc
    hi! link haskellAssocType Type
    hi! link haskellQuotedType Type
    hi! link haskellType Type
    hi! link haskellImportKeywords Include
    if get(g:, 'haskell_classic_highlighting', 0)
        hi! link haskellDeclKeyword Keyword
        hi! link HaskellDerive Keyword
        hi! link haskellDecl Keyword
        hi! link haskellWhere Keyword
        hi! link haskellLet Keyword
    el
        hi! link haskellDeclKeyword Structure
        hi! link HaskellDerive Structure
        hi! link haskellDecl Structure
        hi! link haskellWhere Structure
        hi! link haskellLet Structure
    en

    if get(g:, 'haskell_enable_quantification', 0)
        hi! link haskellForall Operator
    en
    if get(g:, 'haskell_enable_recursivedo', 0)
        hi! link haskellRecursiveDo Keyword
    en
    if get(g:, 'haskell_enable_arrowsyntax', 0)
        hi! link haskellArrowSyntax Keyword
    en
    if get(g:, 'haskell_enable_static_pointers', 0)
        hi! link haskellStatic Keyword
    en
    if get(g:, 'haskell_classic_highlighting', 0)
        if get(g:, 'haskell_enable_pattern_synonyms', 0)
            hi! link haskellPatternKeyword Keyword
        en
        if get(g:, 'haskell_enable_typeroles', 0)
            hi! link haskellTypeRoles Keyword
        en
    el
        if get(g:, 'haskell_enable_pattern_synonyms', 0)
            hi! link haskellPatternKeyword Structure
        en
        if get(g:, 'haskell_enable_typeroles', 0)
            hi! link haskellTypeRoles Structure
        en
    en

    if get(g:, 'haskell_backpack', 0)
        hi! link haskellBackpackStructure Structure
        hi! link haskellBackpackDependency Include
    en
endf