diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-05-24 11:58:13 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-05-24 11:58:13 +0200 |
| commit | 758e0beaaa2f9f97bb22fa4067d75efda4dbd31b (patch) | |
| tree | 5f783f2652628f2d3c70a2e868e79145ff469a32 /src/Hakyll/Core/Resource.hs | |
| parent | 41b7f3713889e8c5b4a21a85d8a2fcebf0b59054 (diff) | |
| download | hakyll-758e0beaaa2f9f97bb22fa4067d75efda4dbd31b.tar.gz | |
Type-safe identifiers
Diffstat (limited to 'src/Hakyll/Core/Resource.hs')
| -rw-r--r-- | src/Hakyll/Core/Resource.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Hakyll/Core/Resource.hs b/src/Hakyll/Core/Resource.hs index 8154752..ce5da81 100644 --- a/src/Hakyll/Core/Resource.hs +++ b/src/Hakyll/Core/Resource.hs @@ -15,10 +15,10 @@ newtype Resource = Resource {unResource :: String} -- | Create a resource from an identifier -- -fromIdentifier :: Identifier -> Resource +fromIdentifier :: Identifier a -> Resource fromIdentifier = Resource . toFilePath -- | Map the resource to an identifier. Note that the group will not be set! -- -toIdentifier :: Resource -> Identifier +toIdentifier :: Resource -> Identifier a toIdentifier = parseIdentifier . unResource |