diff --git a/emacs.d/snippets/haskell-mode/language-extension b/emacs.d/snippets/haskell-mode/language-extension
new file mode 100644
index 000000000..9d6084acb
--- /dev/null
+++ b/emacs.d/snippets/haskell-mode/language-extension
@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: language extension
+# key: lang
+# --
+{-# LANGUAGE $1 #-}
\ No newline at end of file
diff --git a/emacs.d/snippets/haskell-mode/separator b/emacs.d/snippets/haskell-mode/separator
new file mode 100644
index 000000000..1ab0d762b
--- /dev/null
+++ b/emacs.d/snippets/haskell-mode/separator
@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: Separator
+# key: -
+# --
+--------------------------------------------------------------------------------
\ No newline at end of file
diff --git a/emacs.d/wpc/packages/wpc-haskell.el b/emacs.d/wpc/packages/wpc-haskell.el
index 5be444e51..e6525537b 100644
--- a/emacs.d/wpc/packages/wpc-haskell.el
+++ b/emacs.d/wpc/packages/wpc-haskell.el
@@ -26,7 +26,9 @@
          '(("`mappend`" . "⊕")
            ("<>"        . "⊕"))))
     (dolist (item m-symbols) (add-to-list 'haskell-font-lock-symbols-alist item)))
-  (setq haskell-font-lock-symbols t))
+  (setq haskell-font-lock-symbols t)
+  (add-hook 'before-save-hook #'haskell-align-imports))
+
 
 (defun empire/haskell/module->test ()
   "Jump from a module to a test."
@@ -54,4 +56,4 @@
     (empire/haskell/test->module)))
 
 (provide 'wpc-haskell)
-;;; haskell.el ends here
+;;; wpc-haskell.el ends here