picnoir/hnix
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Add a comment about future work to Frame.hs

Browse source
This commit is contained in:
John Wiegley 2018-04-25 20:22:40 -07:00
parent 7759d171e8
commit 3ddba86a78
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Nix/Render/Frame.hs
View file

@ -78,6 +78,8 @@ renderFrame (NixFrame level f)
| Just (_ :: NormalLoop m) <- fromFrame f =
pure [text "<<loop during normalization>>"]
| Just (e :: ExecFrame m) <- fromFrame f = renderExecFrame level e
-- jww (2018-04-25): Only render the string if it's level matches the
-- verbosity level.
| Just (e :: String) <- fromFrame f = pure [text e]
| Just (e :: Doc) <- fromFrame f = pure [e]
| otherwise = error $ "Unrecognized frame: " ++ show f