From 14d623d780af79243097adbd531256885731008e Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 14 Jun 2007 22:52:11 +0200
Subject: Use Haskell '98 data declaration rather than GADT-style

darcs-hash:20070614205211-a5988-dec9cdc964e4a3023a02f75aa1f67f116a581b5f.gz
---
 Mosaic.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'Mosaic.hs')

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
-- 
cgit v1.2.3