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