https://github.com/yornaath/purescript-bf-gun
Gun DB bindings in purescript.
https://github.com/yornaath/purescript-bf-gun
gun gundb purescript
Last synced: 3 months ago
JSON representation
Gun DB bindings in purescript.
- Host: GitHub
- URL: https://github.com/yornaath/purescript-bf-gun
- Owner: yornaath
- Created: 2021-10-18T18:37:29.000Z (over 4 years ago)
- Default Branch: master
- Last Pushed: 2021-11-05T15:02:19.000Z (over 4 years ago)
- Last Synced: 2025-07-22T06:35:44.548Z (11 months ago)
- Topics: gun, gundb, purescript
- Language: PureScript
- Homepage:
- Size: 251 KB
- Stars: 1
- Watchers: 1
- Forks: 1
- Open Issues: 1
-
Metadata Files:
- Readme: README.md
Awesome Lists containing this project
README
# purescript-bf-gun
Gun DB bindings in purescript.
## Docs
[pursuit.purescript.org/packages/purescript-bf-gun](https://pursuit.purescript.org/packages/purescript-bf-gun)
## Quickstart
A simple quickstart with shared state type between client and express server.
### Server
```purescript
module Examples.Basic.Server where
import Prelude hiding (apply)
import Data.Maybe (Maybe(..))
import Data.Options (Options, (:=))
import Effect (Effect)
import Effect.Console (log)
import Effect.Timer (setInterval)
import Gun as Gun
import Gun.Configuration (Configuration, fileOption, webOption)
import Gun.Node (Saveable(..))
import Node.Express.App (App, listenHttp, get)
import Node.Express.Response (send)
import Node.HTTP (Server)
app :: App
app = get "/" do
send "body"
main :: Effect Server
main = do
server <-
listenHttp app 8080 \_ ->
log $ "Server Listening on " <> show 8080
let
gunConfig :: Options Configuration
gunConfig =
webOption := Just server
<> fileOption
:= Just "radata"
let gun = Gun.create gunConfig
let alice = Gun.get "alice" gun
let alicenodeWithData = alice # Gun.put (SaveableRecord {name : "Alice"})
let people = Gun.get "people" gun
let _ = people # Gun.set (SaveableNode alicenodeWithData)
let messages = Gun.get "messages" gun
_ <-
setInterval 900 do
log "sending message from server"
let _ = messages # Gun.put (SaveableRecord { message: "Message from server" })
pure unit
pure server
```
### Client
```purescript
module Examples.Basic.Client where
import Prelude
import Data.Maybe (Maybe(..))
import Data.Options (Options, (:=))
import Debug (trace)
import Effect (Effect)
import Effect.Class.Console (log)
import Gun as Gun
import Gun.Configuration (Configuration, peersOption)
import Gun.Query.Mapper (Mapper(..))
main :: Effect Unit
main = do
let
gunConfig :: Options Configuration
gunConfig =
peersOption := Just ["http://localhost:8080/gun"]
let gun = Gun.create gunConfig
let messages = Gun.get "messages" gun
let people = Gun.get "people" gun
_ <- do
log "listening"
let _ = messages # Gun.on (\key message ->
pure $ trace {message} identity
)
let mappedPeople = people # Gun.map Passthrough
let _ = mappedPeople # Gun.on (\key person ->
pure $ trace {person} identity
)
pure unit
pure unit
```