#73 fix indentation for comma in blocks

neovimhaskell · Aug 23, 2016 · 7a4fbdd · 7a4fbdd
1 parent fb11bdd
commit 7a4fbdd
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/indent/haskell.vim b/indent/haskell.vim
@@ -156,12 +156,16 @@ function! GetHaskellIndent()
       call search(',', 'cW')
       let l:n = s:getNesting(s:getHLStack(line('.'), col('.')))
       call search('[([{]', 'bW')
+      let l:cl = line('.')
+      let l:cc = col('.')
 
-      while l:n != s:getNesting(s:getHLStack(line('.'), col('.')))
+      while l:n != s:getNesting(s:getHLStack(l:cl, l:cc)) || s:isSYN('haskellString', l:cl, l:cc) || s:isSYN('haskellChar', l:cl, l:cc)
         call search('[([{]', 'bW')
+        let l:cl = line('.')
+        let l:cc = col('.')
       endwhile
 
-      return col('.') - 1
+      return l:cc - 1
     else
       let l:s = s:indentGuard(match(l:line, ','), l:prevline)
       if l:s > -1