Gifcurry 2.0.0.1 → 2.0.0.2

raw patch · 2 files changed

+6/−6 lines, 2 files

Files

Gifcurry.cabal +1/−1
gui_src/Main.hs +5/−5

Gifcurry.cabal view

@@ -1,5 +1,5 @@ name:                Gifcurry-version:             2.0.0.1+version:             2.0.0.2 synopsis:            Create animated GIFs, overlaid with optional text, from video files. description:         GIF creation utility. homepage:            https://github.com/lettier/gifcurry

gui_src/Main.hs view

@@ -198,8 +198,8 @@         let outputFilePathName = tmpdir ++ "/end.gif"         success <- ioSuccess $ makeGifPreview inputFilePathName outputFilePathName startTime' " LAST FRAME  "         if success-          then postGUIAsync $ imageSetFromFile lastFrameImage outputFilePathName-          else postGUIAsync $ resetImage lastFrameImage+          then postGUISync $ imageSetFromFile lastFrameImage outputFilePathName+          else postGUISync $ resetImage lastFrameImage       else postGUIAsync $ resetImage lastFrameImage   return () @@ -213,8 +213,8 @@         let outputFilePathName = tmpDir ++ "/start.gif"         success <- ioSuccess $ makeGifPreview inputFilePathName outputFilePathName startTime " FIRST FRAME "         if success-          then postGUIAsync $ imageSetFromFile firstFrameImage outputFilePathName-          else postGUIAsync $ resetImage firstFrameImage-      else postGUIAsync $ resetImage firstFrameImage+          then postGUISync $ imageSetFromFile firstFrameImage outputFilePathName+          else postGUISync $ resetImage firstFrameImage+      else postGUISync $ resetImage firstFrameImage     makeLastFramePreview inputFileButton startTimeEntry durationTimeEntry lastFrameImage   return ()