1 files changed, 1 insertions, 3 deletions
diff --git a/Mosaic.hs b/Mosaic.hs
index 0acd854..d4e09b3 100644
--- a/Mosaic.hs
+++ b/Mosaic.hs
@@ -323,9 +323,7 @@ otherDirection :: CutDirection -> CutDirection
 otherDirection Vertical = Horizontal
 otherDirection Horizontal = Vertical
 
-data Mosaic a where
-    M :: [Mosaic a] -> Mosaic a
-    OM :: a -> Mosaic a
+data Mosaic a = M [Mosaic a] | OM a
           deriving ( Show )
 
 instance Functor Mosaic where