data CircleType = Circle Double Double Double
+data CircleType = Circle Double Double Double
data RectangleType = Rectangle Double Double Double Double
data Shape =
CircleShape CircleType | RectangleShape RectangleType
diff --git a/1.md b/1.md
index c6b654e..7cc6ea5 100644
--- a/1.md
+++ b/1.md
@@ -491,7 +491,7 @@ ifThenElse (False, "Hello", "World")
---
-```{ .fragment .haskell }
+```{ .haskell }
data CircleType = Circle Double Double Double
data RectangleType = Rectangle Double Double Double Double
```