Haskell и -fno-warn-type-defaults

(prelude-require-packages '(company-ghc
                            ghc
                            haskell-mode
                            ido-vertical-mode
                            smart-mode-line))
 
 
;;---------------------------
;; Emacs appearance setup
;;---------------------------
 
;; Set frame size
(add-to-list 'default-frame-alist '(height . 35))
(add-to-list 'default-frame-alist '(width . 100))
 
(menu-bar-mode t)
(scroll-bar-mode -1)
(global-linum-mode)
(set-default-font "Consolas-12")
(setq default-directory "M:/Users/smoke/")
 
(setq prelude-auto-save nil
      prelude-flyspell nil
      prelude-guru nil
      prelude-whitespace nil)
 
(setq auto-save-default nil
      make-backup-files nil) 
 
 
;;---------------------------
;; Functions
;;---------------------------
 
;; haskell
(defun prelude-haskell-mode-defaults ()
 (subword-mode +1)
 (turn-on-haskell-doc)
 (interactive-haskell-mode +1)
 (ghc-init)
 (structured-haskell-mode))
 
 
;;---------------------------
;; Plugins
;;---------------------------
 
;; cider
(setq cider-interactive-eval-result-prefix ";; => "
      cider-prompt-save-file-on-load nil
      cider-repl-result-prefix ";; => "
      cider-repl-use-clojure-font-lock t
      cider-switch-to-repl-command 'cider-switch-to-current-repl-buffer)
 
;; company
(setq company-idle-delay nil)
 
;; flycheck
(setq flycheck-display-errors-function 'flycheck-display-error-messages-unless-error-list)
 
;; haskell
(add-to-list 'company-backends '(company-ghc :with company-dabbrev-code))
(add-to-list 'load-path "C:/Users/smoke/AppData/Roaming/.emacs.d/structured-haskell-mode/elisp")
 
(require 'shm)
 
(set-face-background 'shm-current-face "#4F4F4F")
(set-face-background 'shm-quarantine-face "#8C5353")
 
(setq haskell-process-suggest-remove-import-lines t)
 
(eval-after-load 'haskell-mode
  '(progn
     (setq prelude-haskell-mode-hook 'prelude-haskell-mode-defaults)
     (add-hook 'haskell-mode-hook (lambda () (run-hooks 'prelude-haskell-mode-hook)))))
 
;; ido-vertical-mode
(ido-vertical-mode t)
 
;; smart-mode-line
(setq sml/no-confirm-load-theme t
      sml/theme 'respectful)
(sml/setup)
 
 
;;---------------------------
;; Hotkeys
;;---------------------------
 
(global-set-key (kbd "C-SPC") 'company-complete)
 
(global-set-key (kbd "C-M-j") 'delete-indentation)
(global-set-key (kbd "C-<") 'backward-paragraph)
(global-set-key (kbd "C->") 'forward-paragraph)
 
;; company
(define-key company-active-map [return] 'company-complete-common)
(define-key company-active-map [tab] 'company-complete-selection)
(define-key company-active-map (kbd "C-n") 'company-select-next)
(define-key company-active-map (kbd "C-p") 'company-select-previous)
 
;; haskell-mode
(define-key haskell-mode-map (kbd "C-c c") 'haskell-process-cabal)
 
;; shm
(define-key shm-map (kbd "M-^") nil)
(define-key shm-map (kbd "C-c C-^") nil)
(define-key shm-map (kbd "M-DEL") nil)
(define-key shm-map (kbd "C-w") nil)
(define-key shm-map (kbd "M-w") nil)
(define-key shm-map (kbd "C-M-k") nil)
(define-key shm-map (kbd "C-M-SPC") nil)
(define-key shm-map (kbd "M-}") nil)
(define-key shm-map (kbd "M-{") nil)
(define-key shm-map (kbd "M-s") nil)
 
(define-key shm-map (kbd "C-S-j") 'shm/simple-indent-newline-indent)
(define-key shm-map (kbd "C-M-j") 'shm/delete-indentation)
(define-key shm-map (kbd "M-j") 'shm/ret-proxy)
(define-key shm-map (kbd "C-c C-M-j") 'shm/swing-up)
(define-key shm-map (kbd "C-<") 'shm/backward-paragraph)
(define-key shm-map (kbd "C->") 'shm/forward-paragraph)
 
;; smartparens
(define-key sp-keymap (kbd "M-A") 'sp-beginning-of-sexp)
(define-key sp-keymap (kbd "M-E") 'sp-end-of-sexp)
(define-key sp-keymap (kbd "M-J") 'sp-join-sexp)
 
(define-key sp-keymap (kbd "C-M-<backspace>") 'sp-backward-kill-sexp)
(define-key sp-keymap (kbd "C-M-k") 'sp-kill-sexp)
(define-key sp-keymap (kbd "C-M-t") 'sp-transpose-sexp)
 
(sp-pair "[" "]" :wrap "M-[")
(sp-pair "{" "}" :wrap "M-{")