-- | Separator-related things (e.g., '=' and '->').
module HIndent.Pretty.Combinators.RhsSeparator
  ( rhsSeparator
  ) where

import HIndent.Pretty.Combinators.String
import HIndent.Pretty.Types
import HIndent.Printer

-- | Returns a separator between a LHS and a RHS according to the type of
-- the RHS.
rhsSeparator :: GRHSExprType -> Printer ()
rhsSeparator :: GRHSExprType -> Printer ()
rhsSeparator GRHSExprType
GRHSExprNormal = HasCallStack => String -> Printer ()
String -> Printer ()
string String
"="
rhsSeparator GRHSExprType
GRHSExprCase = HasCallStack => String -> Printer ()
String -> Printer ()
string String
"->"
rhsSeparator GRHSExprType
GRHSExprMultiWayIf = HasCallStack => String -> Printer ()
String -> Printer ()
string String
"->"
rhsSeparator GRHSExprType
GRHSExprLambda = HasCallStack => String -> Printer ()
String -> Printer ()
string String
"->"