1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
--------------------------------------------------------------------------------
module Language.Haskell.Stylish.Verbose
( Verbose
, makeVerbose
) where
--------------------------------------------------------------------------------
import System.IO (hPutStrLn, stderr)
--------------------------------------------------------------------------------
type Verbose = String -> IO ()
--------------------------------------------------------------------------------
makeVerbose :: Bool -> Verbose
makeVerbose verbose
| verbose = hPutStrLn stderr
| otherwise = const $ return ()
|
