mirror of
https://github.com/Start9Labs/start-os.git
synced 2026-03-31 12:33:40 +00:00
17 lines
359 B
Haskell
17 lines
359 B
Haskell
module Util.Function where
|
|
|
|
import Startlude
|
|
|
|
infixr 9 .*
|
|
(.*) :: (b -> c) -> (a0 -> a1 -> b) -> a0 -> a1 -> c
|
|
(.*) = (.) . (.)
|
|
{-# INLINE (.*) #-}
|
|
|
|
infixr 9 .**
|
|
(.**) :: (b -> c) -> (a0 -> a1 -> a2 -> b) -> a0 -> a1 -> a2 -> c
|
|
(.**) = (.) . (.*)
|
|
{-# INLINE (.**) #-}
|
|
|
|
uncurry3 :: (a -> b -> c -> d) -> (a, b, c) -> d
|
|
uncurry3 f (a, b, c) = f a b c
|