From b282e055140ff65879296d4654ad269cc7ff8185 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Fri, 27 Jan 2017 17:39:05 +1100
Subject: Code a lot cleaner, algorithm theoretically improved, yet still slow
 as fuck probably due to criteria parsing

---
 src/Miscellaneous.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'src/Miscellaneous.hs')

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
-- 
cgit