Merge pull request #3 from giacomocavalieri/fix-2

src/ffi.erl

@@ -19,6 +19,14 @@ decode_tuple(X) ->
 
 decode_custom_type(X) ->
     case X of
+        % Variants with no fields are encoded as a single atom named as the variant.
+        Atom when is_atom(Atom) ->
+            case inspect_maybe_gleam_atom(erlang:atom_to_binary(Atom), none, <<>>) of
+                {ok, AtomName} -> {ok, {t_custom, AtomName, []}};
+                {error, nil} -> decode_error("CustomType", X)
+            end;
+        % Variants with fields are encoded as tuples where the first items is an
+        % atom with the variant's name.
         Tuple when is_tuple(Tuple) ->
             case tuple_to_list(Tuple) of
                 [Atom | Elements] when is_atom(Atom) ->

test/pprint_test.gleam

@@ -1,16 +1,28 @@
 import gleam/dict
+import gleam/dynamic
 import gleeunit
+import gleeunit/should
 import birdie
 import pprint
+import pprint/decoder
 
 type Foo {
   Foo(Int, bar: String, baz: String)
+  Wibble
 }
 
 pub fn main() {
   gleeunit.main()
 }
 
+// https://github.com/MystPi/pprint/issues/2
+pub fn custom_type_with_no_fields_decoding_test() {
+  Wibble
+  |> dynamic.from
+  |> decoder.classify
+  |> should.equal(decoder.TCustom("Wibble", []))
+}
+
 pub fn pretty_list_test() {
   ["This", "is", "a", "very", "long", "list", "that", "should", "be", "wrapped"]
   |> pprint.format