Skip to content

Commit 1967f3c

Browse files
committed
Use file-embed, tested manually that it works with plugin
1 parent 0071a89 commit 1967f3c

2 files changed

Lines changed: 4 additions & 4 deletions

File tree

plutus-metatheory/plutus-metatheory.cabal

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -13,7 +13,6 @@ maintainer: james.chapman@iohk.io
1313
category: Development
1414
build-type: Simple
1515
data-files:
16-
data/certificate-README.md
1716
plutus-metatheory.agda-lib
1817
README.md
1918
src/**/*.lagda.md
@@ -81,6 +80,7 @@ library
8180
, deepseq
8281
, directory
8382
, extra
83+
, file-embed
8484
, filepath
8585
, mtl
8686
, optparse-applicative

plutus-metatheory/src/Certifier.hs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,4 @@
1+
{-# LANGUAGE TemplateHaskell #-}
12
{-# OPTIONS_GHC -Wall #-}
23

34
module Certifier
@@ -12,13 +13,13 @@ module Certifier
1213
import Control.Monad
1314
import Control.Monad.Except (ExceptT (..), runExceptT, throwError)
1415
import Control.Monad.IO.Class (liftIO)
16+
import Data.FileEmbed (embedStringFile)
1517
import Data.Foldable
1618
import Data.List.Extra (replace)
1719
import Data.List.NonEmpty (NonEmpty (..))
1820
import Data.List.NonEmpty qualified as NE
1921
import Data.Maybe (fromMaybe)
2022
import Data.Text.IO qualified as T
21-
import Paths_plutus_metatheory (getDataFileName)
2223
import System.Directory (createDirectory)
2324
import System.FilePath (takeBaseName, (</>))
2425

@@ -359,8 +360,7 @@ writeCertificateProject
359360
createDirectory (certDir </> "src")
360361
writeFile (certDir </> "src" </> mainModulePath) mainModuleContents
361362
writeFile (certDir </> agdalibPath) agdalibContents
362-
templatePath <- getDataFileName "file-embed/certificate-README.md"
363-
readmeTemplate <- readFile templatePath
363+
let readmeTemplate = $(embedStringFile "file-embed/certificate-README.md")
364364
writeFile (certDir </> "README.md") (replace "{{NAME}}" certName readmeTemplate)
365365
traverse_
366366
( \(path, contents) ->

0 commit comments

Comments
 (0)