diff options
| author | Yuchen Pei <hi@ypei.me> | 2022-08-18 15:34:01 +1000 |
|---|---|---|
| committer | Yuchen Pei <hi@ypei.me> | 2022-08-18 15:34:01 +1000 |
| commit | dfba9cfeb5310b4c94436e1b3df64d8bbd60a4eb (patch) | |
| tree | c962d237d05d51026f12423fd30cfdeadc524855 /src/HaskellCodeExplorer/Preprocessor.hs | |
| parent | 1272b763ab497a294be77e8a4529f183b3ccaa7b (diff) | |
linting preprocessor and ghcutils
Diffstat (limited to 'src/HaskellCodeExplorer/Preprocessor.hs')
| -rw-r--r-- | src/HaskellCodeExplorer/Preprocessor.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/HaskellCodeExplorer/Preprocessor.hs b/src/HaskellCodeExplorer/Preprocessor.hs index abea661..eb832ce 100644 --- a/src/HaskellCodeExplorer/Preprocessor.hs +++ b/src/HaskellCodeExplorer/Preprocessor.hs @@ -49,7 +49,7 @@ createSourceCodeTransformation currentModulePath originalSourceCode sourceCodeAf Left _ -> acc totalLines = length numberedLines pragmas = L.reverse . L.foldl' addPragma [] $ numberedLines - pragmaPath = filePath :: LinePragma -> HaskellFilePath + pragmaPath LinePragma {..} = filePath currentFileExtension = takeExtension . T.unpack . getHaskellFilePath $ currentFilePath standardHeaderFiles = |