 	(elt ans 1)
       nil)))
   
-(defun merlin-get-type (exp) 
+(defun merlin-get-type ()
   (let ((sexp (merlin-get-completion (merlin-ident-under-point))))
     (if (= (length (elt sexp 1)) 0)
 	nil


(defun merlin-flush-tell ()
  "Flush merlin teller"
  (merlin-send-command "tell" '("struct" nil)))

(defun merlin-tell-piece (mode start end)
  "Tell part of the current buffer to merlin using `mode'"

  "The timer used to print the type of the expression under point")

;; UTILS

(defun merlin-debug (s)
  (with-current-buffer (merlin-make-buffer-name)
    (insert s)))

(defun merlin-compute-prefix (ident)
  "Computes the prefix of an identifier. The prefix of Foo.bar is Foo. and the prefix of bar is \"\""
  (let ((l (butlast (split-string ident "\\."))))
