2017-03-25 46 views

回答

0

在任何情況下,在未來絆倒在這一點,我已經成功與解決它:

processParams :: String -> Request -> Maybe [Param] 
processParams s x = do 
    case (params', isPrefix) of 
    (_:paramsxs, True) -> return $ fmap (flip (,) $ "") paramsxs 
    _ -> Nothing 
    where 
     isPrefix = s `isPrefixOf` (convertString path) :: Bool 
     path = rawPathInfo x 
     params' = fmap convertString $ decodePathSegments path 

並採用function功能:

get (function $ processParams "/comparePackage") $ comparePackageHandler