Skip to content
An opinionated OTP framework wrapper
PureScript Erlang Makefile
Branch: master
Clone or download
Latest commit ee51809 Jul 7, 2019
Type Name Latest commit message Commit time
Failed to load latest commit information.
docs Remove warnings and update package sets Jul 6, 2019
src disclaimer.txt Jul 7, 2019
.gitignore Pinto Feb 4, 2019
LICENSE.txt License Jul 2, 2019
Makefile Docs for pinto Jul 6, 2019 disclaimer.txt Jul 7, 2019
psc-package.json Remove warnings and update package sets Jul 6, 2019


Opinionated Bindings to OTP

Type-safe bindings

Low level bindings to OTP aren't directly user friendly, so this library goes a step up and while a lot of the functionality is recognisable intuitively from the original OTP documentation, the usage is more function-centric so it reads more like an actual Purescript application.

Define a gen server

module MyGenServer where

import Pinto (ServerName(..), StartLinkResult)
import Pinto.Gen as Gen

type State = { }

serverName :: ServerName State
serverName = ServerName "some_uuid"

doSomething :: Unit -> Effect Unit
doSomething input = 
  Gen.doCall serverName \state -> do
    pure $ CallReply unit state

startLink :: Unit -> Effect StartLinkResult
startLink args =
  Gen.startLink serverName $ init args

init :: Unit -> Effect State
init args = do
  pure $ {}

Define a gen supervisor that uses that gen server

module MyGenSup where

import Pinto as Pinto
import Pinto.Sup 

startLink :: Effect Pinto.StartLinkResult
startLink = Sup.startLink "my_cool_sup" init

init :: Effect SupervisorSpec
init = do
  pure $ buildSupervisor
                # supervisorStrategy OneForOne
                # supervisorChildren ( ( buildChild
                                       # childType Worker
                                       # childId "some_child"
                                       # childStart MyGenServer.startLink unit)
                                        : nil)

Define an application that uses this supervisor

import Pinto.App as App

start = App.simpleStart MyGenSup.startLink

Link to it in an ordinary erlang app.src

{application, my_amazing_app,
 [{description, "An OTP application"},
  {vsn, "0.1.0"},
  {registered, []},
  {mod, { bookApp@ps, []}},

An end-to-end example can be found in the demo project


This software, and the opinionated libraries written to support it are very much "works in progress" - we are actively using and building these libraries out for use in own commercial software and can and will be making any changes required to further support that development. As such, they come without support and a disclaimer very much of "be it on your own heads". That said - feel free to reach out and talk to us if you have ideas though, improvements and suggestions are welcome in pull requests and conversation.

You can’t perform that action at this time.