git.iko.soy/elk
on master help sign in
extract the final file extension only
5442c0bEvan Czaplicki
builder/src/Build.hs+1−1
compare with master
unifiedsplit
@@ -962,7 +962,7 @@ findLoc :: Env -> FilePath -> FilePath -> Either Exit.BuildProjectProblem Locati
962findLoc (Env _ root _ srcDirs _ _) path absolutePath =
962findLoc (Env _ root _ srcDirs _ _) path absolutePath =
963 let
963 let
964 (dirs, file) = FP.splitFileName absolutePath
964 (dirs, file) = FP.splitFileName absolutePath
965− (final, ext) = break (=='.') file
965+ (final, ext) = FP.splitExtension file
966 in
966 in
967 if ext /= ".elm"
967 if ext /= ".elm"
968 then Left (Exit.BP_WithBadExtension path)
968 then Left (Exit.BP_WithBadExtension path)