diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-12-28 11:12:45 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-12-28 11:12:45 +0100 |
| commit | 27ff2eef890d86001c0210dd2d20639d34fbd32c (patch) | |
| tree | 8a6c7fcce735ce99d49e7511f8bac0b8829a70a2 /src/Hakyll/Core/Target.hs | |
| parent | 6ffb83d46f0e1e82c38fa959464a98f6087f417f (diff) | |
| download | hakyll-27ff2eef890d86001c0210dd2d20639d34fbd32c.tar.gz | |
Use Typeable instead of ADT
Diffstat (limited to 'src/Hakyll/Core/Target.hs')
| -rw-r--r-- | src/Hakyll/Core/Target.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Hakyll/Core/Target.hs b/src/Hakyll/Core/Target.hs index b8740bc..452fb57 100644 --- a/src/Hakyll/Core/Target.hs +++ b/src/Hakyll/Core/Target.hs @@ -4,7 +4,6 @@ module Hakyll.Core.Target ( DependencyLookup , TargetM - , Target , runTarget , getIdentifier , getResourceString @@ -20,12 +19,12 @@ import Hakyll.Core.ResourceProvider -- | Get the current identifier -- -getIdentifier :: TargetM a Identifier +getIdentifier :: TargetM Identifier getIdentifier = TargetM $ targetIdentifier <$> ask -- | Get the resource content as a string -- -getResourceString :: TargetM a String +getResourceString :: TargetM String getResourceString = TargetM $ do provider <- targetResourceProvider <$> ask identifier <- unTargetM getIdentifier |