To protect your data, the CISO officer has suggested users to enable GitLab 2FA as soon as possible.

Commit c66e168c authored by Pavel Zakopaylo's avatar Pavel Zakopaylo
Browse files

Fixed pretty-printer naming issues

parent 3b117b7f
......@@ -128,10 +128,13 @@ instance Binary ExposeName
instance Binary CookieName
instance Binary VarName
newtype Version = Version Underlying_Name_Type deriving (Show, Generic)
newtype Version = Version Underlying_Name_Type deriving (Generic)
instance Binary Version
instance Show Version where
show (Version vn) = vn
versionedName :: FunctionName -> Version -> FunctionVerName
versionedName fn (Version vn) = FunctionVerName $ Name $ nameOf fn <> "." <> vn
......
......@@ -81,42 +81,42 @@ instance PrettyPrint VarName where
instance PrettyPrint TypedefName where
ppFormat (TypedefName name) = do
ind <- ask
return $ ind ++ ('@' : pp name)
return $ ind ++ (pp name)
instance PrettyPrint SignatureName where
ppFormat (SignatureName name) = do
ind <- ask
return $ ind ++ ('@' : pp name)
return $ ind ++ (pp name)
instance PrettyPrint BasicBlockName where
ppFormat (BasicBlockName name) = do
ind <- ask
return $ ind ++ ('@' : pp name)
return $ ind ++ (pp name)
instance PrettyPrint FunctionName where
ppFormat (FunctionName name) = do
ind <- ask
return $ ind ++ ('@' : pp name)
return $ ind ++ (pp name)
instance PrettyPrint GlobalCellName where
ppFormat (GlobalCellName name) = do
ind <- ask
return $ ind ++ ('@' : pp name)
return $ ind ++ (pp name)
instance PrettyPrint ExposeName where
ppFormat (ExposeName name) = do
ind <- ask
return $ ind ++ ('@' : pp name)
return $ ind ++ (pp name)
instance PrettyPrint ConstantName where
ppFormat (ConstantName name) = do
ind <- ask
return $ ind ++ ('@' : pp name)
return $ ind ++ (pp name)
instance PrettyPrint CookieName where
ppFormat (CookieName name) = do
ind <- ask
return $ ind ++ ('@' : pp name)
return $ ind ++ (pp name)
instance PrettyPrint ExceptionClause where
ppFormat (ExceptionClause nor exc) = do
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment