Support single line where clauses

data/examples/declaration/value/function/where-out.hs

@@ -1,7 +1,5 @@
 foo :: Int -> Int
-foo x = f x
-  where
-    f z = z
+foo x = f x where f z = z
 
 bar :: Int -> Int
 bar x = f x

src/Ormolu/Printer/Meat/Declaration/Value.hs

@@ -200,11 +200,13 @@ p_match' placer pretty style isInfix strictness m_pats m_grhss = do
                 then RightArrow
                 else EqualSign
           newlineSep (located' (p_grhs' pretty groupStyle)) grhssGRHSs
+          let whereLocation = combineSrcSpans patGrhssSpan $ getLoc grhssLocalBinds
           unless
             (GHC.isEmptyLocalBindsPR (unLoc grhssLocalBinds))
-            (inciLocalBinds $ do
-              newline
-              line (txt "where")
+            (inciLocalBinds . switchLayout whereLocation $ do
+              breakpoint
+              txt "where"
+              breakpoint
               inci (located grhssLocalBinds p_hsLocalBinds)
             )
     case style of