1 files changed, 0 insertions, 57 deletions
diff --git a/src/Text/Hakyll/Resource.hs b/src/Text/Hakyll/Resource.hs
deleted file mode 100644
index b0ffb8c..0000000
--- a/src/Text/Hakyll/Resource.hs
+++ /dev/null
@@ -1,57 +0,0 @@
--- | A resource represents data for a website
---
-module Text.Hakyll.Resource
-    ( Metadata (..)
-    , Resource (..)
-    , getData
-    , getMetadata
-    ) where
-
-import Data.Monoid (Monoid, mempty, mappend)
-import Control.Applicative (Applicative, (<*>), pure)
-import Data.Map (Map)
-import qualified Data.Map as M
-
--- | Metadata for a resource
---
-newtype Metadata = Metadata {unMetadata :: Map String String}
-                 deriving (Show, Eq, Ord)
-
-instance Monoid Metadata where
-    mempty = Metadata M.empty
-    (Metadata m1) `mappend` (Metadata m2) = Metadata $ m1 `M.union` m2
-
--- | A resource represents a data source for the website. It contains a value
--- and a number of metadata fields
---
-data Resource a = Resource
-    { resourceMetadata :: Metadata
-    , resourceData     :: a
-    } deriving (Show, Eq, Ord)
-
-instance Functor Resource where
-    fmap f (Resource m d) = Resource m $ f d
-
-instance Applicative Resource where
-    pure d = Resource mempty d
-    (Resource m1 f) <*> (Resource m2 d) = Resource (mappend m2 m1) (f d)
-
-instance Monad Resource where
-    return d = Resource mempty d
-    (Resource m1 d) >>= f = let Resource m2 d' = f d
-                            in Resource (mappend m2 m1) d'
-
-instance Monoid a => Monoid (Resource a) where
-    mempty = Resource mempty mempty
-    mappend (Resource m1 d1) (Resource m2 d2) =
-        Resource (mappend m1 m2) (mappend d1 d2)
-
--- | Get the data from a resource
---
-getData :: Resource a -> a
-getData = resourceData
-
--- | Get a metadata field from a resource
---
-getMetadata :: String -> Resource a -> Maybe String
-getMetadata k (Resource m _) = M.lookup k $ unMetadata m