diff options
author | John MacFarlane <jgm@berkeley.edu> | 2021-02-02 21:09:10 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2021-02-02 21:09:10 -0800 |
commit | e6c7fcc59856893a4947925f0dddc3a44b74a48a (patch) | |
tree | 04dc1b38567d0263e8844c6f91a065e5d3ab868d /test/Tests/Old.hs | |
parent | 6f79042502851a1ac50c5c462f4121a1c659b511 (diff) | |
download | pandoc-e6c7fcc59856893a4947925f0dddc3a44b74a48a.tar.gz |
Fixed some compiler warnings in tests.
Diffstat (limited to 'test/Tests/Old.hs')
-rw-r--r-- | test/Tests/Old.hs | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/test/Tests/Old.hs b/test/Tests/Old.hs index 528388c51..a031700a6 100644 --- a/test/Tests/Old.hs +++ b/test/Tests/Old.hs @@ -15,10 +15,8 @@ module Tests.Old (tests) where import Prelude import Data.Algorithm.Diff -import Data.List (intercalate) -import Data.Maybe (catMaybes) import System.Exit -import System.FilePath (joinPath, splitDirectories, (<.>), (</>)) +import System.FilePath ((<.>), (</>)) import qualified System.Environment as Env import System.Environment.Executable (getExecutablePath) import Text.Pandoc.Process (pipeProcess) @@ -353,8 +351,3 @@ compareValues norm options expected actual = do "\n--- " ++ norm ++ "\n+++ " ++ cmd ++ "\n" ++ showDiff (1,1) diff ++ dash - -findDynlibDir :: [FilePath] -> Maybe FilePath -findDynlibDir [] = Nothing -findDynlibDir ("build":xs) = Just $ joinPath (reverse xs) </> "build" -findDynlibDir (_:xs) = findDynlibDir xs |