aboutsummaryrefslogtreecommitdiff
path: root/hypsrc-test/src/Operators.hs
diff options
context:
space:
mode:
authorŁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-07-02 13:41:38 +0200
committerŁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-07-02 13:41:38 +0200
commitaa6c6deba47af1c21765ed09dc0317825aa1d78d (patch)
treed9e8feadfe3231b0bde51693918a493dca77a252 /hypsrc-test/src/Operators.hs
parent0ea2c4a892346d4fdd38c50cf234dbc5e23ac299 (diff)
Fix issue with operators being recognized as preprocessor directives.
Diffstat (limited to 'hypsrc-test/src/Operators.hs')
-rw-r--r--hypsrc-test/src/Operators.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/hypsrc-test/src/Operators.hs b/hypsrc-test/src/Operators.hs
index bc76c2d3..8e86ab0b 100644
--- a/hypsrc-test/src/Operators.hs
+++ b/hypsrc-test/src/Operators.hs
@@ -16,3 +16,7 @@ a */\* b = concatMap (*** b) a
(**/\**) :: [[a]] -> [[a]] -> [[a]]
a **/\** b = zipWith (*/\*) [a +++ b] (a $$$ b)
+
+
+(#.#) :: a -> b -> (c -> (a, b))
+a #.# b = const $ (a, b)