diff options
Diffstat (limited to 'src/Resume.hs')
| -rw-r--r-- | src/Resume.hs | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/src/Resume.hs b/src/Resume.hs deleted file mode 100644 index 9b691c6..0000000 --- a/src/Resume.hs +++ /dev/null @@ -1,34 +0,0 @@ -module Resume - ( generateResumes - , resumePath - ) where - -import Conf (Conf) - -import Model -import Model.Date (Date) -import Model.Identity (Identity(name)) -import Model.Translation.Language -import Model.Translation.Message (getMessage) -import qualified Model.Translation.Key as K - -import View.LaTeX.Resume (resumeLaTeX) - -import Date (getCurrentDate) - -import PDF (generatePDFAt) - -generateResumes :: Model -> Conf -> IO () -generateResumes model conf = do - currentDate <- getCurrentDate - mapM_ (generateResume model currentDate conf) languages - -generateResume :: Model -> Date -> Conf -> Language -> IO () -generateResume model date conf language = - let path = "public/" ++ (resumePath model language) - resume = resumeLaTeX conf language date model - in generatePDFAt path resume - -resumePath :: Model -> Language -> FilePath -resumePath model language = - "resumes/" ++ (getMessage K.Resume language) ++ " " ++ (name . identity $ model) ++ ".pdf" |