summaryrefslogtreecommitdiff
path: root/libraries/base/Foreign
diff options
context:
space:
mode:
authorHerbert Valerio Riedel <hvr@gnu.org>2015-03-07 20:42:21 +0100
committerHerbert Valerio Riedel <hvr@gnu.org>2015-03-07 20:45:44 +0100
commit47b5b5c2b2c92ba091313c36489588edadceaa9d (patch)
treedbfae91089f8812d537bb75a48cb08e518274990 /libraries/base/Foreign
parent68d4f47212633d101c5f4963dbfccf0fb9a8580f (diff)
downloadhaskell-47b5b5c2b2c92ba091313c36489588edadceaa9d.tar.gz
base: drop redundant Typeable derivings
Thanks to #9858 `Typeable` doesn't need to be explicitly derived anymore. This also makes `AutoDeriveTypeable` redundant, as well as some imports of `Typeable` (removal of whose may be beneficial to #9707). This commit removes several such now redundant use-sites in `base`. Reviewed By: austin, ekmett Differential Revision: https://phabricator.haskell.org/D712
Diffstat (limited to 'libraries/base/Foreign')
-rw-r--r--libraries/base/Foreign/C/Types.hs3
-rw-r--r--libraries/base/Foreign/Ptr.hs3
2 files changed, 2 insertions, 4 deletions
diff --git a/libraries/base/Foreign/C/Types.hs b/libraries/base/Foreign/C/Types.hs
index abaf5c73d6..2b9939c6cc 100644
--- a/libraries/base/Foreign/C/Types.hs
+++ b/libraries/base/Foreign/C/Types.hs
@@ -1,6 +1,6 @@
{-# LANGUAGE Trustworthy #-}
{-# LANGUAGE CPP, NoImplicitPrelude, MagicHash, GeneralizedNewtypeDeriving,
- AutoDeriveTypeable, StandaloneDeriving #-}
+ StandaloneDeriving #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
-- XXX -fno-warn-unused-binds stops us warning about unused constructors,
-- but really we should just remove them if we don't want them
@@ -73,7 +73,6 @@ import Foreign.Storable
import Data.Bits ( Bits(..), FiniteBits(..) )
import Data.Int ( Int8, Int16, Int32, Int64 )
import Data.Word ( Word8, Word16, Word32, Word64 )
-import Data.Typeable
import GHC.Base
import GHC.Float
diff --git a/libraries/base/Foreign/Ptr.hs b/libraries/base/Foreign/Ptr.hs
index e57da91a3c..efe580a70d 100644
--- a/libraries/base/Foreign/Ptr.hs
+++ b/libraries/base/Foreign/Ptr.hs
@@ -1,6 +1,6 @@
{-# LANGUAGE Trustworthy #-}
{-# LANGUAGE CPP, NoImplicitPrelude, MagicHash, GeneralizedNewtypeDeriving,
- AutoDeriveTypeable, StandaloneDeriving #-}
+ StandaloneDeriving #-}
-----------------------------------------------------------------------------
-- |
@@ -58,7 +58,6 @@ import GHC.Show
import GHC.Enum
import Data.Bits
-import Data.Typeable
import Foreign.Storable ( Storable(..) )
-- | Release the storage associated with the given 'FunPtr', which