1 files changed, 2 insertions, 1 deletions

diff --git a/lib/KeyRing.hs b/lib/KeyRing.hs
index 5f43b4f..07badb6 100644
--- a/lib/KeyRing.hs
+++ b/lib/KeyRing.hs
@@ -51,6 +51,7 @@ import qualified Data.ByteString      as S
 import qualified Data.ByteString.Char8 as S8
 import Data.ByteArray.Encoding
 import qualified Codec.Compression.GZip as GZip
+import GHC.Stack
 import qualified System.Posix.Types as Posix
 import System.Posix.Files (setFileCreationMask, setFileTimes )
 import System.Posix.Files ( setFdTimesHiRes )
@@ -547,7 +548,7 @@ writeHostsFiles krd ctx (hostdbs0,hostdbs,u1,gpgnames,IPsToWriteToHostsFile outg
 
 
 
-unconditionally :: IO (KikiCondition a) -> IO a
+unconditionally :: HasCallStack => IO (KikiCondition a) -> IO a
 unconditionally action = do
     r <- action
     case r of