diff -r 5e28098fb593 tools/pas2c/PascalPreprocessor.hs
--- a/tools/pas2c/PascalPreprocessor.hs	Sun Dec 02 00:19:17 2018 +0100
+++ b/tools/pas2c/PascalPreprocessor.hs	Tue Dec 04 22:34:02 2018 +0100
@@ -1,12 +1,15 @@
-{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE ScopedTypeVariables, ImplicitParams #-}
 module PascalPreprocessor where
 
+import Prelude hiding (readFile)
 import Text.Parsec
 import Control.Monad.IO.Class
 import Control.Monad
 import System.IO
 import qualified Data.Map as Map
 import qualified Control.Exception as E
+import System.IO.Encoding
+import Data.Encoding.UTF8
 
 char' :: Char -> ParsecT String u IO ()
 char' = void . char
@@ -33,6 +36,7 @@
 
     where
     preprocessFile fn' = do
+        let ?enc = UTF8
         f <- liftIO (readFile fn')
         setInput f
         preprocessor