isAction :: FilePath -> FilePath -> Word -> TreeGenerator Bool
isAction wdir path w = do
    cnt <- readFileThroughCache (wdir </> "rake_routes")
    let routes = parseRakeRouteLine cnt
    return $ (flip any) routes (\route ->
                                 ((((controllerName route) :: Text) `mappend` "_controller") == (toText' $ basename path))
                                 &&
                                 (((actionName route) :: Text) == w))
isAction :: FilePath -> FilePath -> Word -> TreeGenerator Bool
isAction wdir path w = do
    cnt <- readFileThroughCache (wdir </> "rake_routes")
    let routes = parseRakeRouteLine cnt
    return $ (flip any) routes (\route ->
                                 ((((controllerName route) :: Text) `mappend` "_controller") == (toText' $ basename path))
                                 &&
                                 (((actionName route) :: Text) == w))
isAction wdir path w = do
    cnt <- readFileThroughCache (wdir </> "rake_routes")
    let routes = parseRakeRouteLine cnt
    return $ (flip any) routes (\route ->
                                 ((((controllerName route) :: Text) `mappend` "_controller") == (toText' $ basename path))
                                 &&
                                 (((actionName route) :: Text) == w))