fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: fix creating new terms

Browse Source
This commit is contained in:
Gregor Kleen 2021-06-28 09:44:24 +02:00
parent 7ad5737ae2
commit 9676615c55
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Term.hs
View File

@ -213,7 +213,7 @@ termEditHandler mtid template = do
Just oTId | tid == oTId -> Just oTId | tid == oTId ->
lift $ replace tid term lift $ replace tid term
_other -> do _other -> do
whenM (lift $ existsKey tid) $ whenM (lift $ exists [TermName ==. tfName]) $
throwE MsgTermExists throwE MsgTermExists
lift $ insertKey tid term lift $ insertKey tid term