[don't CPR unboxed types
John Meacham <john@repetae.net>**20061121072144] hunk ./E/WorkerWrapper.hs 20
+import Name.Names
hunk ./E/WorkerWrapper.hs 65
-    isCPR n | (Just [_]) <- getSiblings dataTable n = True
+    isCPR n | isBoxed n, (Just [_]) <- getSiblings dataTable n = True
hunk ./E/WorkerWrapper.hs 67
+    isBoxed n = isJust $ do
+        Constructor { conInhabits = c } <- getConstructor n dataTable
+        if c == s_Star then return () else do
+        Constructor { conInhabits = c } <- getConstructor c dataTable
+        if c == s_Star then return () else Nothing