Add :GhcModInfo {identifier}

Author: eagletmt

after/ftplugin/haskell/ghcmod.vim

@@ -31,7 +31,7 @@ else
 endif
 
 command! -buffer -nargs=0 GhcModType echo ghcmod#type()[1]
-command! -buffer -nargs=0 GhcModInfo echo ghcmod#info()
+command! -buffer -nargs=? GhcModInfo call s:info(<q-args>)
 command! -buffer -nargs=0 GhcModTypeClear call ghcmod#type_clear()
 command! -buffer -nargs=0 GhcModCheck call s:make('check')
 command! -buffer -nargs=0 GhcModLint call s:make('lint')
@@ -68,3 +68,11 @@ function! s:check_and_lint_async()
     call ghcmod#async_make('lint', 'a')
   endif
 endfunction
+
+function! s:info(fexp)
+  let l:fexp = a:fexp
+  if empty(l:fexp)
+    let l:fexp = ghcmod#getHaskellIdentifier()
+  end
+  echo ghcmod#info(l:fexp)
+endfunction

autoload/ghcmod.vim

@@ -60,18 +60,17 @@ function! ghcmod#getHaskellIdentifier()"{{{
   return ll1.ll2
 endfunction"}}}
 
-function! ghcmod#info()"{{{
+function! ghcmod#info(fexp)"{{{
   if &l:modified
     call ghcmod#print_warning('ghcmod#info: the buffer has been modified but not written')
   endif
-  let l:fexp  = ghcmod#getHaskellIdentifier()
   let l:file = expand('%:p')
   if l:file ==# ''
     call ghcmod#print_warning("current version of ghcmod.vim doesn't support running on an unnamed buffer.")
     return ''
   endif
   let l:mod = ghcmod#detect_module()
-  let l:cmd = ghcmod#build_command(['info', l:file, l:mod, l:fexp])
+  let l:cmd = ghcmod#build_command(['info', l:file, l:mod, a:fexp])
   let l:output = s:system(l:cmd)
 
   return l:output

doc/ghcmod.txt

@@ -51,6 +51,9 @@ If you'd like to give GHC options, set |g:ghcmod_ghc_options|.
 :GhcModInfo                                                      *:GhcModInfo*
 	Information about the identifier under the cursor is echoed.
 
+:GhcModInfo {identifier}
+	Information about {identifier} is echoed.
+
 :GhcModTypeClear                                            *:GhcModTypeClear*
 	Clear the highlight created by |:GhcModType|.