src/Handler/Utils/Form/MassInput.hs

@@ -247,11 +247,11 @@ data MassInputException = MassInputInvalidShape
 instance Exception MassInputException
 
 data MassInput handler liveliness cellData cellResult = forall i. PathPiece i => MassInput
-  { miAdd :: BoxCoord liveliness -- ^ Position (dimensions after @dimIx@ are zero)
-          -> Natural -- ^ Zero-based dimension index @dimIx@
-          -> liveliness -- ^ Previous liveliness
-          -> (Text -> Text) -- ^ Nudge deterministic field ids
-          -> FieldView UniWorX -- ^ Submit button
+  { miAdd :: BoxCoord liveliness -- Position (dimensions after @dimIx@ are zero)
+          -> Natural -- Zero-based dimension index @dimIx@
+          -> liveliness -- Previous liveliness
+          -> (Text -> Text) -- Nudge deterministic field ids
+          -> FieldView UniWorX -- Submit button
           -> Maybe (Markup -> MForm handler (FormResult (Map (BoxCoord liveliness) cellData -> FormResult (Map (BoxCoord liveliness) cellData)), Widget)) -- ^ Construct a Cell-Addition Widget
   , miCell :: BoxCoord liveliness -- Position
            -> cellData -- @cellData@ from @miAdd@

src/Model/Types/Submission.hs

@@ -149,7 +149,7 @@ data AuthorshipStatementSubmissionState
   deriving (Eq, Read, Show, Enum, Bounded, Generic, Typeable)
   deriving anyclass (Universe, Finite)
 
-deriving stock instance Ord AuthorshipStatementSubmissionState -- ^ Larger roughly encodes better; summaries are taken with `max`
+deriving stock instance Ord AuthorshipStatementSubmissionState
 
 nullaryPathPiece ''AuthorshipStatementSubmissionState $ camelToPathPiece' 1
 pathPieceCsv ''AuthorshipStatementSubmissionState