diff --git a/app/Main.hs b/app/Main.hs index dba7475..a518913 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -219,4 +219,6 @@ main = runInputT inputSettings $ do args <- lift $ getArgs if length args == 1 then fromFile (args !! 0) - else outputStrLn $ " USAGE: " ++ name ++ " " + else do + outputStrLn $ " USAGE: " ++ name ++ " " + void $ runMaybeT $ promptContinue "Continue" diff --git a/src/Cards.hs b/src/Cards.hs index 5783084..d610d1a 100644 --- a/src/Cards.hs +++ b/src/Cards.hs @@ -219,7 +219,6 @@ cardToString :: Card -> [String] cardToString Card{sides=s, tier=t, lastChecked=lc, offset=o} | t == minBound = let info = ":: {\"level\": " ++ (show $ fromEnum t) ++ - ", \"last_checked\": " ++ formatTime defaultTimeLocale "%s" lc ++ "}" in info : intersperse "::" s | otherwise =