Commit 83568675 authored by Ian Lynagh's avatar Ian Lynagh

Remove unused Name imort, and add a comment explaining why pragmas are disabled

parent 43b746ac
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment