diff options
-rw-r--r-- | testkiki/testkiki.hs | 2 |
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 |