Fetch volume information from fritz instead of deleuze

* Ideally we'd be parsing the output of `vos examine {user,mail}.$USER

diff --git a/quotas.sml b/quotas.sml
index 84515b5..da39509 100644 (file)
--- a/quotas.sml
+++ b/quotas.sml
@@ -2,7 +2,7 @@ structure Quotas :> QUOTAS =
 struct
     fun getQuotas uname =
        let
-           val proc = Unix.execute ("/bin/sh", ["-c", "/usr/bin/vos listvol -long deleuze"])
+           val proc = Unix.execute ("/bin/sh", ["-c", "/usr/bin/vos listvol -long fritz"])
            val inf = Unix.textInstreamOf proc
 
            fun eatUntilBlankLine () =