Haskell cli bindings

[Akilan1999]

@xecarlox94 is currently working on the Haskell layer to interact with p2rpc to ensure that future orchestrations can be designed from functional language for better orchestration.

• [ ] Add documentation how to extend with a Haskell project.
• [ ] To improve JSON output for P2PRC to follow conventions (Ex: Ports are Ints, Bools are not strings).

[xecarlox94]

Current recommended changes to JSON outputs

The following changes concern the outputs for "listing servers" and "mapping ports" commands, as well as, p2prc's instance config file.

I will use the terms "necessary" and "convenient" to describe changes that need to be fixed and changes that significantly improve code quality.

List Servers Command

• (necessary) "Nat field" as a pure JSON Boolean
• (necessary) "ServerPort" as a pure JSON number
• (necessary) "BaremetalPort" as a pure JSON number
• (convenient) remove "ip_address" root field, if not needed.
• (convenient) have either IPV4 or IPV6 field visible, according to the correct value
• (convenient) remove "customInformation" if not needed anymore
• (convenient) remove "escapeImplementation" if not needed anymore

Mapping Port Command

• (necessary) to have a dedicated ip address
  • (convenient) have either IPV6 or IPV4 field for the ip address
• (necessary) to have a dedicated port field

Config file

• (necessary) "ServerPort" as a pure JSON number
• (necessary) "fRPServerPort" as a pure JSON number
• (necessary) "fRPServerPort" as a pure JSON boolean
• (necessary) "behindNAT" as a pure JSON boolean
• (necessary) "bareMetal" as a pure JSON boolean
• (necessary) "ProxyPort" as a pure JSON number
  • (convenient) dont "ProxyPort" show if value does not exist
• (convenient) "IPV6Address" conditional field dont show, if value does not exist
• (convenient) remove "customConfig" if not needed

Happy to discuss further this changes.

Thank you in advance :)

[Akilan1999]

Instruction for README (Structure):

• [ ] Motivation about the binding.
• [ ] (3 line description about the bindings).
• [ ] Build steps
• [ ] Exported function calls and return types can be generated using Haskell docs (https://kowainik.github.io/posts/haddock-tips) -> Use Pandoc to convert to markdown (https://pandoc.org/)

[xecarlox94]

I did have an error message inside of the ipaddress field on MapPortResponse. I will leave the error message below.

[GIN] 2024/11/13 - 20:32:49 | 200 | 135.577591ms | 127.0.0.1 | GET "/MAPPort?port=8080&domain_name=jose.akilan.io" MkMapPortResponse {ipAddress = "error: proxy IP not found"}

Could we move the error message outside the field?