((haskell-cabal-mode
  . ((eval
      . (progn (defun apply-cabal-fmt-h ()
                 (haskell-mode-buffer-apply-command "cabal-fmt"))
               (add-hook 'before-save-hook #'apply-cabal-fmt-h nil t))))))