From c8bfda92a7c99c03bbd8a8745ba31a52d32af166 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Thu, 14 Jun 2007 20:52:11 +0000 Subject: [PATCH] Use Haskell '98 data declaration rather than GADT-style --- Mosaic.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/Mosaic.hs b/Mosaic.hs index 0acd854f..d4e09b3a 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