{-# LANGUAGE DataKinds #-} {-# LANGUAGE NumericUnderscores #-} module Util( (|>), ) where (|>) :: (a -> b) -> a -> b f |> x = f x infixr 0 |>