1 files changed, 1 insertions, 1 deletions
diff --git a/Creds.hs b/Creds.hs
index ee0a67398..4c6896663 100644
--- a/Creds.hs
+++ b/Creds.hs
@@ -92,7 +92,7 @@ getRemoteCredPair c storage = maybe fromcache (return . Just) =<< fromenv
 		Just credpair -> do
 			writeCacheCredPair credpair storage
 			return $ Just credpair
-		_ -> do error $ "bad creds"
+		_ -> error "bad creds"
 
 {- Gets a CredPair from the environment. -}
 getEnvCredPair :: CredPairStorage -> IO (Maybe CredPair)