Skip to content

Commit 4ad8271

Browse files
committed
Fix reexported-modules display mangling.
sep allows for horizontal separation, which is absolutely not what we want. Use hcat instead. Thanks @stepcut for reporting. Signed-off-by: Edward Z. Yang <[email protected]>
1 parent a4333ae commit 4ad8271

File tree

1 file changed

+5
-5
lines changed

1 file changed

+5
-5
lines changed

Cabal/Distribution/InstalledPackageInfo.hs

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -187,11 +187,11 @@ instance Text OriginalModule where
187187

188188
instance Text ExposedModule where
189189
disp (ExposedModule m reexport) =
190-
Disp.sep [ disp m
191-
, case reexport of
192-
Just m' -> Disp.sep [Disp.text "from", disp m']
193-
Nothing -> Disp.empty
194-
]
190+
Disp.hsep [ disp m
191+
, case reexport of
192+
Just m' -> Disp.hsep [Disp.text "from", disp m']
193+
Nothing -> Disp.empty
194+
]
195195
parse = do
196196
m <- parseModuleNameQ
197197
Parse.skipSpaces

0 commit comments

Comments
 (0)