18 lines
568 B
Haskell
18 lines
568 B
Haskell
module Misc where
|
|
--------------------------------------------------------------------------------
|
|
import Data.Functor.Classes
|
|
--------------------------------------------------------------------------------
|
|
|
|
|
|
showsTernaryWith :: (Int -> a -> ShowS)
|
|
-> (Int -> b -> ShowS)
|
|
-> (Int -> c -> ShowS)
|
|
-> String -> Int -> a -> b -> c -> ShowS
|
|
showsTernaryWith sp1 sp2 sp3 name d x y z
|
|
= showParen (d > 10)
|
|
$ showString name . showChar ' '
|
|
. sp1 11 x . showChar ' '
|
|
. sp2 11 y . showChar ' '
|
|
. sp3 11 z
|
|
|