From 983f91f981ba2b3a27df94689bd0c2e926f86813 Mon Sep 17 00:00:00 2001
From: pingu <nor@acorneroftheweb.com>
Date: Fri, 1 Mar 2024 11:24:37 +0100
Subject: [PATCH] format

---
 src/GoodList.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/GoodList.hs b/src/GoodList.hs
index b806f91..a8383c9 100644
--- a/src/GoodList.hs
+++ b/src/GoodList.hs
@@ -58,6 +58,6 @@ append (Singleton x)    = cons x
 append (Multiple a b c) = cons a . append b . cons c
 
 join :: GoodList (GoodList a) -> GoodList a
-join Empty = Empty
-join (Singleton x) = x
+join Empty            = Empty
+join (Singleton x)    = x
 join (Multiple a b c) = append (a `append` join b) c