toCtorString :: L.Literal -> String
toCtorString literal =
      case literal of
        L.IntNum i ->
            ( show i
            )

        L.FloatNum f ->
            (show f
            )

        L.Chr c ->
            ( show c
            )

        L.Str s ->
            ( "\"" ++ s ++ "\""
            )

        L.Boolean b ->
            ( show b
            )
toCtorString :: L.Literal -> String
toCtorString literal =
      case literal of
        L.IntNum i ->
            ( show i
            )

        L.FloatNum f ->
            (show f
            )

        L.Chr c ->
            ( show c
            )

        L.Str s ->
            ( "\"" ++ s ++ "\""
            )

        L.Boolean b ->
            ( show b
            )
toCtorString literal =
      case literal of
        L.IntNum i ->
            ( show i
            )

        L.FloatNum f ->
            (show f
            )

        L.Chr c ->
            ( show c
            )

        L.Str s ->
            ( "\"" ++ s ++ "\""
            )

        L.Boolean b ->
            ( show b
            )