Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Fixed broken character literal highlighting (#132) #133

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Fixed broken character literal highlighting (#132) #133

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
32 changes: 31 additions & 1 deletion syntax/haskell.vim
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -96,7 +96,30 @@ syn match haskellBacktick "`[A-Za-z_][A-Za-z0-9_\.']*#\?`"
syn region haskellString start=+"+ skip=+\\\\\|\\"+ end=+"+
\ contains=@Spell
syn match haskellIdentifier "[_a-z][a-zA-Z0-9_']*" contained
syn match haskellChar "\<'[^'\\]'\|'\\.'\|'\\u[0-9a-fA-F]\{4}'\>"

" Haskell character literal match
" https://www.haskell.org/onlinereport/haskell2010/haskellch2.html#x7-200002.6
" http://book.realworldhaskell.org/read/characters-strings-and-escaping-rules.html
syn match haskellCharPrintable "[:print:]" contained
syn match haskellCharSingleCharEsc "\\[0abfnrtv"&'\\]" contained
syn match haskellCharAsciiControlCodeEsc "\\\(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\)" contained
syn match haskellCharAsciiControlCharEsc "\\\^[@A-Z\[\]\\\^_]" contained
syn match haskellCharDeciEsc "\\[0-9]\{1,7}" contained
syn match haskellCharOctalEsc "\\o[0-7]\{1,7}" contained
syn match haskellCharHexEsc "\\x[0-9a-fa-f]\{1,6}" contained

syn cluster haskellCharGroup
\ contains=
\ haskellCharPrintable,
\ haskellCharSingleCharEsc,
\ haskellCharAsciiControlCodeEsc,
\ haskellCharAsciiControlCharEsc,
\ haskellCharDeciEsc,
\ haskellCharOctalEsc,
\ haskellCharHexEsc
syn region haskellChar start=+'+ end=+'+
\ contains=@haskellCharGroup

syn match haskellType "\<[A-Z][a-zA-Z0-9_']*\>"
syn region haskellBlockComment start="{-" end="-}"
\ contains=
Expand Down Expand Up @@ -156,6 +179,13 @@ highlight def link haskellPragma SpecialComment
highlight def link haskellLiquid SpecialComment
highlight def link haskellString String
highlight def link haskellChar String
highlight def link haskellCharPrintable String
highlight def link haskellCharSingleCharEsc SpecialChar
highlight def link haskellCharAsciiControlCodeEsc SpecialChar
highlight def link haskellCharAsciiControlCharEsc SpecialChar
highlight def link haskellCharDeciEsc SpecialChar
highlight def link haskellCharOctalEsc SpecialChar
highlight def link haskellCharHexEsc SpecialChar
highlight def link haskellBacktick Operator
highlight def link haskellQuasiQuoted String
highlight def link haskellTodo Todo
Expand Down