00dani/lebd
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Ditch the hash field on PGP keys - the ETag will handle cache-busting, so a nice short URL for the key is fine now

Browse source
This commit is contained in:
Danielle McLean 2017-10-05 21:33:44 +11:00
parent ddcca3104e
commit 2eec12a2e3
Signed by: 00dani
GPG key ID: 5A5D2D1AFF12EEC5
3 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
config/models
View file

@ -10,7 +10,6 @@ User
PgpKey PgpKey
userId UserId userId UserId
fingerprint Text maxlen=40 fingerprint Text maxlen=40
hash Text maxlen=22
UniqueFingerprint fingerprint UniqueFingerprint fingerprint
Site Site

3
src/Widget/Hcard.hs
View file

@ -26,8 +26,7 @@ prettyPgp :: PgpKey -> Text
prettyPgp = T.unwords . T.chunksOf 4 . pgpKeyFingerprint prettyPgp = T.unwords . T.chunksOf 4 . pgpKeyFingerprint
routeFromPgp :: PgpKey -> Route App routeFromPgp :: PgpKey -> Route App
routeFromPgp PgpKey { pgpKeyFingerprint = f, pgpKeyHash = h } = routeFromPgp PgpKey { pgpKeyFingerprint = f } = staticR ["pgp", T.takeEnd 8 f ++ ".asc"]
StaticR $ StaticRoute ["pgp", h, T.takeEnd 8 f ++ ".asc"] []
hcard :: Entity User -> Widget hcard :: Entity User -> Widget
hcard (Entity userId user) = do hcard (Entity userId user) = do

0
static/pgp/RXDVvgKpVG2xsEnpLNjGwg/ACA7BABE.asc → static/pgp/ACA7BABE.asc
View file