From b9cf0e7fe342cf36a3a0ecc5d07bc3d5c62548d5 Mon Sep 17 00:00:00 2001
From: Arity-T <tish.mainmail@gmail.com>
Date: Tue, 19 Nov 2024 14:58:01 +0300
Subject: [PATCH] =?UTF-8?q?=D0=91=D0=B0=D0=B3=20=D1=81=20=D0=B8=D0=B7?=
 =?UTF-8?q?=D0=B2=D0=BB=D0=B5=D1=87=D0=B5=D0=BD=D0=B8=D0=B5=D0=BC=20=D1=81?=
 =?UTF-8?q?=D0=BC=D0=B5=D1=89=D0=B5=D0=BD=D0=B8=D1=8F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lab3/src/Lib.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lab3/src/Lib.hs b/lab3/src/Lib.hs
index 7df1bd1..0df90d4 100644
--- a/lab3/src/Lib.hs
+++ b/lab3/src/Lib.hs
@@ -113,5 +113,5 @@ extractBitsFromImage bitsPerByte img =
 
 extractShift :: String -> Maybe Int
 extractShift path = 
-    let prefix = takeWhile (`elem` ['0'..'9']) (reverse $ takeWhile (/= '_') (reverse path))
-    in readMaybe (reverse prefix)
+    let shift = takeWhile (`elem` ['0'..'9']) (reverse $ takeWhile (/= '_') (reverse path))
+    in readMaybe shift