Haskell и -fno-warn-type-defaults

;;; Uncomment the modules you'd like to use and restart Prelude afterwards
 
;; Emacs IRC client
;; (require 'prelude-erc)
(require 'prelude-ido) ;; Super charges Emacs completion for C-x C-f and more
;; (require 'prelude-helm) ;; Interface for narrowing and search
;; (require 'prelude-helm-everywhere) ;; Enable Helm everywhere
(require 'prelude-company)
;; (require 'prelude-key-chord) ;; Binds useful features to key combinations
;; (require 'prelude-mediawiki)
;; (require 'prelude-evil)
 
;;; Programming languages support
;; (require 'prelude-c)
(require 'prelude-clojure)
;; (require 'prelude-coffee)
;; (require 'prelude-common-lisp)
;; (require 'prelude-css)
(require 'prelude-emacs-lisp)
;; (require 'prelude-erlang)
;; (require 'prelude-elixir)
;; (require 'prelude-go)
;; (require 'prelude-haskell)
;; (require 'prelude-js)
;; (require 'prelude-latex)
(require 'prelude-lisp)
;; (require 'prelude-ocaml)
(require 'prelude-org) ;; Org-mode helps you keep TODO lists, notes and more
;; (require 'prelude-perl)
;; (require 'prelude-python)
;; (require 'prelude-ruby)
;; (require 'prelude-scala)
;; (require 'prelude-scheme)
;; (require 'prelude-shell)
;; (require 'prelude-scss)
;; (require 'prelude-web) ;; Emacs mode for web templates
;; (require 'prelude-xml)
;; (require 'prelude-yaml)

(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
;;---------------------------
 
(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)
 
(eval-after-load 'haskell-mode
  '(progn
     (setq haskell-process-suggest-remove-import-lines t
           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-{")