-------------------------------------------------------------------------------- {-# LANGUAGE OverloadedStrings #-} module Main ( main ) where -------------------------------------------------------------------------------- import qualified Data.Aeson as Aeson import qualified Data.Attoparsec.ByteString as AP import qualified Data.ByteString as B import qualified Data.ByteString.Char8 as BC8 import qualified Data.ByteString.Lazy as BL import qualified Data.Text as T import qualified Data.Text.Encoding as T import System.Environment (getArgs, getProgName) import System.Exit (exitFailure) import System.FilePath (takeBaseName) import qualified System.IO as IO -------------------------------------------------------------------------------- import Paths_profiteur (getDataFileName) import Profiteur.Core import Profiteur.Parser -------------------------------------------------------------------------------- includeFile :: IO.Handle -> FilePath -> IO () includeFile h dataFile = do fileName <- getDataFileName dataFile BL.hPutStr h =<< BL.readFile fileName -------------------------------------------------------------------------------- writeReport :: String -> NodeMap -> IO () writeReport profFile prof = IO.withBinaryFile htmlFile IO.WriteMode $ \h -> do BC8.hPutStrLn h $ "\n\ \\n\ \
\n\ \ \n\ \