Also decode Dex code files as UTF-8 regardless of the ambient locale.

src/dex.hs

@@ -16,10 +16,10 @@ import System.Posix.Terminal (queryTerminal)
 import System.Posix.IO (stdOutput)
 import System.IO (openFile, IOMode (..))
 
+import qualified Data.ByteString as BS
 import Data.List
-import Data.Functor
 import qualified Data.Text as T
-import qualified Data.Text.IO as T
+import qualified Data.Text.Encoding as T
 import qualified Data.Map.Strict as M
 
 import PPrint (toJSONStr, printResult)
@@ -58,7 +58,7 @@ runMode evalMode opts = case evalMode of
   ScriptMode fname fmt onErr -> do
     env <- loadCache
     (litProg, finalEnv) <- runTopperM opts env do
-      source <- liftIO $ T.readFile fname
+      source <- liftIO $ T.decodeUtf8 <$> BS.readFile fname
       evalSourceText source (printIncrementalSource fmt) \result@(Result _ errs) -> do
         printIncrementalResult fmt result
         return case (onErr, errs) of (HaltOnErr, Failure _) -> False; _ -> True

src/lib/Live/Eval.hs

@@ -9,12 +9,13 @@ module Live.Eval (RFragment (..), SetVal(..), watchAndEvalFile) where
 import Control.Concurrent (forkIO, killThread, readChan, threadDelay, ThreadId)
 import Control.Monad.Reader
 import Control.Monad.State.Strict
+import Data.ByteString qualified as BS
 import Data.Text (Text)
-import Data.Text.IO qualified as T
-import qualified Data.Map.Strict as M
+import Data.Text.Encoding qualified as T
+import Data.Map.Strict qualified as M
 
 import Data.Aeson (ToJSON, toJSON, (.=))
-import qualified Data.Aeson as A
+import Data.Aeson qualified as A
 import Data.Text.Prettyprint.Doc
 import System.Directory (getModificationTime)
 
@@ -317,7 +318,7 @@ forkWatchFile fname chan = onmod fname $ sendFileContents fname chan
 sendFileContents :: String -> PChan Text -> IO ()
 sendFileContents fname chan = do
   putStrLn $ fname ++ " updated"
-  s <- T.readFile fname
+  s <- T.decodeUtf8 <$> BS.readFile fname
   sendPChan chan s
 
 onmod :: FilePath -> IO () -> IO ()