mkModuleName nms = assert (all isCtor nms) $ ModuleName (BS.fromString s)
  where s = intercalate "." (reverse nms)
mkModuleName nms = assert (all isCtor nms) $ ModuleName (BS.fromString s)
  where s = intercalate "." (reverse nms)
mkModuleName nms = assert (all isCtor nms) $ ModuleName (BS.fromString s)
  where s = intercalate "." (reverse nms)