extract the final file extension only
commit5442c0ba05c22c3beea059d321ecbb62b72f0a56
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateFri 5 Jul 2019, 18:16 (7 years ago)
parent4884c10
builder/src/Build.hs+1−1
@@ -962,7 +962,7 @@ findLoc :: Env -> FilePath -> FilePath -> Either Exit.BuildProjectProblem Locati
962962findLoc (Env _ root _ srcDirs _ _) path absolutePath =
963963 let
964964 (dirs, file) = FP.splitFileName absolutePath
965− (final, ext) = break (=='.') file
965+ (final, ext) = FP.splitExtension file
966966 in
967967 if ext /= ".elm"
968968 then Left (Exit.BP_WithBadExtension path)