wip

Author: zeme-wana

plutus-core/cost-model/create-cost-model/Main.hs

@@ -1,3 +1,5 @@
+{-# LANGUAGE OverloadedStrings #-}
+
 module Main where
 
 import CreateBuiltinCostModel (createBuiltinCostModel)
@@ -168,16 +170,16 @@ generateCostModelHaskellModule modelName model = (modulePath, moduleCode)
     modulePath = "plutus-core/src/PlutusCore/Evaluation/Machine/CostModel/Generated/" <> T.unpack moduleName <> ".hs"
     moduleCode =
       T.unlines
-        [ T.pack "-- This file is auto-generated by the generate-cost-model executable."
-        , T.pack "-- Do not edit this file manually."
-        , T.pack "{-# LANGUAGE RecordWildCards #-}"
-        , T.pack "{-# OPTIONS_GHC -Wno-missing-signatures #-}"
-        , T.pack ""
-        , T.pack "module PlutusCore.Evaluation.Machine.CostModel.Generated." <> moduleName <> T.pack " (" <> modelExportName <> T.pack ") where"
-        , T.pack ""
-        , T.pack "import Data.Aeson"
-        , T.pack ""
-        , modelExportName <> T.pack " = " <> T.pack (show model)
+        [ "-- This file is auto-generated by the generate-cost-model executable."
+        , "-- Do not edit this file manually."
+        , "{-# LANGUAGE RecordWildCards #-}"
+        , "{-# OPTIONS_GHC -Wno-missing-signatures #-}"
+        , ""
+        , "module PlutusCore.Evaluation.Machine.CostModel.Generated." <> moduleName <> " (" <> modelExportName <> ") where"
+        , ""
+        , "import Data.Aeson"
+        , ""
+        , modelExportName <> " = " <> T.pack (show model)
         ]
 
 main :: IO ()