@@ -7,6 +7,7 @@ import Hack.Contrib.Utils hiding (get, put) import MPS import Prelude hiding ((.), (>), (/), (-)) import Data.ByteString.UTF8 (fromString) +import qualified Prelude as P type RoutePathT a = (RequestMethod, String, a) @@ -39,7 +40,7 @@ parse_params t s = let template_tokens = t.split "/" url_tokens = s.split "/" in - if url_tokens.length < template_tokens.length + if url_tokens.length P.< template_tokens.length then Nothing else let rs = zipWith capture template_tokens url_tokens src/Network/Loli/Middleware/LoliRouter.hs ac6979665fa197a394f9e376af2ce65871092ab5 jinjing nfjinjing@gmail.com http://github.com/nfjinjing/loli/commit/cc2b757db6dec9bc92f5b0a230f0382145513578 cc2b757db6dec9bc92f5b0a230f0382145513578 2009-09-21T15:29:14-07:00 2009-09-21T15:29:14-07:00 fix with newest mps d76d653c3d49d9c481103b12ea05acad0e859779 jinjing nfjinjing@gmail.com