From 32b61ee3af74968f7b9fc3433c4fbd01446cec47 Mon Sep 17 00:00:00 2001 From: Phil de Joux Date: Wed, 16 Mar 2022 13:08:27 -0400 Subject: [PATCH] Render library with empty name, #483. --- src/Hpack/Render.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/Hpack/Render.hs b/src/Hpack/Render.hs index 3ff24285..4555030f 100644 --- a/src/Hpack/Render.hs +++ b/src/Hpack/Render.hs @@ -154,8 +154,9 @@ renderLibraries :: Map String (Section Library) -> [Element] renderLibraries = map renderNamedLibrary . Map.toList renderNamedLibrary :: (String, Section Library) -> Element -renderNamedLibrary (name, sect) = - Stanza ("library " ++ name) (renderLibrarySection sect) +renderNamedLibrary (name, sect) + | "" <- name = Stanza "library" (renderLibrarySection sect) + | otherwise = Stanza ("library " ++ name) (renderLibrarySection sect) renderExecutables :: Map String (Section Executable) -> [Element] renderExecutables = map renderExecutable . Map.toList