fix well-known

src/Application.hs

@@ -178,9 +178,13 @@ appMain = do
       let contentDir = content_directory conf
       createDirectoryIfMissing True contentDir
       putStrLn $ "Static directory: " <> contentDir
+      
+      let wellKnownDir = well_known_directory conf
+      createDirectoryIfMissing True wellKnownDir
+      putStrLn $ "well-known directory: " <> wellKnownDir
 
       staticRoute <- static contentDir
-      staticWellKnown <- static contentDir
+      staticWellKnown <- static wellKnownDir
 
       putStrLn $ "Launching application at " <> show (host conf)
 

src/DfsekConfig.hs

@@ -1,7 +1,6 @@
 {-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE TemplateHaskell   #-}
 
 module DfsekConfig (OIDCConfig (..), DfsekConfig (..), DatabaseConfig (..), widgetFile) where
 
@@ -10,10 +9,8 @@ import Data.Aeson
 import Data.Text (Text)
 import URI.ByteString
 import URI.ByteString.Aeson ()
-import Language.Haskell.TH.Syntax  (Exp, Name, Q)
-import Yesod.Default.Config2       (applyEnvValue, configSettingsYml)
-import Yesod.Default.Util          (WidgetFileSettings, widgetFileNoReload,
-                                    widgetFileReload)
+import Language.Haskell.TH.Syntax  (Exp, Q)
+import Yesod.Default.Util          (WidgetFileSettings, widgetFileNoReload)
 import ClassyPrelude.Yesod (def)
  
 data DfsekConfig = DfsekConfig