fix: typo

2019-10-05 09:57:51 +02:00 · 2019-10-05 09:57:51 +02:00 · a6e40f1be8
commit a6e40f1be8
parent 1277e50587
1 changed files with 2 additions and 2 deletions
--- 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