andrelaszlo

; haskell mode
(load "~/elisp/haskell-mode-2.8.0/haskell-site-file")
(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
;These tree indentation modes are mutually exclusive
(add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)
;;(add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
;;(add-hook 'haskell-mode-hook 'turn-on-haskell-simple-indent)

andrelaszlo

andrelaszlo

class PitTree[T](val children : Map[String, PitTree[T]], val value : Option[T]) extends Map[String, T] {
  def this() = this(Map(), None)
  def this(value : T) = this(Map(), Some(value))
  def update(path : String, upVal : T) : PitTree[T] = update(splitPath(path), upVal)
  def update(path : List[String], upVal : T) : PitTree[T] = path match {
    case Nil =>
      new PitTree[T](upVal)
    case h :: t =>
      val child = children.getOrElse(h, new PitTree[T]()).update(t, upVal)
      new PitTree[T](children + (h -> child), value)