collectBlocks :: ModuleInfo -> String -> IO [(String, String, String)]
collectBlocks info scope = do
    blocks <- findPhpFiles (blockBasePath info)
    templates <- findPhtmlFiles (templateBasePath info $ scopeName scope)
    return $ map blockTuple
        (intersectingPaths (prefixModuleName info blocks) templates)
collectBlocks :: ModuleInfo -> String -> IO [(String, String, String)]
collectBlocks info scope = do
    blocks <- findPhpFiles (blockBasePath info)
    templates <- findPhtmlFiles (templateBasePath info $ scopeName scope)
    return $ map blockTuple
        (intersectingPaths (prefixModuleName info blocks) templates)
collectBlocks info scope = do
    blocks <- findPhpFiles (blockBasePath info)
    templates <- findPhtmlFiles (templateBasePath info $ scopeName scope)
    return $ map blockTuple
        (intersectingPaths (prefixModuleName info blocks) templates)