diff options
| author | adelon <22380201+adelon@users.noreply.github.com> | 2025-07-02 20:33:43 +0200 |
|---|---|---|
| committer | adelon <22380201+adelon@users.noreply.github.com> | 2025-07-02 20:33:43 +0200 |
| commit | 9167b044c2f91ebdea2bfc01f18d655256b83bfa (patch) | |
| tree | 9ebb8f7e3a40f90dafd90c93df42183540649566 /source/Syntax/Internal.hs | |
| parent | 793849dd0b20bc70ea0e0ecfd5008a3806eca0d9 (diff) | |
Add TODO
Diffstat (limited to 'source/Syntax/Internal.hs')
| -rw-r--r-- | source/Syntax/Internal.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/source/Syntax/Internal.hs b/source/Syntax/Internal.hs index c098380..6a53aa6 100644 --- a/source/Syntax/Internal.hs +++ b/source/Syntax/Internal.hs @@ -158,6 +158,7 @@ annotateWith = go go :: (Ord a) => Set a -> HashMap StructSymbol a -> ExprOf a -> ExprOf a go labels ops = \case TermSymbolStruct symb Nothing -> + -- TODO error if symbol is not instantiated, but only in theorems? TermSymbolStruct symb (TermVar <$> HM.lookup symb ops) e@TermSymbolStruct{} -> e |