From d0b155d315160da9eb0bdc30dd93bea41ec0ea40 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E6=96=B9=E6=B3=93=E7=9D=BF?= <chfanghr@gmail.com>
Date: Mon, 7 Nov 2022 19:27:09 +0800
Subject: [PATCH] fix a typo

Co-authored-by: emiflake <emily@liqwid.finance>
---
 agora/Agora/Stake/Scripts.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/agora/Agora/Stake/Scripts.hs b/agora/Agora/Stake/Scripts.hs
index 1623c33..013ef0e 100644
--- a/agora/Agora/Stake/Scripts.hs
+++ b/agora/Agora/Stake/Scripts.hs
@@ -358,11 +358,11 @@ mkStakeValidator impl sstSymbol pstClass gtClass =
                         allHaveSameOrOwnedByDelegatee' =
                           let delegated =
                                 dF.delegatedTo #== firstStakeInputDatumF.delegatedTo
-                              ownedByDelagtee =
+                              ownedByDelegatee =
                                 pdata (pdjust # dF.owner)
                                   #== firstStakeInputDatumF.delegatedTo
                            in allHaveSameDelegatee
-                                #&& (delegated #|| ownedByDelagtee)
+                                #&& (delegated #|| ownedByDelegatee)
                      in pcon $ PPair allHaveSameOwner' allHaveSameOrOwnedByDelegatee'
             )
           # pcon (PPair (pconstant True) (pconstant True))