[WIP] how to clean data text coming from a Book from Gutemberg
[gargantext.git] / bin / gargantext-client / Auth.hs
index ce4c439afefa81c2acfdb266df3dc5d1001d70a9..6bdd336bffaab218cc83701051bdd5f9412fee1a 100644 (file)
@@ -1,7 +1,6 @@
 module Auth where
 
 import Prelude
-import Data.Maybe
 import Core
 import Options
 
@@ -35,7 +34,7 @@ withAuthToken opts act
           maybe "" (show . Auth._authInv_message)
                    (Auth._authRes_inval authRes)
         -- authentication went through, we can run the action
-        Just (Auth.AuthValid tok tree_id) -> do
+        Just (Auth.AuthValid tok tree_id _uid) -> do
           let tok' = SA.Token (encodeUtf8 tok)
           whenVerbose opts $ do
             liftIO . putStrLn $ "[Debug] Authenticated: token=" ++ show tok ++