typeable/octopod
1
0
Fork 0
mirror of https://github.com/typeable/octopod.git synced 2024-11-23 01:03:45 +03:00
Code Issues Projects Releases Wiki Activity

Don't show empty errors in Web UI (#158)

Browse Source
This commit is contained in:
iko 2021-12-09 16:20:14 +03:00 committed by GitHub
parent 041c1ea4e3
commit a6019f4370
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
octopod-frontend/src/Frontend/Utils.hs
View File

@ -56,7 +56,7 @@ import Data.Maybe (fromMaybe, isJust, isNothing)
import Data.Monoid
import Data.Set (Set)
import qualified Data.Set as S
import Data.Text as T (Text, null, pack)
import Data.Text as T (Text, null, pack, strip)
import Data.Text.Search
import Data.These
import Data.Time
@ -477,9 +477,14 @@ wrapRequestErrors f = mdo
(x, ev :: Event t (PatchMap Unique Text)) <- runEventWriterT $
f $ \reqEv -> do
k <- liftIO newUnique
tellEvent $ fmapCheap (PatchMap . M.singleton k . reqErrorBody) reqEv
tellEvent $ fmap (PatchMap . M.singleton k . fmap catchEmptyErrors . reqErrorBody) reqEv
pure $ fmapMaybeCheap reqSuccess reqEv
pure x
where
catchEmptyErrors t
| (T.null . T.strip) t =
"Something went wrong, but no explanation was provided."
catchEmptyErrors t = t
-- | The widget used to display errors.
errorHeader ::