@@ -41,7 +41,7 @@ DataStore IO where
42 disconnect store = delete store
42 disconnect store = delete store
44− readSecret store = readSecret store
44+ readSecret store = read store
46 login store = do putStr "Enter password: "
46 login store = do putStr "Enter password: "
47 p <- getStr
47 p <- getStr