fix default dir

This commit is contained in:
Rachel Lambda Samuelsson 2021-07-06 17:35:01 +02:00
parent 319bee7ee6
commit 9caf89817f

View File

@ -7,4 +7,4 @@ data ViddlConfig = ViddlConfig
, dlDir :: FilePath }
defConfig :: IO ViddlConfig
defConfig = getTemporaryDirectory >>= pure . ViddlConfig 3000 . (<> "viddl")
defConfig = getTemporaryDirectory >>= pure . ViddlConfig 3000 . (<> "/viddl")