formatting is my passion

test/Main.hs

@@ -1,4 +1,8 @@
 module Main (main) where
+import GoodList
+
+abc :: GoodList Char
+abc = cons 'a' $ cons 'b' $ cons 'c' Empty
 
 main :: IO ()
-main = putStrLn "Test suite not yet implemented."
+main = print abc