Vergara_Tech/zgo-backend
Vergara_Tech/zgo-backend
2
1
Fork 0
Code Issues Pull requests Projects Releases 4 Packages Wiki Activity

Fix typo in DB schema

Browse source
This commit is contained in:
Rene Vergara 2023-05-02 10:42:35 -05:00
parent 519dbe1ac2
commit 61b0dea641
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Owner.hs
View file

@ -320,7 +320,7 @@ instance Val ZGoProSession where
cast' (Doc d) = do cast' (Doc d) = do
i <- B.lookup "_id" d i <- B.lookup "_id" d
a <- B.lookup "address" d a <- B.lookup "address" d
e <- B.lookup "expiraton" d e <- B.lookup "expiration" d
p <- B.lookup "closed" d p <- B.lookup "closed" d
Just (ZGoProSession i a e p) Just (ZGoProSession i a e p)
cast' _ = Nothing cast' _ = Nothing