From 6a4f9a1e21f6e31d840beaba9afa8ad2bd6cdbb8 Mon Sep 17 00:00:00 2001 From: s473615 Date: Mon, 27 May 2024 17:46:39 +0200 Subject: [PATCH] remove comment --- HasswordManager.cabal | 13 ++++++------- src/Crypto.hs | 1 - 2 files changed, 6 insertions(+), 8 deletions(-) diff --git a/HasswordManager.cabal b/HasswordManager.cabal index f3c39c6..d195bab 100644 --- a/HasswordManager.cabal +++ b/HasswordManager.cabal @@ -41,12 +41,12 @@ library , ansi-terminal , base >=4.7 && <5 , bytestring - , cipher-aes + , containers , hashable + , hspec , sqlite-simple , text , utf8-string - , containers default-language: Haskell2010 executable HasswordManager-exe @@ -64,12 +64,12 @@ executable HasswordManager-exe , ansi-terminal , base >=4.7 && <5 , bytestring - , cipher-aes + , containers , hashable + , hspec , sqlite-simple , text , utf8-string - , containers default-language: Haskell2010 test-suite HasswordManager-test @@ -88,11 +88,10 @@ test-suite HasswordManager-test , ansi-terminal , base >=4.7 && <5 , bytestring - , cipher-aes + , containers , hashable + , hspec , sqlite-simple , text , utf8-string - , containers - , hspec default-language: Haskell2010 diff --git a/src/Crypto.hs b/src/Crypto.hs index 4a1caf4..5744783 100644 --- a/src/Crypto.hs +++ b/src/Crypto.hs @@ -21,6 +21,5 @@ encrypt' = caesar_cipher (+) decrypt' :: String -> String -> String decrypt' = caesar_cipher (-) --- modulo trzeba zrobić caesar_cipher :: (Int -> Int -> Int) -> String -> String -> String caesar_cipher operation key text = zipWith (\k t -> chr $ mod (operation (ord t) (ord k)) (ord maxBound)) (cycle key) text