Add whitespace around operator in section, Fixes #67

src-literatetests/10-tests.blt

@@ -467,7 +467,6 @@ func = (1+)
 func = (+ 1)
 
 #test left inf
-## TODO: this could be improved..
 func = (1 `abc`)
 
 #test right inf

src-literatetests/15-regressions.blt

@@ -486,3 +486,7 @@ func
   -> Proxy (str :: [*])
   -> m (Tagged str String)
 
+#test issue 67
+fmapuv :: U.Unbox a => (a -> b) -> U.Vector a -> V.Vector b
+fmapuv f xs = G.generate (G.length xs) (f . (xs G.!))
+

src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs

@@ -321,11 +321,11 @@ layoutExpr lexpr@(L _ expr) = docWrapNode lexpr $ case expr of
   SectionL left op -> do -- TODO: add to testsuite
     leftDoc <- docSharedWrapper layoutExpr left
     opDoc   <- docSharedWrapper layoutExpr op
-    docSeq [leftDoc, opDoc]
+    docSeq [leftDoc, docSeparator, opDoc]
   SectionR op right -> do -- TODO: add to testsuite
     opDoc    <- docSharedWrapper layoutExpr op
     rightDoc <- docSharedWrapper layoutExpr right
-    docSeq [opDoc, rightDoc]
+    docSeq [opDoc, docSeparator, rightDoc]
   ExplicitTuple args boxity
     | Just argExprs <- args `forM` (\case (L _ (Present e)) -> Just e; _ -> Nothing) -> do
     argDocs <- docSharedWrapper layoutExpr `mapM` argExprs