Fix typo in DB schema

2023-05-02 10:42:35 -05:00 · 2023-05-02 10:42:35 -05:00 · 61b0dea641
parent 519dbe1ac2
commit 61b0dea641
1 changed files with 1 additions and 1 deletions
--- a/src/Owner.hs
+++ b/src/Owner.hs
@ -320,7 +320,7 @@ instance Val ZGoProSession where
  cast' (Doc d) = do
    i <- B.lookup "_id" d
    a <- B.lookup "address" d
-    e <- B.lookup "expiraton" d
+    e <- B.lookup "expiration" d
    p <- B.lookup "closed" d
    Just (ZGoProSession i a e p)
  cast' _ = Nothing