diff --git a/src/Development/IDE/Core/Preprocessor.hs b/src/Development/IDE/Core/Preprocessor.hs index 058e3018..f0b0e65c 100644 --- a/src/Development/IDE/Core/Preprocessor.hs +++ b/src/Development/IDE/Core/Preprocessor.hs @@ -1,9 +1,6 @@ -- Copyright (c) 2019 The DAML Authors. All rights reserved. -- SPDX-License-Identifier: Apache-2.0 -{-# LANGUAGE RankNTypes #-} -{-# LANGUAGE CPP #-} - module Development.IDE.Core.Preprocessor ( preprocessor ) where @@ -70,7 +67,6 @@ parsePragmasIntoDynFlags fp contents = catchSrcErrors "pragmas" $ do return dflags - -- | Run (unlit) literate haskell preprocessor on a file, or buffer if set runLhs :: DynFlags -> FilePath -> Maybe SB.StringBuffer -> IO SB.StringBuffer runLhs dflags filename contents = withTempDir $ \dir -> do @@ -98,6 +94,7 @@ runLhs dflags filename contents = withTempDir $ \dir -> do escape (c:cs) = c : escape cs escape [] = [] + -- | Run CPP on a file runCpp :: DynFlags -> FilePath -> Maybe SB.StringBuffer -> IO SB.StringBuffer runCpp dflags filename contents = withTempDir $ \dir -> do