Erste params als eine Liste von Schlüssel/Wert-Tupel

Question

Ich bin eine RESTful url Implementierung, also konnte ich meine Abfrage-Filter mit zum Beispiel /api/v1.0/events?filter[title]="foo"&filter[content]="bar"

Gibt es eine vorhandene Art und Weise alle filter als [("title", "foo"), ("content", "bar")] zu bekommen?

Answer 1

Zuerst werde ich einen Parser mit attoparsec erstellen eine Zeichenfolge wie "filter[title]" zu nehmen, und das Rück "title" davon:

import Data.Attoparsec.Text 

filterParser :: Parser Text 
filterParser = do 
    _ <- string "filter[" 
    filterKey <- takeTill (== ']') 
    _ <- string "]" 
    return filterKey 

die Query-String-Parameter holen, um eine Liste von (Text, Text) und analysieren sie in (filterKey, filterValue) Paare :

getHomeR :: Handler Html 
getHomeR = do 

    params <- reqGetParams <$> getRequest -- (1) 

    let filters = catMaybes $ map (\(queryParam, filterValue) -> case maybeResult $ parse filterParser queryParam of  -- (2) (4) 
        Nothing -> Nothing   -- (3) 
        Just filterKey -> Just (filterKey, filterValue)  -- (3) 
       ) params 
    liftIO $ print $ "Params are " ++ show filters 

1. der Query-String-Parameter reqGetParams mit Get

2. parse von attoparsec wendet eine Parser (filterParser) auf den Schlüsselteil der Abfragezeichenfolge an. Wir machen das sofort zu einem Maybe mit maybeResult von attoparsec. Wenn das Parsen erfolgreich ist, erhalten wir eine Just "title", oder wenn es fehlschlägt (der Abfrageparameter sah nicht wie "filter=[foo]" aus) erhalten wir Nothing.

3. Wenn der Parameter ein Filter war, geben Sie Just (filterKey, filterValue) zurück, andernfalls Nothing.

4. Verwenden catMaybes all Nothing s aus der Liste zu entfernen, uns nur die [(filterKey, filterValue)] Paare geben.

Caveats:

1. Dieser Code behandelt nicht entkommen. Ich bezweifle jedoch, dass Sie etwas wie unterstützen müssen.
2. Dieser Code entfernt nicht die Anführungszeichen um die Abfrageparamwerte. Ich denke, du solltest diese nicht einfach schicken, wenn du sie nicht verwendest.
3. Ich bin nicht sehr gut in Parsing-Code zu schreiben. Sie könnten stattdessen eine Regexp verwenden, wenn Sie möchten.