self(auto)- documenting encoders and decoders
Go to file
Tom Sydney Kerckhove d0d7b2b35b
Merge pull request #41 from michelk/compilable-example
Adapt example in README to make it compile
2023-06-01 18:19:41 +02:00
.github Nix flake 2022-11-30 14:33:11 +01:00
autodocodec HasCodec Void 2023-01-31 14:12:13 +01:00
autodocodec-api-usage HasCodec Void 2023-01-31 14:12:13 +01:00
autodocodec-openapi3 Nix flake 2022-11-30 14:33:11 +01:00
autodocodec-schema Bumped and released autodocodec-schema 2023-01-18 17:51:13 +01:00
autodocodec-servant-multipart Nix flake 2022-11-30 14:33:11 +01:00
autodocodec-swagger2 Nix flake 2022-11-30 14:33:11 +01:00
autodocodec-yaml Released autodocodec-yaml-0.2.0.3 2023-01-01 21:30:59 +01:00
nix reenable builds for nixos-21.11 2023-03-11 16:21:07 +01:00
.envrc Nix flake 2022-11-30 14:33:11 +01:00
.gitignore Nix flake 2022-11-30 14:33:11 +01:00
.hlint.yaml autodocodec-servant-multipart 2022-09-20 00:59:49 +02:00
cabal.project Nix flake 2022-11-30 14:33:11 +01:00
flake.lock reenable builds for nixos-21.11 2023-03-11 16:21:07 +01:00
flake.nix reenable builds for nixos-21.11 2023-03-11 16:21:07 +01:00
LICENSE Released autodocodec-yaml-0.2.0.3 2023-01-01 21:30:59 +01:00
README.md Adapt example in README to make it compile 2023-06-01 18:08:04 +02:00
stack.yaml Upgrade deps again 2023-02-13 09:08:39 +01:00
TODO.smos autodocodec-nix todo 2022-09-20 00:42:10 +02:00

Autodocodec

Autodocodec is short for "self(auto)- documenting encoder and decoder".

In short: You write a single instance, of the 'Codec' type-class, for your type, and you get:

See the golden test directory directory for example outputs.

Features

  • ✓ Correct-by-construction encoding and decoding, without generating code.
  • ✓ Generate automatically-correct documentation from code.
  • ✓ Support for recursive types.

State of this project

This project is ready to try out!

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE DerivingVia #-}
{-# LANGUAGE TypeApplications #-}
module Main (main) where


import Autodocodec
import Autodocodec.Yaml
import GHC.Generics
import Data.Aeson (FromJSON, ToJSON)
import Data.Text (Text)
import qualified Data.Text as T

data Example = Example
  { exampleTextField :: !Text,
    exampleIntField :: !Int
  }
  deriving stock (Show, Eq, Generic)
  deriving
    ( FromJSON, -- <- FromJSON instance for free.
      ToJSON  -- <- ToJSON instance for free.
    )
    via (Autodocodec Example)

instance HasCodec Example where
  codec =
    object "Example" $
      Example
        <$> requiredField "text" "documentation for the text field" .= exampleTextField
        <*> requiredField "int" "documentation for the int field" .= exampleIntField

main :: IO ()
main =  do
  let schema = T.unpack $ renderColouredSchemaViaCodec @Example
  putStrLn schema

This will output a nice coloured yaml-schema:

# Example
text: # required
  # documentation for the text field
  <string>
int: # required
  # documentation for the int field
  <number> # between -9223372036854775808 and 9223372036854775807

Tests

While we don't provide any actual guarantees, we do have tests for the following properties that we would like to maintain: