From 7afd569eaa363487f1775489ab1fe667aee84fe7 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Thu, 19 Sep 2019 18:26:37 +0200
Subject: [PATCH] fix: syntax

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

diff --git a/src/Model/Migration.hs b/src/Model/Migration.hs
index dd04ba1d7..296b933d0 100644
--- a/src/Model/Migration.hs
+++ b/src/Model/Migration.hs
@@ -527,7 +527,7 @@ customMigrations = Map.fromListWith (>>)
     , whenM (tableExists "exam") $ do
         oldVersion <- columnExists "exam" "grading_key"
         if
-          | oldVersion ->
+          | oldVersion -> do
             -- Major changes happend to the structure of exams without appropriate
             -- migration, try to remedy that here
             tableDropEmpty "exam_part_corrector"