module UHC.Light.Compiler.Pred
( ClsFuncDep (..) )
where
import UHC.Util.Pretty
import Control.Monad
import UHC.Util.Binary
import UHC.Util.Serialize
{-# LINE 11 "src/ehc/Pred.chs" #-}
-- Force generation of module header



{-# LINE 49 "src/ehc/Pred.chs" #-}
data ClsFuncDep = ClsFuncDep [Int] [Int] deriving Show

instance PP ClsFuncDep where
  pp (ClsFuncDep f t) = ppBracketsCommas f >|< "->" >|< ppBracketsCommas t