From 27ff2eef890d86001c0210dd2d20639d34fbd32c Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Tue, 28 Dec 2010 11:12:45 +0100 Subject: Use Typeable instead of ADT --- src/Hakyll/Web/FileType.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Hakyll/Web/FileType.hs') diff --git a/src/Hakyll/Web/FileType.hs b/src/Hakyll/Web/FileType.hs index 4da1439..a958fed 100644 --- a/src/Hakyll/Web/FileType.hs +++ b/src/Hakyll/Web/FileType.hs @@ -51,5 +51,5 @@ fileType = fileType' . takeExtension -- | Get the file type for the current file -- -getFileType :: TargetM a FileType +getFileType :: TargetM FileType getFileType = fileType . toFilePath <$> getIdentifier -- cgit v1.2.3