diff options
| -rw-r--r-- | fig-web/src/Fig/Web/Secure.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fig-web/src/Fig/Web/Secure.hs b/fig-web/src/Fig/Web/Secure.hs index d903a61..cf10bc1 100644 --- a/fig-web/src/Fig/Web/Secure.hs +++ b/fig-web/src/Fig/Web/Secure.hs @@ -75,7 +75,7 @@ app cfg cmds = do name <- Sc.formParam "name" input <- Sc.formParamMaybe "input" liftIO . cmds.publish "frontend redeem incoming" - . encodeUtf8 . Text.unwords $ + . encodeUtf8 . Text.intercalate "\t" $ [ Text.Lazy.toStrict user , name ] <> maybeToList input |