Render library with empty name, sol#483.

cabalism · Mar 16, 2022 · 32b61ee · 32b61ee
1 parent 5a16f09
commit 32b61ee
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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