@@ -303,7 +303,9 @@ fromManyNames :: [Name] -> Name
303303fromManyNames names =
304304 case names of
305305 [] ->
306− error "trying to use fromManyNames on an empty list"
306+ blank
307+ -- this case is needed for (let _ = Debug.log "x" x in ...)
308+ -- but maybe unused patterns should be stripped out instead
307309
308310 Utf8.Utf8 ba# : _ ->
309311 let
@@ -327,6 +329,12 @@ fromManyNames names =
327329 )
328330
329331
332+{-# NOINLINE blank #-}
333+blank :: Name
334+blank =
335+ fromWords [0x5F,0x4D,0x24] {-_M$-}
336+
337+
330338
331339-- FROM WORDS
332340