module MallNameBase where
import Ascii( slash )
import Utils( ensureHasTrailing )

newtype MallName = MallName_ String

mkMallName :: String -> MallName
mkMallName = MallName_

nest :: MallName -> MallName -> MallName
nest x y = mkMallName (mallNameToString x ++ mallNameToString y)

mallNameToString  ::  MallName -> String
mallNameToString (MallName_ x) = ensureHasTrailing Ascii.slash x

mallNamesToString :: [MallName] -> String
mallNamesToString = concat . map mallNameToString