@@ -84,8 +84,11 @@ includeLibs =
84 repl '\\' = '_'
84 repl '\\' = '_'
85 repl '/' = '_'
85 repl '/' = '_'
86 repl c = c
86 repl c = c
88+ trimPeriod ('.' : xs) = '_' : xs
88− concatMap (\lib -> "var " ++ (repl <$> lib) ++ " = require(\"" ++ lib ++"\");\n")
91+ concatMap (\lib -> "var " ++ (trimPeriod $ repl <$> lib) ++ " = require(\"" ++ lib ++"\");\n")
90isYes :: Maybe String -> Bool
93isYes :: Maybe String -> Bool
91isYes (Just "Y") = True
94isYes (Just "Y") = True