max authtoken length is 128

It was stopping at 128, so the 512 was only incorrect, it didn't change
behavior.

diff --git a/Assistant/Threads/WebApp.hs b/Assistant/Threads/WebApp.hs
index 576feb5f018b7aaf19d826638381e297108052d6..a5cd38504671fa4844f116a189f2c69519eceb76 100644 (file)
--- a/Assistant/Threads/WebApp.hs
+++ b/Assistant/Threads/WebApp.hs
@@ -76,7 +76,7 @@ webAppThread assistantdata urlrenderer noannex cannotrun postfirstrun listenhost
 #endif
        webapp <- WebApp
                <$> pure assistantdata
-               <*> genAuthToken 512
+               <*> genAuthToken 128
                <*> getreldir
                <*> pure staticRoutes
                <*> pure postfirstrun