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