From d5923722c37036848c9f03d2db1afdf3d017750e Mon Sep 17 00:00:00 2001
From: Jim <jim.crayne@gmail.com>
Date: Wed, 27 Apr 2016 18:57:34 -0400
Subject: hasSubstr parameters reversed

---
 testkiki/testkiki.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'testkiki/testkiki.hs')

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
                     copyFile "/etc/ssh/ssh_config" etcFile
                 -- copy ssh_config to ssh_config.old, preserving timestamps
                 (mtime0,etcFile0) <- saveFileInfo etcFile
-                let hasSubStr x file =
+                let hasSubStr file x =
                       doesFileExist file >>= 
                           (bool (return False) $ B.isPrefixOf x . snd . B.breakSubstring x <$> B.readFile file)
                 -- does it already mention /var/cache/kiki/ssh_known_hosts? expect not 
-- 
cgit v1.2.3