fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor: fix haddock

Browse Source
This commit is contained in:
Gregor Kleen 2021-08-27 20:42:34 +02:00
parent 944f74744e
commit bd660ab7ad
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Handler/Utils/Form/MassInput.hs
View File

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

2
src/Model/Types/Submission.hs
View File

@ -149,7 +149,7 @@ data AuthorshipStatementSubmissionState
deriving (Eq, Read, Show, Enum, Bounded, Generic, Typeable) deriving (Eq, Read, Show, Enum, Bounded, Generic, Typeable)
deriving anyclass (Universe, Finite) 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 nullaryPathPiece ''AuthorshipStatementSubmissionState $ camelToPathPiece' 1
pathPieceCsv ''AuthorshipStatementSubmissionState pathPieceCsv ''AuthorshipStatementSubmissionState