Apply suggestions from code review

Co-authored-by: Silvan Mosberger <[email protected]>

main/Main.hs

@@ -42,7 +42,7 @@ data Nixfmt = Nixfmt
     width :: Width,
     check :: Bool,
     quiet :: Bool,
-    pure_ :: Bool,
+    strict :: Bool,
     verify :: Bool,
     ast :: Bool
   }
@@ -60,7 +60,7 @@ options =
             &= help (addDefaultHint defaultWidth "Maximum width in characters"),
         check = False &= help "Check whether files are formatted without modifying them",
         quiet = False &= help "Do not report errors",
-        pure_ = False &= help "Ignore all line breaks in the input formatting except for empty lines",
+        strict = False &= help "Enable a stricter formatting mode that isn't influenced as much by how the input is formatted",
         verify =
           False
             &= help

src/Nixfmt/Types.hs

@@ -85,13 +85,7 @@ data Ann a = Ann
   deriving (Show)
 
 removeLineInfo :: Ann a -> Ann a
-removeLineInfo (Ann{preTrivia, value, trailComment}) =
-  Ann
-    { preTrivia,
-      sourceLine = MP.pos1,
-      value,
-      trailComment
-    }
+removeLineInfo ann = ann { sourceLine = MP.pos1 }
 
 -- | An annotated value without any trivia or trailing comment
 pattern LoneAnn :: a -> Ann a
@@ -127,15 +121,7 @@ data Item a
     Comments Trivia
   deriving (Foldable, Show)
 
-newtype Items a = Items {unItems :: [Item a]}
-
-mapItems :: (a -> a) -> Items a -> Items a
-mapItems f = Items . Prelude.map f' . unItems
-  where
-    f' = \case
-      (Item a) -> Item $ f a
-      (Comments t) -> Comments t
-
+newtype Items a = Items {unItems :: [Item a]} derive Functor
 instance (Eq a) => Eq (Items a) where
   (==) = (==) `on` concatMap Data.Foldable.toList . unItems