summaryrefslogtreecommitdiff
path: root/src/Hakyll/Core/Resource.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Hakyll/Core/Resource.hs')
-rw-r--r--src/Hakyll/Core/Resource.hs31
1 files changed, 0 insertions, 31 deletions
diff --git a/src/Hakyll/Core/Resource.hs b/src/Hakyll/Core/Resource.hs
deleted file mode 100644
index 566bb26..0000000
--- a/src/Hakyll/Core/Resource.hs
+++ /dev/null
@@ -1,31 +0,0 @@
--- | Module exporting the simple 'Resource' type
---
-module Hakyll.Core.Resource
- ( Resource
- , unResource
- , resource
- , fromIdentifier
- , toIdentifier
- ) where
-
-import Hakyll.Core.Identifier
-
--- | A resource
---
-newtype Resource = Resource {unResource :: FilePath}
- deriving (Eq, Show, Ord)
-
--- | Smart constructor to ensure we have @/@ as path separator
---
-resource :: FilePath -> Resource
-resource = fromIdentifier . parseIdentifier
-
--- | Create a resource from an identifier
---
-fromIdentifier :: Identifier a -> Resource
-fromIdentifier = Resource . toFilePath
-
--- | Map the resource to an identifier. Note that the group will not be set!
---
-toIdentifier :: Resource -> Identifier a
-toIdentifier = parseIdentifier . unResource