From e30eeb4918ed970040ab5209d36c14335881b5b5 Mon Sep 17 00:00:00 2001 From: hallgren Date: Thu, 23 Feb 2012 16:46:21 +0000 Subject: src/server/ContentService.hs: fix compilaton problem --- src/server/ContentService.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/server/ContentService.hs') diff --git a/src/server/ContentService.hs b/src/server/ContentService.hs index 297b3c881..0f2eb6508 100644 --- a/src/server/ContentService.hs +++ b/src/server/ContentService.hs @@ -14,11 +14,13 @@ import qualified Codec.Binary.UTF8.String as UTF8 (encodeString, decodeString) import Control.Monad import Control.Exception +import Control.Concurrent(forkIO) import System.Environment(getArgs) import System.Time import System.Locale import System.FilePath import Database.HSQL.MySQL +import Database.HSQL.Types(toSqlValue) logFile :: FilePath logFile = "content-error.log" -- cgit v1.2.3