diff options
Diffstat (limited to 'compiler/src')
-rw-r--r-- | compiler/src/Processors.hs | 6 | ||||
-rw-r--r-- | compiler/src/Resource.hs | 1 |
2 files changed, 5 insertions, 2 deletions
diff --git a/compiler/src/Processors.hs b/compiler/src/Processors.hs index ca8a74c..2988f83 100644 --- a/compiler/src/Processors.hs +++ b/compiler/src/Processors.hs | |||
@@ -47,8 +47,8 @@ data ProcessingException = ProcessingException FilePath String deriving Show | |||
47 | instance Exception ProcessingException | 47 | instance Exception ProcessingException |
48 | 48 | ||
49 | 49 | ||
50 | -- TODO: handle video, music, markdown, pdf... | 50 | -- TODO: handle video, music, markdown... |
51 | data Format = PictureFormat | PlainTextFormat | Unknown | 51 | data Format = PictureFormat | PlainTextFormat | PortableDocumentFormat | Unknown |
52 | 52 | ||
53 | formatFromPath :: Path -> Format | 53 | formatFromPath :: Path -> Format |
54 | formatFromPath = | 54 | formatFromPath = |
@@ -68,6 +68,7 @@ formatFromPath = | |||
68 | ".gif" -> PictureFormat | 68 | ".gif" -> PictureFormat |
69 | ".txt" -> PlainTextFormat | 69 | ".txt" -> PlainTextFormat |
70 | ".md" -> PlainTextFormat -- TODO: handle markdown separately | 70 | ".md" -> PlainTextFormat -- TODO: handle markdown separately |
71 | ".pdf" -> PortableDocumentFormat | ||
71 | _ -> Unknown | 72 | _ -> Unknown |
72 | 73 | ||
73 | 74 | ||
@@ -173,6 +174,7 @@ itemFileProcessor maxResolution cached inputBase outputBase resClass inputRes = | |||
173 | processorFor PictureFormat (Just maxRes) = (resizePictureUpTo maxRes, getPictureProps) | 174 | processorFor PictureFormat (Just maxRes) = (resizePictureUpTo maxRes, getPictureProps) |
174 | processorFor PictureFormat Nothing = (copyFileProcessor, getPictureProps) | 175 | processorFor PictureFormat Nothing = (copyFileProcessor, getPictureProps) |
175 | processorFor PlainTextFormat _ = (copyFileProcessor, const $ return . PlainText) | 176 | processorFor PlainTextFormat _ = (copyFileProcessor, const $ return . PlainText) |
177 | processorFor PortableDocumentFormat _ = (copyFileProcessor, const $ return . PDF) | ||
176 | -- TODO: handle video reencoding and others? | 178 | -- TODO: handle video reencoding and others? |
177 | processorFor Unknown _ = (copyFileProcessor, const $ return . Other) | 179 | processorFor Unknown _ = (copyFileProcessor, const $ return . Other) |
178 | 180 | ||
diff --git a/compiler/src/Resource.hs b/compiler/src/Resource.hs index 5c175f1..129a817 100644 --- a/compiler/src/Resource.hs +++ b/compiler/src/Resource.hs | |||
@@ -76,6 +76,7 @@ data GalleryItemProps = | |||
76 | { resource :: Resource | 76 | { resource :: Resource |
77 | , resolution :: Resolution } | 77 | , resolution :: Resolution } |
78 | | PlainText { resource :: Resource } | 78 | | PlainText { resource :: Resource } |
79 | | PDF { resource :: Resource } | ||
79 | | Other { resource :: Resource } | 80 | | Other { resource :: Resource } |
80 | deriving (Generic, Show) | 81 | deriving (Generic, Show) |
81 | 82 | ||