From c67be0ab62db5efa8eb4a22e9a2cbc73c1588015 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Thu, 19 Mar 2015 18:53:41 -0700
Subject: [PATCH] perf opt + remove untyped from logger-typed

---
 quad/logger-typed.rkt | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/quad/logger-typed.rkt b/quad/logger-typed.rkt
index 7594ffb0..fe7e56b0 100644
--- a/quad/logger-typed.rkt
+++ b/quad/logger-typed.rkt
@@ -1,9 +1,6 @@
-#lang typed/racket/base
-(require (for-syntax racket/base))
-(require/typed "world-typed.rkt" [world:logging-level (Parameterof Log-Level)])
-(require/typed racket/date [current-date (-> Any)]
-               [date->string ((Any) (Any) . ->* . String)])
-(require racket/match)
+#lang typed/racket
+(require (for-syntax typed/racket/base))
+(require typed/racket/date "world-typed.rkt")
 (provide (all-defined-out))
 
 (define-syntax-rule (define-orphan-logger name)