2021-07-06 16:25:55 +02:00
|
|
|
module Config where
|
|
|
|
|
|
|
|
|
|
import System.Directory
|
|
|
|
|
|
|
|
|
|
data ViddlConfig = ViddlConfig
|
|
|
|
|
{ webPort :: Int
|
|
|
|
|
, dlDir :: FilePath }
|
|
|
|
|
|
|
|
|
|
defConfig :: IO ViddlConfig
|
2021-07-06 17:35:01 +02:00
|
|
|
defConfig = getTemporaryDirectory >>= pure . ViddlConfig 3000 . (<> "/viddl")
|
