Skip to content

Commit

Permalink
Cleanup
Browse files Browse the repository at this point in the history
  • Loading branch information
kaBeech committed Aug 12, 2024
1 parent 8558131 commit 6c9ae81
Showing 1 changed file with 0 additions and 1 deletion.
1 change: 0 additions & 1 deletion src/Data/Tensort/Tensort.hs
Original file line number Diff line number Diff line change
Expand Up @@ -25,7 +25,6 @@ import Data.Tensort.Utils.Types (Sortable (..), TensortProps (..), fromSBitBits,
-- [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100]
tensort :: TensortProps -> Sortable -> Sortable
tensort _ (SortBit []) = SortBit []
-- WARN: DO MORE PATTERN MATCHING!!! (ToDo)
tensort tsProps (SortBit xs) = do
let bits = randomizeList 143 (SortBit xs)
let bytes = rawToBytes tsProps bits
Expand Down

0 comments on commit 6c9ae81

Please sign in to comment.