aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Old.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2021-02-02 21:09:10 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2021-02-02 21:09:10 -0800
commite6c7fcc59856893a4947925f0dddc3a44b74a48a (patch)
tree04dc1b38567d0263e8844c6f91a065e5d3ab868d /test/Tests/Old.hs
parent6f79042502851a1ac50c5c462f4121a1c659b511 (diff)
downloadpandoc-e6c7fcc59856893a4947925f0dddc3a44b74a48a.tar.gz
Fixed some compiler warnings in tests.
Diffstat (limited to 'test/Tests/Old.hs')
-rw-r--r--test/Tests/Old.hs9
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