Improve split (#69)

eagletmt · eagletmt · commit 398968ce2585 · 2015-07-26T17:53:04.000+09:00
diff --git a/autoload/ghcmod.vim b/autoload/ghcmod.vim
@@ -47,14 +47,9 @@ function! ghcmod#split(line, col, path, module) "{{{
   if len(l:parsed) < 5
     return
   endif
-  let l:decls = l:parsed[5]
-  normal dd
-  for l:line in split(l:decls, '\n')
-    call append(line(".")-1, l:line)
-  endfor
+  return split(l:parsed[5], '\n')
 endfunction "}}}
 
-
 function! ghcmod#type(line, col, path, module) "{{{
   let l:cmd = ghcmod#build_command(['type', a:path, a:module, a:line, a:col])
   let l:output = ghcmod#system(l:cmd)
@@ -308,7 +303,6 @@ function! ghcmod#system(...) "{{{
   lcd `=ghcmod#basedir()`
   let l:ret = call('vimproc#system', a:000)
   lcd -
-  echomsg len(l:ret)
   return l:ret
 endfunction "}}}
 
diff --git a/autoload/ghcmod/command.vim b/autoload/ghcmod/command.vim
@@ -64,8 +64,9 @@ function! ghcmod#command#split_function_case(force) "{{{
 
   let l:module = ghcmod#detect_module()
   let l:decls = ghcmod#split(line('.'), col('.'), l:path, l:module)
-  echo l:decls
 
+  call append(line('.'), l:decls)
+  delete _
 endfunction "}}}
 
 function! ghcmod#command#type_insert(force) "{{{
