summaryrefslogtreecommitdiff
path: root/src/LambdaCube/Compiler/Pretty.hs
diff options
context:
space:
mode:
authorPéter Diviánszky <divipp@gmail.com>2016-02-29 11:42:54 +0100
committerPéter Diviánszky <divipp@gmail.com>2016-02-29 11:43:07 +0100
commit3f7ebace8562ff63e030f19af2841f9c2a537bc3 (patch)
treeca8018c7eddf26b2aecab953c9fd2ccf343fa5c6 /src/LambdaCube/Compiler/Pretty.hs
parent1e7cd49b76c0764b9e424aa6702929005c235cb9 (diff)
dependency change: pretty-compact --> wl-pprint
Diffstat (limited to 'src/LambdaCube/Compiler/Pretty.hs')
-rw-r--r--src/LambdaCube/Compiler/Pretty.hs10
1 files changed, 8 insertions, 2 deletions
diff --git a/src/LambdaCube/Compiler/Pretty.hs b/src/LambdaCube/Compiler/Pretty.hs
index 63fd85d4..2fa539a3 100644
--- a/src/LambdaCube/Compiler/Pretty.hs
+++ b/src/LambdaCube/Compiler/Pretty.hs
@@ -12,8 +12,10 @@ module LambdaCube.Compiler.Pretty
12 , punctuate 12 , punctuate
13 , tupled, braces, parens 13 , tupled, braces, parens
14 , text 14 , text
15 , nest
15 ) where 16 ) where
16 17
18import Data.String
17import Data.Set (Set) 19import Data.Set (Set)
18import qualified Data.Set as Set 20import qualified Data.Set as Set
19import Data.Map (Map) 21import Data.Map (Map)
@@ -21,11 +23,15 @@ import qualified Data.Map as Map
21import Control.Monad.Except 23import Control.Monad.Except
22import Debug.Trace 24import Debug.Trace
23 25
24import Text.PrettyPrint.Compact 26import Text.PrettyPrint.Leijen
25 27
26-------------------------------------------------------------------------------- 28--------------------------------------------------------------------------------
27 29
28--instance IsString Doc where fromString = text 30instance IsString Doc where fromString = text
31
32instance Monoid Doc where
33 mempty = empty
34 mappend = (<>)
29 35
30class PShow a where 36class PShow a where
31 pShowPrec :: Int -> a -> Doc 37 pShowPrec :: Int -> a -> Doc