module Text.Layout.Table.Spec.CutMark
( CutMark
, doubleCutMark
, singleCutMark
, noCutMark
, leftMark
, rightMark
) where
import Data.Default.Class
data CutMark
= CutMark
{ CutMark -> String
leftMark :: String
, CutMark -> String
rightMark :: String
}
instance Default CutMark where
def :: CutMark
def = String -> CutMark
singleCutMark String
"…"
doubleCutMark :: String -> String -> CutMark
doubleCutMark :: String -> String -> CutMark
doubleCutMark = String -> String -> CutMark
CutMark
singleCutMark :: String -> CutMark
singleCutMark :: String -> CutMark
singleCutMark String
l = String -> String -> CutMark
doubleCutMark String
l (String -> String
forall a. [a] -> [a]
reverse String
l)
noCutMark :: CutMark
noCutMark :: CutMark
noCutMark = String -> CutMark
singleCutMark String
""