diff --git a/config/models b/config/models index 60e52dc..58a434d 100644 --- a/config/models +++ b/config/models @@ -10,7 +10,7 @@ User PgpKey userId UserId fingerprint Text maxlen=40 - hash Text maxlen=64 + hash Text maxlen=22 UniqueFingerprint fingerprint Site diff --git a/src/Widget/Hcard.hs b/src/Widget/Hcard.hs index 227ca45..d8881f1 100644 --- a/src/Widget/Hcard.hs +++ b/src/Widget/Hcard.hs @@ -27,7 +27,7 @@ prettyPgp = T.unwords . T.chunksOf 4 . pgpKeyFingerprint routeFromPgp :: PgpKey -> Route App routeFromPgp PgpKey { pgpKeyFingerprint = f, pgpKeyHash = h } = - StaticR $ StaticRoute ["pgp", f, h, T.takeEnd 8 f ++ ".asc"] [] + StaticR $ StaticRoute ["pgp", h, T.takeEnd 8 f ++ ".asc"] [] hcard :: Entity User -> Widget hcard (Entity userId user) = do diff --git a/static/pgp/83F3DCEC98D522B6A38AF5D927D076D2ACA7BABE/730bdc101033253892477f590e847fc0e494327d452a433f085ad1cd2db6cea4/ACA7BABE.asc b/static/pgp/RXDVvgKpVG2xsEnpLNjGwg/ACA7BABE.asc similarity index 100% rename from static/pgp/83F3DCEC98D522B6A38AF5D927D076D2ACA7BABE/730bdc101033253892477f590e847fc0e494327d452a433f085ad1cd2db6cea4/ACA7BABE.asc rename to static/pgp/RXDVvgKpVG2xsEnpLNjGwg/ACA7BABE.asc