Sat Dec 20 10:43:54 WET 2008 hpacheco@gmail.com
* refined with HLint 0.1
{
hunk ./src/Debug/Observe.hs 110
-printO expr = runO (print expr)
+printO = runO . print
hunk ./src/Debug/Observe.hs 114
-putStrO expr = runO (putStr expr)
+putStrO = runO . putStr
hunk ./src/Debug/Observe.hs 155
-observeBase lit cxt = seq lit $ send (show lit) (return lit) cxt
+observeBase lit = seq lit . send (show lit) (return lit)
hunk ./src/Debug/Observe.hs 161
-observeOpaque str val cxt = seq val $ send str (return val) cxt
+observeOpaque str val = seq val . send str (return val)
hunk ./src/Debug/Observe.hs 236
- observers label arg = defaultObservers label arg
+ observers = defaultObservers
hunk ./src/Debug/Observe.hs 250
- ; return (observer_ a (Parent
+ ; return (observer_ a Parent
hunk ./src/Debug/Observe.hs 253
- }))
+ })
hunk ./src/Debug/Observe.hs 256
- (Parent
+ Parent
hunk ./src/Debug/Observe.hs 259
- }))
+ })
hunk ./src/Debug/Observe.hs 261
-defaultFnObservers :: (Observable a,Observable b) [_$_]
- => String -> (Observer -> a -> b) -> a -> b
+defaultFnObservers :: (Observable a,Observable b) => String -> (Observer -> a -> b) -> a -> b
hunk ./src/Debug/Observe.hs 268
- ; return (observer_ a (Parent
+ ; return (observer_ a Parent
hunk ./src/Debug/Observe.hs 271
- }))
+ })
hunk ./src/Debug/Observe.hs 274
- (Parent
+ Parent
hunk ./src/Debug/Observe.hs 277
- }) arg)
+ } arg)
hunk ./src/Debug/Observe.hs 295
- ( observer_ a (Parent
+ ( observer_ a Parent
hunk ./src/Debug/Observe.hs 298
- }) [_$_]
+ }
hunk ./src/Debug/Observe.hs 310
-observe name a = generateContext name a [_$_]
+observe = generateContext [_$_]
hunk ./src/Debug/Observe.hs 319
-observer_ a context = sendEnterPacket a context
+observer_ = sendEnterPacket
hunk ./src/Debug/Observe.hs 339
- ; return (observer_ orig (Parent
+ ; return (observer_ orig Parent
hunk ./src/Debug/Observe.hs 342
- })
+ }
hunk ./src/Debug/Observe.hs 483
- res i = (!) out_arr i
+ res = (!) out_arr
hunk ./src/Debug/Observe.hs 517
- if (par && not needParen) [_$_]
+ if par && not needParen
hunk ./src/Debug/Observe.hs 692
-nil = NIL
-x <> y = x :<> y
-nest i x = NEST i x
-text s = TEXT s
-line = LINE
-sep = SEP
-brk = BREAK
+nil = NIL
+x <> y = x :<> y
+nest = NEST
+text = TEXT
+line = LINE
+sep = SEP
+brk = BREAK
hunk ./src/Debug/Observe.hs 746
-pretty :: Int -> DOC -> String
-pretty w x = layout (best w 0 x)
+pretty :: Int -> DOC -> String
+pretty w = layout . best w 0
hunk ./src/Debug/Observe.hs 766
- (show (portId e))
- ++" "++(show (observeParent (parent e)))
- ++" "++(show (observePort (parent e)))
- ++" "++(case change e of
- { Observe s -> "Observe |"++s
- ; Cons n s -> "Cons "++(show n)++" |"++s
+ show (portId e)
+ ++ " " ++ show (observeParent (parent e))
+ ++ " " ++ show (observePort (parent e))
+ ++ " " ++ (case change e of
+ { Observe s -> "Observe |" ++ s
+ ; Cons n s -> "Cons " ++ show n ++ " |" ++ s
}