#83 add alternative case indentation

Author: raichoo

README.md

@@ -100,6 +100,13 @@ To configure indentation in `haskell-vim` you can use the following variables to
         f x y
         >>|
 
+`haskell-vim` also supports an alterative style for `case` indentation.
+
+* `let g:haskell_indent_case_alternative = 1`
+
+        f xs ys = case xs of
+        >>[]     -> ...
+        >>(y:ys) -> ...
 
 
 #### Cabal

indent/haskell.vim

@@ -268,7 +268,11 @@ function! GetHaskellIndent()
   " case foo of
   " >>bar -> quux
   if l:prevline =~ '\C\<case\>.\+\<of\>\s*$'
-    return match(l:prevline, '\C\<case\>') + g:haskell_indent_case
+    if exists('g:haskell_indent_case_alternative') && g:haskell_indent_case_alternative
+      return match(l:prevline, '\S') + &shiftwidth
+    else
+      return match(l:prevline, '\C\<case\>') + g:haskell_indent_case
+    endif
   endif
 
   "" where foo