X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Rakka%2FWiki.hs;h=a519d34a227da9b8a40ec6db7b66108907185fc2;hb=743f4a87fd557832ce67d6eb51749582820577c4;hp=c1b7c7dda18adef0195087644057f54cb9f51d16;hpb=65c7f9f0643c7e8884e4a02567b77c169167c093;p=Rakka.git

diff --git a/Rakka/Wiki.hs b/Rakka/Wiki.hs
index c1b7c7d..a519d34 100644
--- a/Rakka/Wiki.hs
+++ b/Rakka/Wiki.hs
@@ -18,7 +18,6 @@ module Rakka.Wiki
     )
     where
 
-import           Data.Generics
 import           Network.URI
 import           Rakka.Page
 
@@ -29,7 +28,7 @@ type WikiPage = [BlockElement]
 data Element
     = Block  !BlockElement
     | Inline !InlineElement
-    deriving (Eq, Show, Typeable, Data)
+    deriving (Eq, Show)
 
 
 type Attribute = (String, String)
@@ -51,7 +50,7 @@ data BlockElement
     | Div ![Attribute] ![Element]
     | EmptyBlock
     | BlockCmd !BlockCommand
-    deriving (Eq, Show, Typeable, Data)
+    deriving (Eq, Show)
 
 
 data InlineElement
@@ -81,13 +80,13 @@ data InlineElement
     | Input ![Attribute]
     | EmptyInline
     | InlineCmd !InlineCommand
-    deriving (Eq, Show, Typeable, Data)
+    deriving (Eq, Show)
 
 
 data ListType
     = Bullet
     | Numbered
-    deriving (Eq, Show, Typeable, Data)
+    deriving (Eq, Show)
 
 
 type ListItem = [Element]
@@ -98,7 +97,7 @@ data Definition
         defTerm :: ![InlineElement]
       , defDesc :: ![InlineElement]
       }
-    deriving (Eq, Show, Typeable, Data)
+    deriving (Eq, Show)
 
 
 data CommandType
@@ -113,7 +112,7 @@ data BlockCommand
       , bCmdAttributes :: ![Attribute]
       , bCmdContents   :: ![BlockElement]
       }
-    deriving (Eq, Show, Typeable, Data)
+    deriving (Eq, Show)
 
 
 data InlineCommand
@@ -122,4 +121,4 @@ data InlineCommand
       , iCmdAttributes :: ![Attribute]
       , iCmdContents   :: ![InlineElement]
       }
-    deriving (Eq, Show, Typeable, Data)
+    deriving (Eq, Show)