dhall to-directory-tree: Fix support for empty Maps

Fixes #2598
dhall-lang · Oct 6, 2024 · d7d7abe · d7d7abe
1 parent dc48911
commit d7d7abe
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/dhall/src/Dhall/DirectoryTree.hs b/dhall/src/Dhall/DirectoryTree.hs
@@ -179,8 +179,8 @@ toDirectoryTree allowSeparators path expression = case expression of
     RecordLit keyValues ->
         Map.unorderedTraverseWithKey_ process $ recordFieldValue <$> keyValues
 
-    ListLit (Just (Record [ ("mapKey", recordFieldValue -> Text), ("mapValue", _) ])) [] ->
-        return ()
+    ListLit (Just (App List (Record [ ("mapKey", recordFieldValue -> Text), ("mapValue", _) ]))) [] ->
+        Directory.createDirectoryIfMissing allowSeparators path
 
     ListLit _ records
         | not (null records)