cosmetic

reopt/Main_reopt.hs

@@ -784,8 +784,7 @@ collectInvariants ref evt = do
     _ -> do
       pure ()
 
--- | This command is called when reopt is called with no specific
--- action.
+-- | This command is called when reopt is called with no specific action.
 performReopt :: Args -> FilePath -> IO ()
 performReopt args elfPath = do
   let somethingToDo = isJust (cfgExportPath args) || shouldRecover args

src/Reopt/CFG/LLVM.hs

@@ -1252,9 +1252,8 @@ resolveLoadNameAndType memRep =
         error $ "Vector width of " ++ show n ++ " is too large."
       pure ("v" ++ show n ++ eltName, L.Vector (fromIntegral (natValue n)) eltType)
 
--- | The type inference will infer a pointer-to-struct type for the
--- pointer (or a conflict type if one is detected).  This will do a
--- GEP or cast as required.
+-- | The type inference will infer a pointer-to-struct type for the pointer (or a conflict type if
+-- one is detected).  This will do a GEP or cast as required.
 pointerForMemOp ::
   forall arch.
   FnArchConstraints arch =>