examples/passing/ExtendedInfixOperators.purs · rowtype-yoga/purescript-native

git.iko.soy/rowtype-yoga/purescript-native

on da99bc1 help sign in

14 lines 269 B history raw

1module Main where

3import Prelude

5comparing :: forall a b. (Ord b) => (a -> b) -> a -> a -> Ordering

6comparing f = compare `Data.Function.on` f

8null [] = true

9null _ = false

11test = [1.0, 2.0, 3.0] `comparing null` [4.0, 5.0, 6.0]

13main = do

14 Debug.Trace.print test