Алфавит считывается из файла при декодировании

lab3/app/Main.hs

@@ -58,6 +58,8 @@ main = do
             saveBmpImage encodedImagePath (ImageRGB8 resultImage)
             putStrLn $ "Изображение сохранено по пути: \"" ++ encodedImagePath ++ "\"" 
 
+    putStrLn $ "\nЧтение алфавита из файла \"" ++ alphabetPath ++ "\""
+    alphabetFromFile <- readFile alphabetPath
 
     putStrLn "\nДекодирование текста из изображения"
     case extractShift encodedImagePath of
@@ -73,7 +75,7 @@ main = do
                     putStrLn $ "10 битов шифра: \"" ++ show (take 10 $ VU.toList bits) ++ "\""
                     let encryptedTextFromImage = takeWhile (/= '\NUL') (bitsToText bits)
                     putStrLn $ "10 символов шифра: \"" ++ take 10 encryptedTextFromImage ++ "\""
-                    let decryptedText = decryptCaesar alphabet extractedCaesarShift encryptedTextFromImage
+                    let decryptedText = decryptCaesar alphabetFromFile extractedCaesarShift encryptedTextFromImage
                     putStrLn $ "10 символов текста: \"" ++ take 10 decryptedText ++ "\""
                     writeFile decodedTextPath decryptedText
                     putStrLn $ "Текст сохранён по пути: \"" ++ decodedTextPath ++ "\""