From a6e40f1be8dff7fc9e2711988aba0e431b3eb6dd Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Sat, 5 Oct 2019 09:57:51 +0200
Subject: [PATCH] fix: typo

---
 src/Foundation.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Foundation.hs b/src/Foundation.hs
index 04e18506c..a878daacb 100644
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@@ -1009,8 +1009,8 @@ tagAccessPredicate AuthAllocationTime = APDB $ \mAuthId route _ -> case route of
     mba <- mbAllocation tid ssh csh
     case mba of
       Just (_, Allocation{..})
-        |    NTop allocationStaffRegisterTo <= NTop (Just now)
-          || NTop allocationStaffRegisterFrom >= NTop (Just now)
+        |    NTop allocationRegisterByStaffTo <= NTop (Just now)
+          || NTop allocationRegisterByStaffFrom >= NTop (Just now)
           -> unauthorizedI MsgUnauthorizedAllocatedCourseRegister
       _other -> return Authorized