GoodList/test/Main.hs

module Main (main) where
import GoodList

abc :: GoodList Char
abc = cons 'a' $ cons 'b' $ cons 'c' Empty

main :: IO ()
main = print abc
Setup 2024-02-29 12:03:15 +00:00			`module Main (main) where`
formatting is my passion 2024-02-29 17:23:17 +00:00			`import GoodList`

			`abc :: GoodList Char`
			`abc = cons 'a' $ cons 'b' $ cons 'c' Empty`
Setup 2024-02-29 12:03:15 +00:00
			`main :: IO ()`
formatting is my passion 2024-02-29 17:23:17 +00:00			`main = print abc`