Getting Hasklig to work in Emacs

hasklig.el

  ;; nice glyphs for haskell with hasklig
  ;; copied that code from some pastebin, but forgot where
  (custom-set-variables '(haskell-font-lock-symbols t)
                        '(haskell-font-lock-symbols-alist
                          (and (fboundp 'decode-char)
                              (list (cons "&&" (decode-char 'ucs #XE100))
                                    (cons "***" (decode-char 'ucs #XE101))
                                    (cons "*>" (decode-char 'ucs #XE102))
                                    (cons "\\\\" (decode-char 'ucs #XE103))
                                    (cons "||" (decode-char 'ucs #XE104))
                                    (cons "|>" (decode-char 'ucs #XE105))
                                    (cons "::" (decode-char 'ucs #XE106))
                                    (cons "==" (decode-char 'ucs #XE107))
                                    (cons "===" (decode-char 'ucs #XE108))
                                    (cons "==>" (decode-char 'ucs #XE109))
                                    (cons "=>" (decode-char 'ucs #XE10A))
                                    (cons "=<<" (decode-char 'ucs #XE10B))
                                    (cons "!!" (decode-char 'ucs #XE10C))
                                    (cons ">>" (decode-char 'ucs #XE10D))
                                    (cons ">>=" (decode-char 'ucs #XE10E))
                                    (cons ">>>" (decode-char 'ucs #XE10F))
                                    (cons ">>-" (decode-char 'ucs #XE110))
                                    (cons ">-" (decode-char 'ucs #XE111))
                                    (cons "->" (decode-char 'ucs #XE112))
                                    (cons "-<" (decode-char 'ucs #XE113))
                                    (cons "-<<" (decode-char 'ucs #XE114))
                                    (cons "<*" (decode-char 'ucs #XE115))
                                    (cons "<*>" (decode-char 'ucs #XE116))
                                    (cons "<|" (decode-char 'ucs #XE117))
                                    (cons "<|>" (decode-char 'ucs #XE118))
                                    (cons "<$>" (decode-char 'ucs #XE119))
                                    (cons "<>" (decode-char 'ucs #XE11A))
                                    (cons "<-" (decode-char 'ucs #XE11B))
                                    (cons "<<" (decode-char 'ucs #XE11C))
                                    (cons "<<<" (decode-char 'ucs #XE11D))
                                    (cons "<+>" (decode-char 'ucs #XE11E))
                                    (cons ".." (decode-char 'ucs #XE11F))
                                    (cons "..." (decode-char 'ucs #XE120))
                                    (cons "++" (decode-char 'ucs #XE121))
                                    (cons "+++" (decode-char 'ucs #XE122))
                                    (cons "/=" (decode-char 'ucs #XE123))))))