diff --git a/compiler/utils/Digraph.hs b/compiler/utils/Digraph.hs
index c6e63fb75366bd7c70eec5225fffba817af1447b..2c90c1e41ec36b64bd8997d2fb43b74250ca39b1 100644
--- a/compiler/utils/Digraph.hs
+++ b/compiler/utils/Digraph.hs
@@ -1,8 +1,7 @@
 -- (c) The University of Glasgow 2006
 
 {-# LANGUAGE CPP, ScopedTypeVariables #-}
--- For Functor SCC. ToDo: Remove me when 7.10 is released
-{-# OPTIONS_GHC -fno-warn-orphans #-}
+
 module Digraph(
         Graph, graphFromEdgedVertices,
 
@@ -329,14 +328,6 @@ graphEmpty g = lo > hi
 
 type IntGraph = G.Graph
 
--- Functor instance was added in 7.8, in containers 0.5.3.2 release
--- ToDo: Drop me when 7.10 is released.
-#if __GLASGOW_HASKELL__ < 708
-instance Functor SCC where
-    fmap f (AcyclicSCC v) = AcyclicSCC (f v)
-    fmap f (CyclicSCC vs) = CyclicSCC (fmap f vs)
-#endif
-
 {-
 ------------------------------------------------------------
 -- Depth first search numbering