diff --git a/.azure/azure-linux-template.yml b/.azure/azure-linux-template.yml index b15dce2..d74dd42 100644 --- a/.azure/azure-linux-template.yml +++ b/.azure/azure-linux-template.yml @@ -98,7 +98,7 @@ jobs: done ;; *) - stack $ARGS test + stack $ARGS test --pedantic ;; esac set +ex diff --git a/.azure/azure-osx-template.yml b/.azure/azure-osx-template.yml index 236ed42..5b40083 100644 --- a/.azure/azure-osx-template.yml +++ b/.azure/azure-osx-template.yml @@ -34,7 +34,7 @@ jobs: curl -skL https://get.haskellstack.org/stable/osx-x86_64.tar.gz | tar xz --strip-components=1 --include '*/stack' -C ~/.local/bin; export PATH=$HOME/.local/bin:$PATH stack --install-ghc $ARGS test --only-dependencies - stack $ARGS test + stack $ARGS test --pedantic env: OS_NAME: ${{ parameters.os }} displayName: 'Installation ${{parameters.os}} & Test' diff --git a/.azure/azure-windows-template.yml b/.azure/azure-windows-template.yml index c803f9d..a5fa825 100644 --- a/.azure/azure-windows-template.yml +++ b/.azure/azure-windows-template.yml @@ -33,7 +33,7 @@ jobs: curl -sSkL http://www.stackage.org/stack/windows-x86_64 -o /usr/bin/stack.zip unzip -o /usr/bin/stack.zip -d /usr/bin/ stack --install-ghc $ARGS test --only-dependencies - stack $ARGS test + stack $ARGS test --pedantic env: OS_NAME: ${{ parameters.os }} displayName: 'Installation ${{parameters.os}} & Test' diff --git a/test/UnitTests.hs b/test/UnitTests.hs index 0133195..d22fc05 100644 --- a/test/UnitTests.hs +++ b/test/UnitTests.hs @@ -4,9 +4,7 @@ module UnitTests , compileVideoFolder ) where -import Control.Monad (forM) import qualified Data.ByteString.Lazy as LBS -import Data.Maybe (catMaybes) import Reanimate.Misc (withTempDir, withTempFile) import System.Directory import System.Exit @@ -38,7 +36,7 @@ genGolden path = withTempDir $ \tmpDir -> withTempFile ".exe" $ \tmpExecutable - -- ret <- runCmd_ "stack" $ ["ghc", "--"] ++ ghcOptions tmpDir ++ [self, "-o", tmpExecutable] -- ["-rtsopts", "--make", "-threaded", "-O2"] ++ -- ["-odir", tmpDir, "-hidir", tmpDir] - (inh, outh, errh, pid) <- runInteractiveProcess tmpExecutable (["test"] ++ runOpts) + (inh, outh, errh, _pid) <- runInteractiveProcess tmpExecutable (["test"] ++ runOpts) Nothing Nothing hClose inh hClose errh