Remove space after opening parenthesis (fixes #87)

2017-12-28 20:46:03 +01:00 · 2017-12-28 20:46:03 +01:00 · 43abab2dd2
parent 96b3a3ab93
commit 43abab2dd2
3 changed files with 4 additions and 4 deletions
--- a/src-literatetests/15-regressions.blt
+++ b/src-literatetests/15-regressions.blt
@ -219,7 +219,7 @@ showPackageDetailedInfo pkginfo =
          , entry
            "Versions installed"
            installedVersions
-            ( altText
+            (altText
              null
              (if hasLib pkginfo then "[ Not installed ]" else "[ Unknown ]")
            )
--- a/src-literatetests/tests-context-free.blt
+++ b/src-literatetests/tests-context-free.blt
@ -714,7 +714,7 @@ func

 #test some indentation thingy
 func =
-  ( lkjadljasldjalskdjaldjalsdjkalsdjlaksdjlasjdlajsaldskj
+  (lkjadljasldjalskdjaldjalsdjkalsdjlaksdjlasjdlajsaldskj
  $ abc
  $ def
  $ ghi
@ -840,7 +840,7 @@ showPackageDetailedInfo pkginfo =
          , entry
            "Versions installed"
            installedVersions
-            ( altText
+            (altText
              null
              (if hasLib pkginfo then "[ Not installed ]" else "[ Unknown ]")
            )
--- a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
+++ b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
@ -327,7 +327,7 @@ layoutExpr lexpr@(L _ expr) = do
          ]
        , docSetBaseY $ docLines
          [ docCols ColOpPrefix
-            [ docParenLSep
+            [ docLit $ Text.pack "("
            , docAddBaseY (BrIndentSpecial 2) innerExpDoc
            ]
          , docLit $ Text.pack ")"