             (add-hook 'haskell-mode-hook 'haskell-doc-mode)
             (add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
             (add-hook 'haskell-mode-hook
-                      (lambda ()
-                        (company-mode +1)
-                        (set (make-local-variable 'company-backends)
-                             (append '((company-capf company-dabbrev-code))
-                                     company-backends))))
+                      #'(lambda ()
+                          (company-mode 1)
+                          (set (make-local-variable 'company-backends)
+                               (append '((company-capf company-dabbrev-code))
+                                       company-backends))))
             (add-hook 'haskell-mode-hook 'flycheck-mode)
 
             (with-demoted-errors "Non-Fatal Error: %s"

            (add-hook 'emms-player-started-hook 'emms-show)

            (advice-add 'emms-tag-editor-submit
                        :after (lambda (&rest r)
                                 (ignore r)
                                 (delete-window)))

            (unless (eq system-type 'windows-nt)
              (setq emms-source-file-directory-tree-function

            ;; stick to that.

            (add-hook 'shell-mode-hook
                      #'(lambda ()
                          (setq-local completion-in-region-function
                                      #'completion--in-region)))))

(use-package db-eshell
  :commands (db/run-or-hide-eshell
