@@ -643,7 +643,7 @@ instance Binary NameType where
643 _ -> error "Corrupted binary data for NameType"
643 _ -> error "Corrupted binary data for NameType"
646−instance {-(Binary n) =>-} Binary (TT Name) where
646+instance {- (Binary n) => -} Binary (TT Name) where
648 = {-# SCC "putTT" #-}
648 = {-# SCC "putTT" #-}
649 case x of
649 case x of