aelve/guide
1
1
Fork 0
mirror of https://github.com/aelve/guide.git synced 2024-11-30 20:31:17 +03:00
Code Issues Projects Releases Wiki Activity

Force use of UTF8

Browse Source
This commit is contained in:
Jens Krause 2017-10-08 17:51:38 +02:00
parent 9f4d6469f7
commit f7b978de17
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Guide/Main.hs
View File

@ -53,6 +53,7 @@ import Data.Serialize.Get as Cereal
-- IO -- IO
import System.IO import System.IO
import qualified SlaveThread as Slave import qualified SlaveThread as Slave
import GHC.IO.Encoding (setLocaleEncoding, utf8)
-- Catching signals -- Catching signals
import System.Posix.Signals import System.Posix.Signals
-- Watching the templates directory -- Watching the templates directory
@ -136,6 +137,8 @@ lucidWithConfig x = do
-- | Start the site. -- | Start the site.
main :: IO () main :: IO ()
main = do main = do
-- force to use UTF-8
setLocaleEncoding utf8
config <- readConfig config <- readConfig
mainWith config mainWith config

4
tests/Main.hs
View File

@ -4,8 +4,8 @@
module Main (main) where module Main (main) where
import BasePrelude import BasePrelude
import GHC.IO.Encoding (setLocaleEncoding, utf8)
-- Testing -- Testing
import Test.Hspec import Test.Hspec
@ -17,6 +17,8 @@ import qualified MergeSpec
main :: IO () main :: IO ()
main = do main = do
-- force to use UTF-8
setLocaleEncoding utf8
hspec $ do hspec $ do
MarkdownSpec.tests MarkdownSpec.tests
MergeSpec.tests MergeSpec.tests