diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-14 22:52:11 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-14 22:52:11 +0200 |
| commit | 14d623d780af79243097adbd531256885731008e (patch) | |
| tree | da7d1e76e8a1ceed07774b85f3725ebc3d2974ca /Mosaic.hs | |
| parent | b7e079c94b2e13721f9ddf5665cd1defc1f89df7 (diff) | |
| download | XMonadContrib-14d623d780af79243097adbd531256885731008e.tar.gz XMonadContrib-14d623d780af79243097adbd531256885731008e.tar.xz XMonadContrib-14d623d780af79243097adbd531256885731008e.zip | |
Use Haskell '98 data declaration rather than GADT-style
darcs-hash:20070614205211-a5988-dec9cdc964e4a3023a02f75aa1f67f116a581b5f.gz
Diffstat (limited to 'Mosaic.hs')
| -rw-r--r-- | Mosaic.hs | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -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 |