From 499d14ed40760c5a02ec2737813865689041911c Mon Sep 17 00:00:00 2001
From: Filip Gralinski <filipg@amu.edu.pl>
Date: Mon, 19 Oct 2020 08:14:09 +0200
Subject: [PATCH] Update geval

---
 Data/Diff.hs | 4 ++++
 gonito.cabal | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/Data/Diff.hs b/Data/Diff.hs
index 86f7d94..eed5af2 100644
--- a/Data/Diff.hs
+++ b/Data/Diff.hs
@@ -60,6 +60,10 @@ current :: Diff a -> a
 current (OneThing u) = u
 current (TwoThings _ new) = new
 
+older :: Diff a -> a
+older (OneThing u) = u
+older (TwoThings old _) = old
+
 class Diffable t where
   type DiffSettings t
   type DiffResult t
diff --git a/gonito.cabal b/gonito.cabal
index b4a0b4b..7010502 100644
--- a/gonito.cabal
+++ b/gonito.cabal
@@ -130,7 +130,7 @@ library
                  , filemanip
                  , cryptohash
                  , markdown
-                 , geval >= 1.37.2 && < 1.38
+                 , geval >= 1.37.2 && < 1.39
                  , filepath
                  , yesod-table
                  , regex-tdfa