slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

I see, polymorphic let bindings need a proper type sig

Browse Source
This commit is contained in:
Simon Michael 2014-04-02 09:31:48 -07:00
parent 577ff7902c
commit a8122405bf
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
hledger/Hledger/Cli/Main.hs
View File

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