propellor spin
This commit is contained in:
parent
a6a82a23a9
commit
8b90fc9a52
|
@ -62,7 +62,7 @@ dedupCf ls =
|
||||||
let (k, v) = separate (== '=') l
|
let (k, v) = separate (== '=') l
|
||||||
in Right ((filter (not . isSpace) k), v)
|
in Right ((filter (not . isSpace) k), v)
|
||||||
| otherwise = Left l
|
| otherwise = Left l
|
||||||
fmt k v = k ++ "=" ++ v
|
fmt k v = k ++ " =" ++ v
|
||||||
|
|
||||||
keycounts = M.fromListWith (+) . map (\(k, _v) -> (k, (1 :: Integer)))
|
keycounts = M.fromListWith (+) . map (\(k, _v) -> (k, (1 :: Integer)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue