1 files changed, 2 insertions, 1 deletions

diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index ddcaba0..02ac397 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -41,6 +41,7 @@ import qualified Data.ByteString.Char8      as S8
 import qualified Data.ByteString.Lazy       as L
 import qualified Data.ByteString.Lazy.Char8 as Char8
 import qualified Data.Map.Strict            as Map
+import           GHC.Stack
 import           Network.Socket
 import qualified SSHKey                     as SSH
 
@@ -539,7 +540,7 @@ refreshCache rt rootdir = do
     rt'' <- rethrowKikiErrors rt'
     writePublicKeyFiles rt'' fw myId
 
-rethrowKikiErrors :: KikiCondition a -> IO a
+rethrowKikiErrors :: HasCallStack => KikiCondition a -> IO a
 rethrowKikiErrors BadPassphrase =
   error "Operation requires correct passphrase. (Hint: Use --passphrase-fd=0 to input it on stdin.)"
 rethrowKikiErrors rt = unconditionally $ return rt