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

Fix pseudonym coding & new wordlist

Browse Source
This commit is contained in:
Gregor Kleen 2018-10-15 09:06:41 +02:00
parent 8e28c397fd
commit 1f32f638f0
4 changed files with 4091 additions and 8186 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12264
config/wordlist.txt
View File

File diff suppressed because it is too large Load Diff

2
src/Handler/Sheet.hs
View File

@ -370,7 +370,7 @@ postSPseudonymR tid ssh csh shn = do
selectRep $ do
provideRep $ return ps'
provideJson ps
provideRep (redirect $ CSheetR tid ssh csh shn SShowR :: Handler Html)
provideRep (redirect $ CSheetR tid ssh csh shn SShowR :#: ("pseudonym" :: Text) :: Handler Html)
getSFileR :: TermId -> SchoolId -> CourseShorthand -> SheetName -> SheetFileType -> FilePath -> Handler TypedContent

9
src/Model/Types.hs
View File

@ -591,13 +591,14 @@ pseudonymWords = prism' pToWords pFromWords
| Just i1 <- elemIndex w1 pseudonymWordlist
, Just i2 <- elemIndex w2 pseudonymWordlist
, i1 <= maxWord, i2 <= maxWord
= Just $ shift (fromIntegral i1) (-12) .|. fromIntegral i2
= Just $ shiftL (fromIntegral i1) 12 .|. fromIntegral i2
pFromWords _ = Nothing
pToWords :: Pseudonym -> [CI Text]
pToWords p = [ genericIndex pseudonymWordlist $ shift p 12 .&. maxWord
, genericIndex pseudonymWordlist $ p .&. maxWord
]
pToWords (Pseudonym p)
= [ genericIndex pseudonymWordlist $ shiftR p 12 .&. maxWord
, genericIndex pseudonymWordlist $ p .&. maxWord
]
maxWord :: Num a => a
maxWord = 0b111111111111

2
templates/sheetShow.hamlet
View File

@ -27,7 +27,7 @@ $maybe marking <- sheetMarkingText sheet
<dd .deflist__dd>_{sheetType sheet}
$if CorrectorSubmissions == sheetSubmissionMode sheet
<dt .deflist__dt>_{MsgSheetPseudonym}
<dd .deflist__dd>
<dd .deflist__dd #pseudonym>
$maybe pseudonym <- mPseudonym
<span .pseudonym>#{pseudonym}
$nothing