From 61b0dea641ec63cbfba5017ef931574c5839f49d Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Tue, 2 May 2023 10:42:35 -0500
Subject: [PATCH] Fix typo in DB schema

---
 src/Owner.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Owner.hs b/src/Owner.hs
index bda88ec..f426636 100644
--- 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