2017-03-25 7 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