From 9cfb9aa9ab53ac339f4f79fd843b40a0c9f60d75 Mon Sep 17 00:00:00 2001 From: Neil Mitchell Date: Wed, 11 Sep 2019 22:45:41 +0100 Subject: [PATCH] Less extensions --- src/Development/IDE/Core/Preprocessor.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) 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