@@ -7,7 +7,6 @@ import Data.Char (isUpper)
7import SourceSyntax.Helpers as Help
7import SourceSyntax.Helpers as Help
8import SourceSyntax.Location as Location
8import SourceSyntax.Location as Location
9import SourceSyntax.Expression
9import SourceSyntax.Expression
10−import SourceSyntax.Rename (deprime)
11import Text.Parsec hiding (newline,spaces,State)
10import Text.Parsec hiding (newline,spaces,State)
12import Text.Parsec.Indent
11import Text.Parsec.Indent
@@ -40,7 +39,7 @@ capVar :: IParser String
40capVar = makeVar (upper <?> "upper case variable")
39capVar = makeVar (upper <?> "upper case variable")
42rLabel :: IParser String
41rLabel :: IParser String
43−rLabel = deprime <$> lowVar
42+rLabel = Help.deprime <$> lowVar
45innerVarChar :: IParser Char
44innerVarChar :: IParser Char
46innerVarChar = alphaNum <|> char '_' <|> char '\'' <?> ""
45innerVarChar = alphaNum <|> char '_' <|> char '\'' <?> ""