[project @ 2001-08-29 18:12:19 by sof]

emptyPLS: warning removal

diff --git a/ghc/compiler/compMan/CmLink.lhs b/ghc/compiler/compMan/CmLink.lhs
index b99c5ff..c7ac67e 100644 (file)
--- a/ghc/compiler/compMan/CmLink.lhs
+++ b/ghc/compiler/compMan/CmLink.lhs
@@ -82,7 +82,7 @@ emptyPLS = return (PersistentLinkerState { closure_env = emptyFM,
                                            itbl_env    = emptyFM,
                                           bcos_loaded = [] })
 #else
-emptyPLS = return (PersistentLinkerState {})
+emptyPLS = return (PersistentLinkerState {dummy=()})
 #endif
 
 -- We also keep track of which object modules are currently loaded