diff options
| author | Jim <jim.crayne@gmail.com> | 2016-04-27 18:57:34 -0400 |
|---|---|---|
| committer | Jim <jim.crayne@gmail.com> | 2016-04-27 18:57:34 -0400 |
| commit | d5923722c37036848c9f03d2db1afdf3d017750e (patch) | |
| tree | b61dd77da982a2616449a7f122c9f5c2d7dd68ca | |
| parent | ee5f119e148ccc7584ac36cd081ce2fc9dde2bfd (diff) | |
hasSubstr parameters reversed
| -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 |