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