Commit 49a97e97 authored by Edward Z. Yang's avatar Edward Z. Yang
Browse files

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: default avatarEdward Z. Yang <>
parent 4c96e80d
...@@ -181,11 +181,11 @@ data ExposedModule ...@@ -181,11 +181,11 @@ data ExposedModule
instance Text ExposedModule where instance Text ExposedModule where
disp (ExposedModule m reexport) = disp (ExposedModule m reexport) =
Disp.sep [ disp m Disp.hsep [ disp m
, case reexport of , case reexport of
Just m' -> Disp.sep [Disp.text "from", disp m'] Just m' -> Disp.hsep [Disp.text "from", disp m']
Nothing -> Disp.empty Nothing -> Disp.empty
] ]
parse = do parse = do
m <- parseModuleNameQ m <- parseModuleNameQ
Parse.skipSpaces Parse.skipSpaces
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment