1 files changed, 1 insertions, 0 deletions
diff --git a/main/Test.hs b/main/Test.hs
index 30f6356..42e9c94 100644
--- a/main/Test.hs
+++ b/main/Test.hs
@@ -380,6 +380,7 @@ cmdLoadType = do
     let otype = case obj of
             Blob {} -> "blob"
             Rec {} -> "rec"
+            OnDemand {} -> "ondemand"
             ZeroObject {} -> "zero"
             UnknownObject utype _ -> "unknown " <> decodeUtf8 utype
     cmdOut $ "load-type " <> T.unpack otype