[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / compiler / utils / Digraph.hi

diff --git a/ghc/compiler/utils/Digraph.hi b/ghc/compiler/utils/Digraph.hi
index 98e65fe..f5e37f9 100644 (file)
--- a/ghc/compiler/utils/Digraph.hi
+++ b/ghc/compiler/utils/Digraph.hi
@@ -1,11 +1,8 @@
 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
 interface Digraph where
 import Maybes(MaybeErr)
-data MaybeErr a b      {-# GHC_PRAGMA Succeeded a | Failed b #-}
+data MaybeErr a b 
 dfs :: (a -> a -> Bool) -> (a -> [a]) -> ([a], [a]) -> [a] -> ([a], [a])
-       {-# GHC_PRAGMA _A_ 4 _U_ 2211 _N_ _S_ "LLU(LL)S" {_A_ 5 _U_ 22221 _N_ _N_ _N_ _N_} _N_ _N_ #-}
 stronglyConnComp :: (a -> a -> Bool) -> [(a, a)] -> [a] -> [[a]]
-       {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _S_ "LLS" _N_ _N_ #-}
 topologicalSort :: (a -> a -> Bool) -> [(a, a)] -> [a] -> MaybeErr [a] [[a]]
-       {-# GHC_PRAGMA _A_ 3 _U_ 221 _N_ _S_ "LLS" _N_ _N_ #-}