diff --git a/modules/home/haskell.nix b/modules/home/haskell.nix
index 9b9fc26..dda3918 100644
--- a/modules/home/haskell.nix
+++ b/modules/home/haskell.nix
@@ -14,6 +14,10 @@ in {
     home.file.".ghc/ghci.conf".text = ''
       :set prompt "\x1b[38;5;5mλ>\x1b[0m "
       :set prompt-cont "\x1b[38;5;5m|>\x1b[0m "
+      :set -interactive-print=Text.Pretty.Simple.pPrint
+      :m + Text.Show.Functions
+      :unset +r
+      :set +m
     '';
 
     sydnix.impermanence.cache.directories =
diff --git a/modules/home/users/msyds/emacs/lisp/syd/haskell.el b/modules/home/users/msyds/emacs/lisp/syd/haskell.el
index d650b30..b27fbf5 100644
--- a/modules/home/users/msyds/emacs/lisp/syd/haskell.el
+++ b/modules/home/users/msyds/emacs/lisp/syd/haskell.el
@@ -67,6 +67,11 @@
   :custom ((lsp-haskell-server-path "haskell-language-server"))
   :init
   (add-hook 'haskell-mode-hook #'lsp-deferred 'append)
-  (add-hook 'haskell-literate-mode-hook #'lsp-deferred 'append))
+  (add-hook 'haskell-literate-mode-hook #'lsp-deferred 'append)
+  (syd-add-hook '(haskell-mode-hook haskell-literate-mode-hook)
+    (defun syd-haskell-configure-lsp-h ()
+      ;; it often highlights list literals and quasiquotes which
+      ;; gets reaaaally annoying.
+      (setq-local lsp-enable-symbol-highlighting nil))))
 
 (provide 'syd/haskell)