diff --git a/hindent.cabal b/hindent.cabal
--- a/hindent.cabal
+++ b/hindent.cabal
@@ -1,5 +1,5 @@
 name:                hindent
-version:             3.4
+version:             3.5
 synopsis:            Extensible Haskell pretty printer
 description:         Extensible Haskell pretty printer. Both a library and an executable.
                      .
@@ -13,7 +13,7 @@
 category:            Development
 build-type:          Simple
 cabal-version:       >=1.8
-data-files:          elisp/hindent.el
+data-files:          elisp/hindent.el vim/hindent.vim
 
 library
   hs-source-dirs:    src/
diff --git a/src/HIndent/Pretty.hs b/src/HIndent/Pretty.hs
--- a/src/HIndent/Pretty.hs
+++ b/src/HIndent/Pretty.hs
@@ -832,8 +832,10 @@
         error "FIXME: No implementation for InfixA."
       IParam{} ->
         error "FIXME: No implementation for IParam."
-      EqualP{} ->
-        error "FIXME: No implementation for EqualP."
+      EqualP _ a b ->
+        do pretty a
+           write " ~ "
+           pretty b
 
 instance Pretty BangType where
   prettyInternal x =
@@ -982,8 +984,23 @@
                   indented indentSpaces
                            (depend (write "where ")
                                    (pretty binds))
-      InfixMatch{} ->
-        error "FIXME: No implementation for InfixMatch."
+      InfixMatch _ pat1 name pats rhs mbinds ->
+        do depend (do pretty pat1
+                      space
+                      case name of
+                        Ident _ i -> string ("`" ++ i ++ "`")
+                        Symbol _ s -> string s)
+                  (do space
+                      spaced (map pretty pats))
+           pretty rhs
+           case mbinds of
+             Nothing -> return ()
+             Just binds ->
+               do newline
+                  indentSpaces <- getIndentSpaces
+                  indented indentSpaces
+                           (depend (write "where ")
+                                   (pretty binds))
 
 instance Pretty PatField where
   prettyInternal x =
diff --git a/vim/hindent.vim b/vim/hindent.vim
new file mode 100644
--- /dev/null
+++ b/vim/hindent.vim
@@ -0,0 +1,13 @@
+if exists("g:loaded_hindent") || !executable("hindent")
+    finish
+endif
+let g:loaded_hindent = 1
+
+if !exists("g:hindent_style")
+    let g:hindent_style = "fundamental"
+endif
+
+if has("autocmd")
+  let hindent = "hindent --style " . g:hindent_style
+  autocmd FileType haskell setlocal formatexpr=FormatprgLocal(hindent)
+endif