fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor(utils): flip arguments bsnoc

Browse Source
This commit is contained in:
Steffen Jost 2024-07-29 11:29:58 +02:00
parent 803e8bfedb
commit 58152beb03
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Utils.hs
View File

@ -714,9 +714,9 @@ bcons :: Bool -> a -> [a] -> [a]
bcons False _ = id bcons False _ = id
bcons True x = (x:) bcons True x = (x:)
bsnoc :: Bool -> a -> [a] -> [a] bsnoc :: Bool -> [a] -> a -> [a]
bsnoc False _ xs = xs bsnoc False xs _ = xs
bsnoc True x xs = xs ++ [x] bsnoc True xs x = xs ++ [x]
-- | Merge/Add any attribute-value pair to an existing list of such pairs. -- | Merge/Add any attribute-value pair to an existing list of such pairs.
-- If the attribute exists, the new valu will be prepended, separated by a single empty space -- If the attribute exists, the new valu will be prepended, separated by a single empty space