haskell.rb

data = /^data ((?<inherits>[(]?([[:upper:]][\w, ]*)*[)]?) => )?(?<name>[[:upper:]]\w*) ?(?<type_vars>[[:lower:]][\w ]*)?(= (?<constructor>[[:upper:]][\w |]*))?(:: (?<type>.*))?/
klass = /^class ((?<inherits>[(]?([[:upper:]][\w, ]*)*[)]?) => )?(?<name>[[:upper:]][\w ]*?) where/
const = /^(=|\|) (?<name>[[:upper:]][\w]+)( (?<type_vars>.*))?/

# Special
# symbol: -> x { x.match(/^(?:(\(\W+\))[, ]{0,})+(?: ::.*)?/).captures.first.split(/[, ]/) },
# func:   -> x { x.gsub(/::.*$/, "").split(/[, ]/) },