24 lines
812 B
Haskell
24 lines
812 B
Haskell
|
--------------------------------------------------------------------------------
|
||
|
|
{-# LANGUAGE DeriveDataTypeable #-}
|
||
|
|
{-# LANGUAGE ExistentialQuantification #-}
|
||
|
|
module Hakyll.Core.Item.SomeItem
|
||
|
|
( SomeItem (..)
|
||
|
|
) where
|
||
|
|
|
||
|
|
|
||
|
|
--------------------------------------------------------------------------------
|
||
|
|
import Data.Binary (Binary)
|
||
|
|
import Data.Typeable (Typeable)
|
||
|
|
|
||
|
|
|
||
|
|
--------------------------------------------------------------------------------
|
||
|
|
import Hakyll.Core.Item
|
||
|
|
import Hakyll.Core.Writable
|
||
|
|
|
||
|
|
|
||
|
|
--------------------------------------------------------------------------------
|
||
|
|
-- | An existential type, mostly for internal usage.
|
||
|
|
data SomeItem = forall a.
|
||
|
|
(Binary a, Typeable a, Writable a) => SomeItem (Item a)
|
||
|
|
deriving (Typeable)
|