aboutsummaryrefslogtreecommitdiff
path: root/compiler
diff options
context:
space:
mode:
Diffstat (limited to 'compiler')
-rw-r--r--compiler/src/Processors.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/src/Processors.hs b/compiler/src/Processors.hs
index fc719af..16837a6 100644
--- a/compiler/src/Processors.hs
+++ b/compiler/src/Processors.hs
@@ -126,9 +126,11 @@ resourceAt fsPath resPath = getModificationTime fsPath >>= return . Resource res
126 126
127getImageResolution :: FilePath -> IO Resolution 127getImageResolution :: FilePath -> IO Resolution
128getImageResolution fsPath = 128getImageResolution fsPath =
129 readProcess "identify" ["-format", "%w %h", fsPath] [] 129 readProcess "identify" ["-format", "%w %h", firstFrame] []
130 >>= return . break (== ' ') 130 >>= return . break (== ' ')
131 >>= return . \(w, h) -> Resolution (read w) (read h) 131 >>= return . \(w, h) -> Resolution (read w) (read h)
132 where
133 firstFrame = fsPath ++ "[0]"
132 134
133 135
134type ItemFileProcessor = 136type ItemFileProcessor =