From 08f53feceb1edb10f8b3a816021fb580b27e5b4c Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Fri, 19 Feb 2021 12:26:10 +0100
Subject: Write to stderr, not stdout

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

(limited to 'Coolbal/FindRoot.hs')

diff --git a/Coolbal/FindRoot.hs b/Coolbal/FindRoot.hs
index ea6e297..fb65491 100644
--- a/Coolbal/FindRoot.hs
+++ b/Coolbal/FindRoot.hs
@@ -23,7 +23,7 @@ findCabalSpec = do
     mfound <- findThingInDirs "cabal file" (`endsWith` ".cabal") doesFileExist FoundCabalSpec (ancestors cwd)
     case mfound of
       Just found -> do
-          putStrLn ("Found .cabal file: " ++ foundcsCabal found)
+          hPutStrLn stderr ("Found .cabal file: " ++ foundcsCabal found)
           return found
       Nothing -> do
           hPutStrLn stderr (".cabal file not found in ancestors of PWD: " ++ cwd)
-- 
cgit v1.2.3-70-g09d2