Commit 75c211ec authored by Gabor Greif's avatar Gabor Greif 💬
Browse files

Role problems pervent GND from happening

with GHC HEAD. Reworked using deriving instance.
parent c9a02287
......@@ -23,7 +23,9 @@ of arguments of combining function.
{-# LANGUAGE CPP #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveTraversable #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE StandaloneDeriving #-}
{-# OPTIONS_GHC -Wall #-}
module UniqFM (
......@@ -211,9 +213,11 @@ instance Monoid (UniqFM a) where
-}
newtype UniqFM ele = UFM (M.IntMap ele)
deriving (Data, Eq, Foldable.Foldable, Functor, Traversable.Traversable,
deriving (Data, Eq, Functor, Traversable.Traversable,
Typeable)
deriving instance Foldable.Foldable UniqFM
emptyUFM = UFM M.empty
isNullUFM (UFM m) = M.null m
unitUFM k v = UFM (M.singleton (getKey $ getUnique k) v)
......
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