@@ -19,6 +19,7 @@ import qualified Data.Map as Map
1919import qualified Data.ByteString.Char8 as S8
2020import Control.Arrow ((***))
2121import Data.Text (pack)
22+import Data.String (fromString)
2223
2324data Args = Args
2425 { docroot :: FilePath
@@ -47,7 +48,7 @@ main = do
4748 . autohead
4849 runSettings defaultSettings
4950 { settingsPort = port
50− , settingsHost = host
51+ , settingsHost = fromString host
5152 } $ middle $ staticApp defaultFileServerSettings
5253 { ssFolder = fileSystemLookup $ toFilePath docroot
5354 , ssIndices = if noindex then [] else map pack index