aboutsummaryrefslogtreecommitdiff
path: root/hypsrc-test/src
diff options
context:
space:
mode:
authorPhil de Joux <philderbeast@gmail.com>2022-07-24 07:45:59 -0400
committerGitHub <noreply@github.com>2022-07-24 13:45:59 +0200
commit2f1711b301fea88eb1d0b40d1c04b2f0539fd882 (patch)
tree4523ca2ffd88b1002036879ab593d4abaff8d417 /hypsrc-test/src
parent90c38242e54d1a742426e2b1b3c7d71e226811bd (diff)
Follow hlint suggestion: redundant $. (#1505)
* Follow hlint suggestion: redundant $. * Remove $ and surplus blank lines in Operators.
Diffstat (limited to 'hypsrc-test/src')
-rw-r--r--hypsrc-test/src/Operators.hs4
1 files changed, 1 insertions, 3 deletions
diff --git a/hypsrc-test/src/Operators.hs b/hypsrc-test/src/Operators.hs
index 1dcb8856..82c4da04 100644
--- a/hypsrc-test/src/Operators.hs
+++ b/hypsrc-test/src/Operators.hs
@@ -1,7 +1,6 @@
{-# LANGUAGE Haskell2010 #-}
module Operators where
-
(+++) :: [a] -> [a] -> [a]
a +++ b = a ++ b ++ a
@@ -18,6 +17,5 @@ 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)
+a #.# b = const (a, b)