msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

fix the so command in case of dependent types

Browse Source
This commit is contained in:
Krasimir Angelov
2023-11-28 14:07:09 +01:00
parent 54e06b5371
commit 1d64d166be
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/compiler/GF/Command/SourceCommands.hs
View File

@@ -212,9 +212,8 @@ sourceCommands = Map.fromList [
return $ allOpersTo sgr ty
_ -> return $ allOpers sgr
let sigs = [(op,ty) | ((mo,op),ty,pos) <- ops]
printer = if isOpt "raw" os
then showTerm sgr TermPrintDefault Qualified
else (render . TC.ppType)
printer = showTerm sgr TermPrintDefault
(if isOpt "raw" os then Qualified else Unqualified)
printed = [unwords [showIdent op, ":", printer ty] | (op,ty) <- sigs]
return . fromString $ unlines [l | l <- printed, all (`isInfixOf` l) greps]