File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -13,7 +13,6 @@ maintainer: james.chapman@iohk.io
1313category : Development
1414build-type : Simple
1515data-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
Original file line number Diff line number Diff line change 1+ {-# LANGUAGE TemplateHaskell #-}
12{-# OPTIONS_GHC -Wall #-}
23
34module Certifier
@@ -12,13 +13,13 @@ module Certifier
1213import Control.Monad
1314import Control.Monad.Except (ExceptT (.. ), runExceptT , throwError )
1415import Control.Monad.IO.Class (liftIO )
16+ import Data.FileEmbed (embedStringFile )
1517import Data.Foldable
1618import Data.List.Extra (replace )
1719import Data.List.NonEmpty (NonEmpty (.. ))
1820import Data.List.NonEmpty qualified as NE
1921import Data.Maybe (fromMaybe )
2022import Data.Text.IO qualified as T
21- import Paths_plutus_metatheory (getDataFileName )
2223import System.Directory (createDirectory )
2324import 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) ->
You can’t perform that action at this time.
0 commit comments