@@ -1,10 +1,10 @@
1{-# LANGUAGE OverloadedStrings #-}
1{-# LANGUAGE OverloadedStrings #-}
2module Elm.ModuleName
2module Elm.ModuleName
4− , nameToChars
4+ , toChars
5− , nameToString
5+ , toString
6− , nameToSlashPath
6+ , toSlashPath
7− , nameToHyphenPath
7+ , toHyphenPath
8 , fromHyphenPath
8 , fromHyphenPath
@@ -41,23 +41,23 @@ import qualified Json.Encode as Encode
41type Raw = Name.Name
41type Raw = Name.Name
44−nameToChars :: Raw -> String
44+toChars :: Raw -> String
45−nameToChars =
45+toChars =
46 Name.toChars
46 Name.toChars
49−nameToString :: Raw -> Utf8.String
49+toString :: Raw -> Utf8.String
50−nameToString =
50+toString =
51 Name.toUtf8
51 Name.toUtf8
54−nameToSlashPath :: Raw -> FilePath
54+toSlashPath :: Raw -> FilePath
55−nameToSlashPath name =
55+toSlashPath name =
56 map (\c -> if c == '.' then FP.pathSeparator else c) (Name.toChars name)
56 map (\c -> if c == '.' then FP.pathSeparator else c) (Name.toChars name)
59−nameToHyphenPath :: Raw -> FilePath
59+toHyphenPath :: Raw -> FilePath
60−nameToHyphenPath name =
60+toHyphenPath name =
61 map (\c -> if c == '.' then '-' else c) (Name.toChars name)
61 map (\c -> if c == '.' then '-' else c) (Name.toChars name)