Restore DatatypeContexts directive pending fix for acid-state/safecop…

…y#29
seereason · Jun 24, 2015 · dd3f69a · dd3f69a
1 parent 9396afc
commit dd3f69a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Scaffolding/Comment/Acid.hs b/src/Scaffolding/Comment/Acid.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE DeriveDataTypeable, FlexibleContexts, FlexibleInstances, FunctionalDependencies, MultiParamTypeClasses,
     PackageImports, RankNTypes, TemplateHaskell, TypeFamilies, TypeOperators, TypeSynonymInstances, UndecidableInstances #-}
 -- This is needed by deriveSafeCopy
+{-# LANGUAGE DatatypeContexts #-}
 {-# OPTIONS -Wall -Wwarn -fno-warn-orphans #-}
 module Scaffolding.Comment.Acid
     ( State(..)
@@ -55,7 +56,7 @@ instance (Data topic, Ord topic) => Indexable (CommentList topic) where
 
 type Comments topic = IxSet (CommentList topic)
 
-data {-(SafeCopy topic, Data topic, Ord topic, Typeable topic) =>-} State topic =
+data (Data topic, Ord topic) => State topic =
     State { commentLists  :: Comments topic
           , nextCommentId :: CommentId
           } deriving (Data, Eq, Ord, Show, Typeable)