@@ -1,10 +1,10 @@
11{-# LANGUAGE OverloadedStrings #-}
22module Elm.ModuleName
33 ( Raw
4− , nameToChars
5− , nameToString
6− , nameToSlashPath
7− , nameToHyphenPath
4+ , toChars
5+ , toString
6+ , toSlashPath
7+ , toHyphenPath
88 , fromHyphenPath
99 , encode
1010 , decoder
@@ -41,23 +41,23 @@ import qualified Json.Encode as Encode
4141type Raw = Name.Name
4242
4343
44−nameToChars :: Raw -> String
45−nameToChars =
44+toChars :: Raw -> String
45+toChars =
4646 Name.toChars
4747
4848
49−nameToString :: Raw -> Utf8.String
50−nameToString =
49+toString :: Raw -> Utf8.String
50+toString =
5151 Name.toUtf8
5252
5353
54−nameToSlashPath :: Raw -> FilePath
55−nameToSlashPath name =
54+toSlashPath :: Raw -> FilePath
55+toSlashPath name =
5656 map (\c -> if c == '.' then FP.pathSeparator else c) (Name.toChars name)
5757
5858
59−nameToHyphenPath :: Raw -> FilePath
60−nameToHyphenPath name =
59+toHyphenPath :: Raw -> FilePath
60+toHyphenPath name =
6161 map (\c -> if c == '.' then '-' else c) (Name.toChars name)
6262
6363