separate scopes by %20 instead of ,

app/Main.hs

@@ -3,4 +3,4 @@ module Main (main) where
 import Server
 
 main :: IO ()
-main = putStrLn "Try: http://localhost:8080/auth?scope=[ID,Profile]&client_id=42&response_type=code&redirect_uri=localhost" >> runMockServer 8080
+main = putStrLn "Try: http://localhost:8080/auth?scope=ID%20Profile&client_id=42&response_type=code&redirect_uri=localhost" >> runMockServer 8080

src/Server.hs

@@ -15,7 +15,7 @@ import Control.Monad.IO.Class
 
 import Data.Aeson
 import Data.List (find)
-import Data.Text hiding (elem, find, head, map)
+import Data.Text hiding (elem, find, head, map, words)
 import Data.Text.Encoding (decodeUtf8)
 
 import qualified Data.Map.Strict as Map
@@ -81,11 +81,11 @@ authServer = handleAuth
       unless (pack client `elem` trustedClients) . -- TODO fetch trusted clients from db
         throwError $ err404 { errBody = "Not a trusted client."}
       let
-        scopes' = readScopes @user @userData scopes
+        scopes' = map (readScope @user @userData) $ words scopes
         uData = mconcat $ map (userScope @user @userData u) scopes'
         responseType' = read @ResponseType responseType
 
-      liftIO (putStrLn $ "user: " ++ show u ++ " | scopes: " ++ showScopes @user @userData scopes')
+      liftIO (putStrLn $ "user: " ++ show u ++ " | scopes: " ++ show (map (showScope @user @userData) scopes'))
       return uData
 
 exampleAuthServer :: Server (Auth User (Map.Map Text Text))

src/User.hs

@@ -14,8 +14,8 @@ import GHC.Generics
 
 class (Show u, ToJSON a, Monoid a) => UserData u a where -- TODO Show maybe not necessary, but currently needed for TypeApplications
   data Scope u
-  readScopes :: String -> [Scope u]
-  showScopes :: [Scope u] -> String
+  readScope :: String -> Scope u
+  showScope :: Scope u -> String
   userScope  :: u -> Scope u -> a
 
 
@@ -29,7 +29,7 @@ data User = User
 
 instance UserData User (Map Text Text) where
   data Scope User = ID | Profile deriving (Show, Read, Eq)
-  readScopes = read
-  showScopes = show
+  readScope = read
+  showScope = show
   userScope User{..} ID = singleton "id" uID
   userScope User{..} Profile = fromList [("name", name), ("email", email)]