on master help sign in
Account for takeExtension behavior
de2dbe0Evan Czaplicki
builder/src/Generate/Output.hs+1−1
@@ -169,7 +169,7 @@ parseOutput string =
169 if string == "/dev/null" || string == "NUL" || string == "$null" then
169 if string == "/dev/null" || string == "NUL" || string == "$null" then
170 Just None
170 Just None
171
171
172− else if FP.takeExtension string == "js" then
172+ else if FP.takeExtension string == ".js" then
173 toCustom string
173 toCustom string
174
174
175 else
175 else
ui/terminal/src/Terminal/Args/Helpers.hs+1−1
@@ -74,7 +74,7 @@ elmFile =
74
74
75parseElmFile :: String -> Maybe FilePath
75parseElmFile :: String -> Maybe FilePath
76parseElmFile string =
76parseElmFile string =
77− if FP.takeExtension string == "elm" then
77+ if FP.takeExtension string == ".elm" then
78 Just string
78 Just string
79 else
79 else
80 Nothing
80 Nothing