@@ -1,9 +1,6 @@
11-- Copyright (c) 2019 The DAML Authors. All rights reserved.
22-- SPDX-License-Identifier: Apache-2.0
33
4−{-# LANGUAGE RankNTypes #-}
5−{-# LANGUAGE CPP #-}
6−
74module Development.IDE.Core.Preprocessor
85 ( preprocessor
96 ) where
@@ -70,7 +67,6 @@ parsePragmasIntoDynFlags fp contents = catchSrcErrors "pragmas" $ do
7067 return dflags
7168
7269
73−
7470-- | Run (unlit) literate haskell preprocessor on a file, or buffer if set
7571runLhs :: DynFlags -> FilePath -> Maybe SB.StringBuffer -> IO SB.StringBuffer
7672runLhs dflags filename contents = withTempDir $ \dir -> do
@@ -98,6 +94,7 @@ runLhs dflags filename contents = withTempDir $ \dir -> do
9894 escape (c:cs) = c : escape cs
9995 escape [] = []
10096
97+
10198-- | Run CPP on a file
10299runCpp :: DynFlags -> FilePath -> Maybe SB.StringBuffer -> IO SB.StringBuffer
103100runCpp dflags filename contents = withTempDir $ \dir -> do