diff options
| author | Joris | 2019-11-17 18:08:28 +0100 |
|---|---|---|
| committer | Joris | 2019-11-17 18:08:28 +0100 |
| commit | c0ea63f8c1a8c7123b78798cec99726b113fb1f3 (patch) | |
| tree | 0b92f7e0c125c067a5f1ccafe6a1f04f1edfae86 /server/src/Util | |
| parent | 4dc84dbda7ba3ea60d13e6f81eeec556974b7c72 (diff) | |
| download | budget-c0ea63f8c1a8c7123b78798cec99726b113fb1f3.tar.gz budget-c0ea63f8c1a8c7123b78798cec99726b113fb1f3.tar.bz2 budget-c0ea63f8c1a8c7123b78798cec99726b113fb1f3.zip | |
Optimize and refactor payments
Diffstat (limited to 'server/src/Util')
| -rw-r--r-- | server/src/Util/List.hs | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/server/src/Util/List.hs b/server/src/Util/List.hs deleted file mode 100644 index 4e22ba8..0000000 --- a/server/src/Util/List.hs +++ /dev/null @@ -1,13 +0,0 @@ -module Util.List - ( groupBy - ) where - -import Control.Arrow ((&&&)) -import Data.Function (on) -import qualified Data.List as L - -groupBy :: forall a b. (Ord b) => (a -> b) -> [a] -> [(b, [a])] -groupBy f = - map (f . head &&& id) - . L.groupBy ((==) `on` f) - . L.sortBy (compare `on` f) |