summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim <jim.crayne@gmail.com>2016-04-27 18:57:34 -0400
committerJim <jim.crayne@gmail.com>2016-04-27 18:57:34 -0400
commitd5923722c37036848c9f03d2db1afdf3d017750e (patch)
treeb61dd77da982a2616449a7f122c9f5c2d7dd68ca
parentee5f119e148ccc7584ac36cd081ce2fc9dde2bfd (diff)
hasSubstr parameters reversed
-rw-r--r--testkiki/testkiki.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/testkiki/testkiki.hs b/testkiki/testkiki.hs
index 0b0f263..7821df7 100644
--- a/testkiki/testkiki.hs
+++ b/testkiki/testkiki.hs
@@ -278,7 +278,7 @@ doTests tkConfig = hspec $ do
278 copyFile "/etc/ssh/ssh_config" etcFile 278 copyFile "/etc/ssh/ssh_config" etcFile
279 -- copy ssh_config to ssh_config.old, preserving timestamps 279 -- copy ssh_config to ssh_config.old, preserving timestamps
280 (mtime0,etcFile0) <- saveFileInfo etcFile 280 (mtime0,etcFile0) <- saveFileInfo etcFile
281 let hasSubStr x file = 281 let hasSubStr file x =
282 doesFileExist file >>= 282 doesFileExist file >>=
283 (bool (return False) $ B.isPrefixOf x . snd . B.breakSubstring x <$> B.readFile file) 283 (bool (return False) $ B.isPrefixOf x . snd . B.breakSubstring x <$> B.readFile file)
284 -- does it already mention /var/cache/kiki/ssh_known_hosts? expect not 284 -- does it already mention /var/cache/kiki/ssh_known_hosts? expect not