Combo requires FlexibleContexts (but still doesn't compile under ghc head)

darcs-hash:20071013230020-cba2c-abce26b8edf763174e813885b17725ac9f156f05.gz

1 files changed, 2 insertions, 2 deletions

diff --git a/Combo.hs b/Combo.hs
index 99dba29..8392e8e 100644
--- a/Combo.hs
+++ b/Combo.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses, UndecidableInstances #-}
+{-# LANGUAGE FlexibleContexts, FlexibleInstances, MultiParamTypeClasses, UndecidableInstances #-}
 
 -----------------------------------------------------------------------------
 -- |
@@ -54,7 +54,7 @@ combo :: (Eq a, Show a, Read a, ReadableLayout a, LayoutClass l (Layout a, Int))
 combo = Combo []
 
 data Combo l a = Combo [a] (l (Layout a, Int)) [(Layout a, Int)]
-                 deriving ( Show, Read )
+                 deriving (Show, Read)
 
 instance (Eq a, Show a, Read a, ReadableLayout a, LayoutClass l (Layout a, Int))
     => LayoutClass (Combo l) a where