diff options
| -rw-r--r-- | fig-web/src/Fig/Web/Module/TCG.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/fig-web/src/Fig/Web/Module/TCG.hs b/fig-web/src/Fig/Web/Module/TCG.hs index da3504b..6e563ad 100644 --- a/fig-web/src/Fig/Web/Module/TCG.hs +++ b/fig-web/src/Fig/Web/Module/TCG.hs @@ -31,8 +31,9 @@ public a = do status status404 respondText "card does not exist" Just image -> do + log $ "card dir: " <> pack cardDir liftIO $ Dir.createDirectoryIfMissing True cardDir - log $ "Deleting card from Redis: " <> uuid + log $ "created directory" liftIO $ BS.writeFile cardPath image log $ "Deleting card from Redis: " <> uuid DB.hdel a.db "tcg:cards" $ encodeUtf8 uuid |