Commit bd8c39ad authored by Marc Coiffier's avatar Marc Coiffier
Browse files

Successful build (on Tue 07 May 2019 08:24:49 PM CEST)

parent 9439ba14
......@@ -47,7 +47,7 @@ showStackVal :: IsCapriconString str => (NodeDoc str -> str) -> NodeDir str (COC
showStackVal toRaw dir ctx = fix $ \go _x -> case _x of
StackCOC _x -> case _x of
COCExpr (NormalTerm (NormalType _ c _) e) -> -- "<"+show d+">:"+
fromString (show c) + toRaw (showNode' dir (map (second snd) $ takeLast (length c) (freshContext ctx)) e)
toRaw (showNode' dir (map (second snd) $ takeLast (length c) (freshContext ctx)) e)
COCNull -> "(null)"
COCError e -> "<!"+e+"!>"
COCDir d -> fromString $ show d
......
Supports Markdown
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