Fix Unicode file embedding: embedStringFile → embedFileUtf8

app/Spago/TH.hs

@@ -0,0 +1,22 @@
+{-# LANGUAGE TemplateHaskell #-}
+
+module Spago.TH
+  ( embedFileUtf8
+  ) where
+
+import           Data.FileEmbed
+import           Data.Text.Encoding         as LT
+import           Language.Haskell.TH.Syntax (Exp, Q)
+
+
+-- | This is here so that we can embed files as Utf8 Text.
+--   The reason for that is that since we have unicode Dhall files,
+--   if you compile on a non-unicode system you'll get weirdly encoded stuff.
+--
+--   TL;DR: don't use embedStringFile.
+--
+--   This comes from:
+--   https://github.com/snoyberg/file-embed/issues/27#issuecomment-411694346
+embedFileUtf8 :: FilePath -> Q Exp
+embedFileUtf8 filePath =
+  [| LT.decodeUtf8 $(makeRelativeToProject filePath >>= embedFile) |]

app/Spago/Templates.hs

@@ -3,27 +3,28 @@
 module Spago.Templates where
 
 import           Data.Aeson.Encode.Pretty
-import           Data.FileEmbed
 import qualified Data.Text                as T
 import qualified Data.Text.Lazy           as LT
 import qualified Data.Text.Lazy.Encoding  as LT
 
 import           PscPackage.Types         (PscPackage (..))
+import           Spago.TH                 (embedFileUtf8)
+
 
 packagesDhall :: T.Text
-packagesDhall = $(embedStringFile "templates/packages.dhall")
+packagesDhall = $(embedFileUtf8 "templates/packages.dhall")
 
 spagoDhall :: T.Text
-spagoDhall = $(embedStringFile "templates/spago.dhall")
+spagoDhall = $(embedFileUtf8 "templates/spago.dhall")
 
 srcMain :: T.Text
-srcMain = $(embedStringFile "templates/srcMain.purs")
+srcMain = $(embedFileUtf8 "templates/srcMain.purs")
 
 testMain :: T.Text
-testMain = $(embedStringFile "templates/testMain.purs")
+testMain = $(embedFileUtf8 "templates/testMain.purs")
 
 gitignore :: T.Text
-gitignore = $(embedStringFile "templates/gitignore")
+gitignore = $(embedFileUtf8 "templates/gitignore")
 
 encodePscPackage :: PscPackage -> T.Text
 encodePscPackage = LT.toStrict . LT.decodeUtf8 . encodePretty

package.yaml

@@ -48,6 +48,7 @@ dependencies:
 - prettyprinter
 - async-pool
 - process
+- template-haskell
 
 executables:
   spago: