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