Skip to content

S
sv2v
Commit 5ac7a79f by Zachary Snow
Options

add warning when no input files are specified

parent c6dbdd09
Showing with 2 additions and 0 deletions
src/sv2v.hs
...@@ -60,6 +60,8 @@ rewritePath path = do ...@@ -60,6 +60,8 @@ rewritePath path = do
(base, end) = splitAt (length path - length ext) path (base, end) = splitAt (length path - length ext) path
writeOutput :: Write -> [FilePath] -> [AST] -> IO () writeOutput :: Write -> [FilePath] -> [AST] -> IO ()
writeOutput _ [] [] =
hPutStrLn stderr "Warning: No input files specified (try `sv2v --help`)"
writeOutput Stdout _ asts = writeOutput Stdout _ asts =
hPrint stdout $ concat asts hPrint stdout $ concat asts
writeOutput Adjacent inPaths asts = do writeOutput Adjacent inPaths asts = do
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment