record-dot-preprocessor-0.1.1: src/Unlexer.hs

{-# LANGUAGE RecordWildCards #-}

-- Most of this module follows the Haskell report, https://www.haskell.org/onlinereport/lexemes.html
module Unlexer(unlexer) where

import Lexer

unlexer :: FilePath -> [Lexeme] -> String
unlexer src xs =
    "{-# LINE 1 " ++ show src ++ " #-}\n" ++
    concat [lexeme ++ whitespace | Lexeme{..} <- xs]