diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2017-01-27 17:39:05 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2017-01-27 17:39:05 +1100 |
| commit | b282e055140ff65879296d4654ad269cc7ff8185 (patch) | |
| tree | efb85ed0d03f3b5323cb9c01f1fab9bfb09bab72 /src/Miscellaneous.hs | |
| parent | 57d88b07166911a13b37aea54c4247097dc2d0fa (diff) | |
Code a lot cleaner, algorithm theoretically improved, yet still slow as fuck probably due to criteria parsing
Diffstat (limited to 'src/Miscellaneous.hs')
| -rw-r--r-- | src/Miscellaneous.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/Miscellaneous.hs b/src/Miscellaneous.hs index 5f018e6..ba9ca98 100644 --- a/src/Miscellaneous.hs +++ b/src/Miscellaneous.hs @@ -1,6 +1,7 @@ module Miscellaneous( if', (?), + (.:), selectFrom, readMaybe, partBeforeAfter @@ -29,6 +30,14 @@ infixr 1 ? +-- with this, I have truly gone dotty +infixr 9 .: +(.:) :: (a -> b) -> (c -> d -> a) -> c -> d -> b +(.:) = (.).(.) + + + + -- kinda functions like poor man's sql -- first argument is the indices of the items you want in the results -- second argument is index-item pairs to dictate what records are acceptable to select from |