From 4234d94907af0bb2d8977016b55ef37599bc617e Mon Sep 17 00:00:00 2001
From: Aleksey Veresov <aleksey@veresov.pro>
Date: Fri, 5 Mar 2021 12:01:22 +0300
Subject: New way of deciphering.

---
 src/Utils.hs | 25 -------------------------
 1 file changed, 25 deletions(-)

(limited to 'src/Utils.hs')

diff --git a/src/Utils.hs b/src/Utils.hs
index 475821a..03d6db3 100644
--- a/src/Utils.hs
+++ b/src/Utils.hs
@@ -1,7 +1,6 @@
 -- This module describes utility functions.
 module Utils where
 
-import Prelude hiding (Word)
 import Data.Bits
 
 
@@ -15,32 +14,8 @@ toBit False = 0
 toBits :: Bits a => a -> [Int] -> [Int]
 toBits x r = map (toBit . testBit x) r
 
-toBitsWhole :: FiniteBits a => a -> [Int]
-toBitsWhole x = toBits x [0..(finiteBitSize x - 1)]
-
 fromBits :: [Int] -> Int
 fromBits = foldl (\a b -> 2 * a + b) 0 . reverse
 
 extractBits :: Bits a => a -> [Int] -> Int
 extractBits x r = fromBits $ toBits x r
-
-
--------------------------------------------------------------------------------
--- Transformers for commands arguments
-
-args2 :: (Int -> Int -> t) ->
-         [Int] -> [Int] -> t
-args2 f a b = f (fromBits a) (fromBits b)
-
-args3 :: (Int -> Int -> Int -> t) ->
-         [Int] -> [Int] -> [Int] -> t
-args3 f a b c = f (fromBits a) (fromBits b) (fromBits c)
-
-args4 :: (Int -> Int -> Int -> Int -> t) ->
-         [Int] -> [Int] -> [Int] -> [Int] -> t
-args4 f a b c d = f (fromBits a) (fromBits b) (fromBits c) (fromBits d)
-
-args5 :: (Int -> Int -> Int -> Int -> Int -> t) ->
-         [Int] -> [Int] -> [Int] -> [Int] -> [Int] -> t
-args5 f a b c d e = f (fromBits a) (fromBits b) (fromBits c)
-                      (fromBits d) (fromBits e)
-- 
cgit v1.2.3