From f2893898790594cc2020c7d4077f732db89383bc Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <hexagoxel@hexagoxel.de>
Date: Wed, 28 Aug 2019 14:48:11 +0200
Subject: [PATCH] Fix comment wandering left inside instance decls

---
 src-literatetests/10-tests.blt                           | 7 +++++++
 src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs | 1 +
 2 files changed, 8 insertions(+)

diff --git a/src-literatetests/10-tests.blt b/src-literatetests/10-tests.blt
index da8c3ee..11724ac 100644
--- a/src-literatetests/10-tests.blt
+++ b/src-literatetests/10-tests.blt
@@ -1065,6 +1065,13 @@ type ((a :+: b) c) = (a, c)
 instance MyClass Int where
   myMethod x = x + 1
 
+#test simple-method-comment
+
+instance MyClass Int where
+  myMethod x =
+    -- insightful comment
+    x + 1
+
 #test simple-method-signature
 
 instance MyClass Int where
diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs
index 0dc05a7..c2cbbae 100644
--- a/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs
+++ b/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs
@@ -858,6 +858,7 @@ layoutClsInst :: ToBriDoc ClsInstDecl
 layoutClsInst lcid@(L _ cid) = docLines
   [ layoutInstanceHead
   , docEnsureIndent BrIndentRegular
+  $  docSetIndentLevel
   $  docSortedLines
   $  fmap layoutAndLocateSig          (cid_sigs cid)
   ++ fmap layoutAndLocateBind         (bagToList $ cid_binds cid)