diff --git a/app/Main.hs b/app/Main.hs index ea528f9..3f7f2b0 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -7,7 +7,7 @@ import Commands (runProgram) import Control.Lens ((^.)) import Data.Configuration (ConfigurationPath (..), findOrCreateDefaultConfig, ifNewConfiguration, parseApplicationConfig) import Data.CourseDirectory (courseAssessmentsDirectoryRoot) -import Path (absdir, reldir) +import Path (Abs, File, Path, absdir, reldir) import Path.IO (AnyPath (makeAbsolute), getCurrentDir, getHomeDir, withCurrentDir) import StringFormatters (cleanAbsDirPathString, cleanAbsFilePathString) import System.Console.ANSI (Color (..), ColorIntensity (..), ConsoleIntensity (BoldIntensity, NormalIntensity), ConsoleLayer (..), SGR (Reset, SetColor, SetConsoleIntensity), clearScreen, hyperlink, setSGR, setTitle) @@ -36,6 +36,7 @@ printConfigCreatedMessage configPath = do putStrLn "\".\nPlease modify before re-running the application." setSGR [Reset] +startupWithConfig :: Path Abs File -> IO () startupWithConfig cfg = do config <- parseApplicationConfig cfg case config of diff --git a/src/Data/Configuration.hs b/src/Data/Configuration.hs index d595a84..22a83db 100644 --- a/src/Data/Configuration.hs +++ b/src/Data/Configuration.hs @@ -92,7 +92,7 @@ createDemoTemplateFile filePath = do \\\author{%%NAME%%}\n\ \\n\\begin{document}\n\ \ \\maketitle\n\ - \ Hello, and welcome to my awesome template!\n\ + \ Hello, there! This is just a simple \\LaTeX template!\n\ \\\end{document}" createDemoTemplateFileIfNotExist :: Path Abs File -> IO ()