Chucked the Data.Generics to get ugly but 2x faster code.

[Rakka.git] / Rakka / Wiki.hs

diff --git a/Rakka/Wiki.hs b/Rakka/Wiki.hs
index c1b7c7dda18adef0195087644057f54cb9f51d16..a519d34a227da9b8a40ec6db7b66108907185fc2 100644 (file)
--- 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)