diff options
| author | Ben Sima <ben@bsima.me> | 2023-08-14 20:48:10 -0400 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2023-08-16 14:29:43 -0400 |
| commit | 2d8b280ed2c73d65fb905a580e9499bb7f69ff01 (patch) | |
| tree | f9511f59603cd5128eaa3e47f6e90dd382afc9e8 /System | |
| parent | 1fd4c0be9efe017ed9f6f1dd9b5d9ab70b1bcee2 (diff) | |
Run lint
Idk why these missed the linter. Probably packages updated in the
nixpkgs version bump.
Diffstat (limited to 'System')
| -rw-r--r-- | System/Random/Shuffle.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/System/Random/Shuffle.hs b/System/Random/Shuffle.hs index 38d0a27..1df376f 100644 --- a/System/Random/Shuffle.hs +++ b/System/Random/Shuffle.hs @@ -86,9 +86,9 @@ shuffle elements = shuffleTree (buildTree elements) extractTree n (Node n' l (Leaf e)) | n + 1 == n' = (e, l) extractTree n (Node c l@(Node cl _ _) r) | n < cl = - let (e, l') = extractTree n l in (e, Node (c - 1) l' r) + let (e, l') = extractTree n l in (e, Node (c - 1) l' r) | otherwise = - let (e, r') = extractTree (n - cl) r in (e, Node (c - 1) l r') + let (e, r') = extractTree (n - cl) r in (e, Node (c - 1) l r') extractTree _ _ = panic "[extractTree] impossible" -- | Given a sequence (e1,...en) to shuffle, its length, and a random |