reanimate 0.2.0.0 → 0.2.0.1

raw patch · 4 files changed

+19/−15 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• reanimate.cabal +1/−1
• src/Reanimate.hs +1/−1
• src/Reanimate/Scene.hs +1/−1
• test/UnitTests.hs +16/−12

@@ -3,7 +3,7 @@ --  see http://haskell.org/cabal/users-guide/  name:                reanimate-version:             0.2.0.0+version:             0.2.0.1 -- synopsis: -- description: license:             PublicDomain

@@ -21,7 +21,7 @@     --   * This viewer listens for changes to the source file and recompiles the     --     code automatically as needed.     --   * Animations are rendered with increasing fidelity until the frame-    --     rate eaches 60 fps.+    --     rate reaches 60 fps.     --   * Key commands for pausing, frame stepping, forward/rewind.     --     To pause press SPACE, to move -1\/+1\/-10\/+10 frames use LEFT\/RIGHT\/DOWN\/UP arrow keys.     reanimate,

@@ -177,7 +177,7 @@  -- | Wait until all forked and sequential animations have finished. -----   Examples:+--   Example: -- --   > do waitOn $ fork $ play drawBox --   >    play drawCircle

@@ -70,18 +70,22 @@  compileVideoFolder :: FilePath -> IO TestTree compileVideoFolder path = do-  files <- sort <$> getDirectoryContents path-  return $ testGroup "videos"-    [ testCase dir $ do-        (ret, _stdout, err) <- readProcessWithExitCode "stack" (["ghc","--", "-i"++path</>dir, fullPath] ++ ghcOpts) ""-        _ <- evaluate (length err)-        case ret of-          ExitFailure{} -> assertFailure $ "Failed to compile:\n" ++ err-          ExitSuccess   -> return ()-    | dir <- files-    , let fullPath = path </> dir </> dir <.> "hs"-    , dir /= "." && dir /= ".."-    ]+  exist <- doesDirectoryExist path+  if exist+    then do+      files <- sort <$> getDirectoryContents path+      return $ testGroup "videos"+        [ testCase dir $ do+            (ret, _stdout, err) <- readProcessWithExitCode "stack" (["ghc","--", "-i"++path</>dir, fullPath] ++ ghcOpts) ""+            _ <- evaluate (length err)+            case ret of+              ExitFailure{} -> assertFailure $ "Failed to compile:\n" ++ err+              ExitSuccess   -> return ()+        | dir <- files+        , let fullPath = path </> dir </> dir <.> "hs"+        , dir /= "." && dir /= ".."+        ]+    else return $ testGroup "videos" []   where     ghcOpts = ["-fno-code", "-O0"]