-- | Read from a file or return an empty string if no file is specified.
input' :: Maybe FilePath -> IO String
input' (Just f) = readFile f
input' :: Maybe FilePath -> IO String
input' (Just f) = readFile f
input' (Just f) = readFile f