From 908e6def80d8ac2b65e6d5722607db7571c007ea Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 9 Apr 2020 15:37:18 +0200 Subject: [PATCH] fix: hlint --- src/Handler/Admin/Tokens.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Admin/Tokens.hs b/src/Handler/Admin/Tokens.hs index 9468bfca0..0e3d595e4 100644 --- a/src/Handler/Admin/Tokens.hs +++ b/src/Handler/Admin/Tokens.hs @@ -52,7 +52,7 @@ bearerTokenForm = do -> Form (Route UniWorX, Value) miForm nudge mode csrf = do (routeRes, routeView) <- mpreq routeField ("" & addName (nudge "route")) (mode ^? _Right . _1) - (restrRes, restrView) <- mpreq (checkMap (left Text.pack . Aeson.eitherDecode . encodeUtf8 . fromStrict . unTextarea) (Textarea . toStrict . decodeUtf8 . Aeson.encodePretty) $ textareaField) ("" & addName (nudge "restr")) (mode ^? _Right . _2) + (restrRes, restrView) <- mpreq (checkMap (left Text.pack . Aeson.eitherDecode . encodeUtf8 . fromStrict . unTextarea) (Textarea . toStrict . decodeUtf8 . Aeson.encodePretty) textareaField) ("" & addName (nudge "restr")) (mode ^? _Right . _2) return ((,) <$> routeRes <*> restrRes, case mode of Left btn -> $(widgetFile "widgets/massinput/token-restrictions/add")