git.iko.soy/rowtype-yoga/purescript-native
on e65645e help sign in
rowtype-yoga/purescript-native/examples/passing/ExtendedInfixOperators.purs
12 lines 253 B history raw
1module Main where
3comparing :: forall a b. (Ord b) => (a -> b) -> a -> a -> Ordering
4comparing f = compare `Data.Function.on` f
6null [] = true
7null _ = false
9test = [1.0, 2.0, 3.0] `comparing null` [4.0, 5.0, 6.0]
11main = do
12 Debug.Trace.print test