From 8a02852030716dbdbd64efdd4954ab9ac8f828f9 Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Wed, 8 Jun 2016 05:00:16 +0800
Subject: Simple Web UI for changing password

Using Bootstrap & jQuery.
---
 src/Server.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/Server.hs')

diff --git a/src/Server.hs b/src/Server.hs
index ee9aad2..10d4328 100644
--- a/src/Server.hs
+++ b/src/Server.hs
@@ -23,8 +23,8 @@ import Application (app)
 type Listen = Either Port FilePath
 
 
-server :: Listen -> ConnectInfo -> IO ()
-server socketSpec mysqlConnInfo =
+server :: Listen -> ConnectInfo -> FilePath -> IO ()
+server socketSpec mysqlConnInfo dataDir =
   bracket
     ( do
       sock <- createSocket socketSpec
@@ -40,7 +40,8 @@ server socketSpec mysqlConnInfo =
       destroyAllResources mysql )
     ( \(sock, mysql) -> do
       listen sock maxListenQueue
-      runSettingsSocket defaultSettings sock (app mysql) )
+      hPutStrLn stderr $ "Static files from `" ++ dataDir ++ "'"
+      runSettingsSocket defaultSettings sock =<< app mysql dataDir)
 
 
 createSocket :: Listen -> IO Socket
-- 
cgit v1.2.3