diff --git a/haskell/exe/Main.hs b/haskell/exe/Main.hs
index 1ef8c68..5cd845c 100644
--- a/haskell/exe/Main.hs
+++ b/haskell/exe/Main.hs
@@ -6,5 +6,6 @@ main :: IO ()
 main = do
     hello "Haskell"
     helloStruct T{a = True, b = 42}
+    helloStruct T{a = False, b = maxBound}
     helloShape $ Circle 3.14
     helloShape $ Rectangle 10.0 5.0