@@ -186,9 +186,10 @@ p_match' placer render style isInfix strictness m_pats GRHSs {..} = do
186 Function name -> p_rdrName name
186 Function name -> p_rdrName name
187 _ -> return ()
187 _ -> return ()
188 Just ne_pats -> do
188 Just ne_pats -> do
189− let combinedSpans =
189+ let combinedSpans = case style of
190+ Function name -> combineSrcSpans (getLoc name) patSpans
190− combineSrcSpans' $
192+ patSpans = combineSrcSpans' (getLoc <$> ne_pats)
192 indentBody = not (isOneLineSpan combinedSpans)
193 indentBody = not (isOneLineSpan combinedSpans)
193 switchLayout [combinedSpans] $ do
194 switchLayout [combinedSpans] $ do
194 let stdCase = sep breakpoint (located' p_pat) m_pats
195 let stdCase = sep breakpoint (located' p_pat) m_pats