blockName :: String -> String
blockName path = replace [pathSeparator] "_" path
blockName :: String -> String
blockName path = replace [pathSeparator] "_" path
blockName path = replace [pathSeparator] "_" path