diff --git a/src/HIndent/Pretty.hs b/src/HIndent/Pretty.hs
index 31b24530d..03df8d92b 100644
--- a/src/HIndent/Pretty.hs
+++ b/src/HIndent/Pretty.hs
@@ -71,7 +71,6 @@ import           Control.Monad.State.Strict hiding (state)
 import           Data.Int
 import           Data.List
 import           Data.Maybe
-import           Data.Foldable (traverse_)
 import           Data.Monoid hiding (Alt)
 import           Data.Text (Text)
 import qualified Data.Text as T
@@ -973,11 +972,11 @@ instance Pretty ClassDecl where
                                Just kind ->
                                  do write " :: "
                                     pretty kind)))
-      ClsTyFam _ h mkind minj ->
+      ClsTyFam _ h bindings mkind ->
         depend (write "type ")
                (depend (pretty h)
-                       (depend (traverse_ (\kind -> write " :: " >> pretty kind) mkind)
-                               (traverse_ pretty minj)))
+                       (depend (mapM_ (\kind -> write " :: " >> pretty kind) mkind)
+                               (mapM_ pretty bindings)))
       ClsTyDef _ (TypeEqn _ this that) ->
         do write "type "
            pretty this