From 622224db79cc7eb3739e88b6a1366975eade8d5c Mon Sep 17 00:00:00 2001 From: Arity-T Date: Tue, 19 Nov 2024 15:18:21 +0300 Subject: [PATCH] =?UTF-8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=B8=D0=BB=20?= =?UTF-8?q?=D0=BA=D0=BE=D0=BB-=D0=B2=D0=BE=20=D0=B1=D0=B8=D1=82=20=D0=B2?= =?UTF-8?q?=20=D0=BD=D0=B0=D0=B7=D0=B2=D0=B0=D0=BD=D0=B8=D0=B5?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lab3/app/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 ++ "\""