fix #104: indent guard in where block

Author: raichoo

indent/haskell.vim

@@ -300,6 +300,11 @@ function! GetHaskellIndent()
   if l:prevline =~ '\C\<where\>\s\+\S\+.*$'
     if  l:line =~ '^\s*[=-]>\s' && l:prevline =~ ' :: '
       return match(l:prevline, ':: ')
+    elseif  l:line =~ '^\s*|\s'
+      let l:s = match(l:prevline, '\C\<where\>')
+      if s:isSYN('haskellWhere', v:lnum - 1, l:s + 1)
+        return l:s + g:haskell_indent_where + g:haskell_indent_guard
+      endif
     else
       let l:s = match(l:prevline, '\C\<where\>')
       if s:isSYN('haskellWhere', v:lnum - 1, l:s + 1)

tests/indent/test017/expected.hs

@@ -0,0 +1,2 @@
+where countUntilClosed (x:xs)
+        | x

tests/indent/test017/test.hs

@@ -0,0 +1 @@
+where countUntilClosed (x:xs)

tests/indent/test017/test.vim

@@ -0,0 +1,3 @@
+o| x
+:saveas! result.hs
+:q!