module Mameya.New ( mameyaNew ) where mameyaNew :: String -> IO () mameyaNew dirName = do putStrLn ("mameyaNew" ++ dirName)