From 0a32a609b7658ff4b6b33bd911f0d161259e3964 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Wed, 29 Aug 2018 10:08:16 +0200
Subject: [PATCH] Fixes #164

---
 src/Handler/Sheet.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs
index c46a95095..f692299bf 100644
--- a/src/Handler/Sheet.hs
+++ b/src/Handler/Sheet.hs
@@ -425,7 +425,9 @@ handleSheetEdit tid csh msId template dbAction = do
             insert_ $ SheetEdit aid actTime sid
             addMessageI "info" $ MsgSheetEditOk tid csh sfName
             return True
-      when saveOkay $ redirect $ CSheetR tid csh sfName SShowR -- redirect must happen outside of runDB
+      when saveOkay $ redirect $ case msId of
+        Just _  -> CSheetR tid csh sfName SShowR -- redirect must happen outside of runDB
+        Nothing -> CSheetR tid csh sfName SCorrR
     (FormFailure msgs) -> forM_ msgs $ (addMessage "warning") . toHtml
     _ -> return ()
   let pageTitle = maybe (MsgSheetTitleNew tid csh)