Getting the filepath from SrcSpan is often useful

camfort · Jul 18, 2023 · 5442105 · 5442105
1 parent 8abd0af
commit 5442105
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Language/Fortran/Extras/Encoding.hs b/src/Language/Fortran/Extras/Encoding.hs
@@ -22,5 +22,8 @@ commonEncode = encode
 pprint77l :: IndentablePretty a => a -> String
 pprint77l s = pprintAndRender Fortran77Legacy s Nothing
 
+getFilePath :: SrcSpan -> FilePath
+getFilePath (SrcSpan p _) = posFilePath p
+
 showFileSpan :: SrcSpan -> String
 showFileSpan s@(SrcSpan p _) = posFilePath p <> "-" <> show s