Add note about GPG pitfalls

[xdg-ninja.git] / lib / Prompts.hs

diff --git a/lib/Prompts.hs b/lib/Prompts.hs
index 689f203d3897ee06237228eb670fce141dea5767..50ef892722d9b1c9fc1bba9e0d8dcc5ad5ffca10 100644 (file)
--- a/lib/Prompts.hs
+++ b/lib/Prompts.hs
@@ -24,8 +24,8 @@ getInputMarkdown placeholder = do
 getProp :: T.Text -> T.Text -> IO String
 getProp prompt placeholder = do
   let string_prompt = T.unpack prompt
-  let string_placholder = T.unpack placeholder
-  x <- runInputT defaultSettings (getInputLineWithInitial string_prompt (string_placholder, ""))
+  let string_placeholder = T.unpack placeholder
+  x <- runInputT defaultSettings (getInputLineWithInitial string_prompt (string_placeholder, ""))
   case x of
     Just s  -> return s
     Nothing -> return ""