improve layout

This commit is contained in:
Joey Hess 2019-10-29 17:08:36 -04:00
parent e8437ae7a3
commit aa27969e55
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -99,7 +99,7 @@ toSSha (Ref s) = SSha s
fromSSha :: SSha -> Ref
fromSSha (SSha s) = Ref s
instance PersistField SSha where
instance PersistField SSha where
toPersistValue (SSha b) = toPersistValue b
fromPersistValue v = SSha <$> fromPersistValue v