mkStringConstr :: DataType -> String -> Constr
mkStringConstr dt str =
  case datarep dt of
    CharRep -> case str of
      [c] -> mkPrimCon dt (show c) (CharConstr c)
      _ -> error "Data.Data.mkStringConstr: input String must contain a single character"
    _ -> error "Data.Data.mkStringConstr"

-- | Makes a constructor for 'Char'.
mkStringConstr :: DataType -> String -> Constr
mkStringConstr dt str =
  case datarep dt of
    CharRep -> case str of
      [c] -> mkPrimCon dt (show c) (CharConstr c)
      _ -> error "Data.Data.mkStringConstr: input String must contain a single character"
    _ -> error "Data.Data.mkStringConstr"

-- | Makes a constructor for 'Char'.
mkStringConstr dt str =
  case datarep dt of
    CharRep -> case str of
      [c] -> mkPrimCon dt (show c) (CharConstr c)
      _ -> error "Data.Data.mkStringConstr: input String must contain a single character"
    _ -> error "Data.Data.mkStringConstr"

-- | Makes a constructor for 'Char'.