From 83568675d3e6bf2f8369d67b02b0c5e6d41b8adb Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 14 Nov 2006 13:14:59 +0000 Subject: [PATCH] Remove unused Name imort, and add a comment explaining why pragmas are disabled --- compiler/utils/UniqSet.lhs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/compiler/utils/UniqSet.lhs b/compiler/utils/UniqSet.lhs index 7d83f6f..ec3d1d9 100644 --- a/compiler/utils/UniqSet.lhs +++ b/compiler/utils/UniqSet.lhs @@ -22,8 +22,6 @@ module UniqSet ( #include "HsVersions.h" -import {-# SOURCE #-} Name ( Name ) - import Maybes ( maybeToBool ) import UniqFM import Unique ( Unique, Uniquable(..) ) @@ -123,6 +121,10 @@ mapUniqSet f (MkUniqSet set) = MkUniqSet (mapUFM f set) {-# SPECIALIZE addOneToUniqSet :: UniqSet Unique -> Unique -> UniqSet Unique #-} + +-- These next three specialisations disabled as importing Name creates a +-- loop, and getting the Uniquable Name instance in particular is tricky. + {- SPECIALIZE elementOfUniqSet :: Name -> UniqSet Name -> Bool , Unique -> UniqSet Unique -> Bool -- 1.7.10.4