, DefaultPage(..)
, StyleSheet(..)
, Languages(..)
+
+ , serializeStringPairs
+ , deserializeStringPairs
)
where
+import Codec.Binary.UTF8.String
import Control.Arrow.ArrowIO
import Control.Concurrent.STM
import Control.Monad
import Control.Monad.Trans
import qualified Data.ByteString.Char8 as C8
+import qualified Data.ByteString.Lazy as L
import Data.Dynamic
-import Data.Encoding
-import Data.Encoding.UTF8
import Data.Map (Map)
import qualified Data.Map as M
import Data.Maybe
import Network
import qualified Network.HTTP.Lucu.Config as LC
import Network.HTTP.Lucu.Utils
-import Network.URI
+import Network.URI hiding (path)
import Rakka.Page
import Rakka.Utils
import Subversion.FileSystem
import System.FilePath.Posix
import System.Log.Logger
+
+logger :: String
logger = "Rakka.SystemConfig"
case exists of
True
-> do str <- getFileContentsLBS path
- return $ Just $ chomp $ decodeLazy UTF8 str
+ return $ Just $ chomp $ decode $ L.unpack str
False
-> return Nothing
= let conf = scLucuConf sc
host = C8.unpack $ LC.cnfServerHost conf
port = case LC.cnfServerPort conf of
- PortNumber num -> fromIntegral num
-
+ PortNumber num -> fromIntegral num :: Int
+ _ -> undefined
defaultURI
= "http://" ++ host ++ -- FIXME: consider IPv6 address
(if port == 80