From a8122405bfcc9bae5c3e1cc7f3c5bcb907690b13 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 2 Apr 2014 09:31:48 -0700
Subject: [PATCH] I see, polymorphic let bindings need a proper type sig

---
 hledger/Hledger/Cli/Main.hs | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/hledger/Hledger/Cli/Main.hs b/hledger/Hledger/Cli/Main.hs
index 0a3e74905..1750e4cba 100644
--- a/hledger/Hledger/Cli/Main.hs
+++ b/hledger/Hledger/Cli/Main.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE NoMonomorphismRestriction #-} -- for dbgM
 {-|
 hledger - a ledger-compatible accounting tool.
 Copyright (c) 2007-2011 Simon Michael <simon@joyful.com>
@@ -187,10 +186,8 @@ main = do
     isNullCommand        = null rawcmd
     (argsbeforecmd, argsaftercmd') = break (==rawcmd) args
     argsaftercmd         = drop 1 argsaftercmd'
-
-    dbglevel = 2
-    dbg      = dbgAt dbglevel
-    dbgM     = \a b -> dbg a b `seq` return () -- requires NoMonomorphismRestriction
+    dbgM :: Show a => String -> a -> IO ()
+    dbgM = dbgAtM 2
 
   dbgM "running" prognameandversion
   dbgM "raw args" args