1 files changed, 2 insertions, 1 deletions

diff --git a/compiler/src/FileProcessors.hs b/compiler/src/FileProcessors.hs
index 6e1738e..db5c9a1 100644
--- a/compiler/src/FileProcessors.hs
+++ b/compiler/src/FileProcessors.hs
@@ -100,7 +100,8 @@ type FileDescriber a =
 
 getImageResolution :: FilePath -> IO Resolution
 getImageResolution fsPath =
-  readProcess "magick" ["identify", "-format", "%w %h", firstFrame] []
+  readProcess "magick"
+    ["identify", "-auto-orient", "-format", "%w %h", firstFrame] []
   >>= parseResolution . break (== ' ')
   where
     firstFrame :: FilePath