diff --git a/lab3/app/Main.hs b/lab3/app/Main.hs index 4f1807b..1b04bd9 100644 --- a/lab3/app/Main.hs +++ b/lab3/app/Main.hs @@ -22,7 +22,7 @@ main = do let sourceTextPath = "resources/biography.txt" let sourceImagePath = "resources/david.bmp" - let encodedImagePath = "tmp/david_" ++ show caesarShift ++ ".bmp" + let encodedImagePath = "tmp/david_" ++ show bitsPerByte ++ "_" ++ show caesarShift ++ ".bmp" let decodedTextPath = "tmp/biography.txt" putStrLn $ "\nЧтение текста из файла \"" ++ sourceTextPath ++ "\""