clean up words

Author: jappeace

Cabal-syntax/src/Distribution/PackageDescription/ExactPrint.hs

@@ -79,7 +79,7 @@ renderWithPositionAdjustment mAnn current  name doc =
   spacing $$
   (PP.nest columns
   (PP.text fieldName ) <> ((PP.hsep ("" <$ [0..offset])) <> doc))
-  -- <+> "--" <+> PP.text (show ((rows, columns), mAnn, current, offset)) -- DEBUG shit
+  -- <+> "--" <+> PP.text (show ((rows, columns), mAnn, current, offset)) -- DEBUG
   where
      (Position rows columns) = case mAnn of
               Just position -> (namePosition position) `difference` current
@@ -96,7 +96,7 @@ renderWithPositionAdjustment mAnn current  name doc =
         ((Position _ cols):_) -> cols
         [] -> 0) - length fieldName - 1
 
--- undo pp fuckups
+-- pp randomly changes ordering, this undoes that
 sortFields :: [PrettyField (Maybe ExactPosition)] -> [PrettyField (Maybe ExactPosition)]
 sortFields = reverse . sortOn (join . prettyFieldAnn)