Initial code generation working

- Added fallback with haskell-src-exts

elisp/ghc-rewrite.el

@@ -50,13 +50,16 @@
     (if (null info)
 	(message "Cannot obtain initial code")
 	(let* ((ln-current (line-number-at-pos))
-	       (pos (car info))
+	       (sort (car info))
+	       (pos (cadr info))
 	       (ln-end (ghc-sinfo-get-end-line pos))
 	       (ln-diff (+ 1 (- ln-end ln-current)))
-	       (fns-to-insert (cadr info)))
+	       (fns-to-insert (caddr info)))
 	  (goto-char (line-end-position ln-diff))
 	  (dolist (fn-to-insert fns-to-insert)
-	    (newline-and-indent)
+	    (if (equal sort "function")
+		(newline)
+	        (newline-and-indent))
 	    (insert fn-to-insert))))))
 
 (defun ghc-obtain-initial-code-from-signature ()