Skip to content

Commit 81ce17e

Browse files
Maintenance: Add Typeable instance for Graphic for GHC 7.8
1 parent 8074f67 commit 81ce17e

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

haskell/hyper/src/Hyper/Internal.hs

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,5 @@
11
{-# LANGUAGE FlexibleInstances, OverlappingInstances, UndecidableInstances #-}
2+
{-# LANGUAGE DeriveDataTypeable #-}
23
module Hyper.Internal (
34
-- * Synopsis
45
-- | Internal data types used by the HyperHaskell back-end
@@ -12,6 +13,7 @@ module Hyper.Internal (
1213

1314
import Control.DeepSeq
1415
import Data.List (isPrefixOf)
16+
import Data.Typeable
1517

1618
import qualified Data.Text as T
1719
import qualified Data.Text.Lazy as TL
@@ -22,7 +24,7 @@ import qualified Text.Blaze.Html.Renderer.Text as H
2224
Graphics
2325
------------------------------------------------------------------------------}
2426
-- | A graphical representation of data.
25-
data Graphic = Graphic { gHtml :: T.Text }
27+
data Graphic = Graphic { gHtml :: T.Text } deriving (Typeable)
2628

2729
instance NFData Graphic where rnf g = rnf (gHtml g)
2830

0 commit comments

Comments
 (0)