diff options
author | Péter Diviánszky <divipp@gmail.com> | 2016-02-29 11:42:54 +0100 |
---|---|---|
committer | Péter Diviánszky <divipp@gmail.com> | 2016-02-29 11:43:07 +0100 |
commit | 3f7ebace8562ff63e030f19af2841f9c2a537bc3 (patch) | |
tree | ca8018c7eddf26b2aecab953c9fd2ccf343fa5c6 /src/LambdaCube/Compiler/Pretty.hs | |
parent | 1e7cd49b76c0764b9e424aa6702929005c235cb9 (diff) |
dependency change: pretty-compact --> wl-pprint
Diffstat (limited to 'src/LambdaCube/Compiler/Pretty.hs')
-rw-r--r-- | src/LambdaCube/Compiler/Pretty.hs | 10 |
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 | ||
18 | import Data.String | ||
17 | import Data.Set (Set) | 19 | import Data.Set (Set) |
18 | import qualified Data.Set as Set | 20 | import qualified Data.Set as Set |
19 | import Data.Map (Map) | 21 | import Data.Map (Map) |
@@ -21,11 +23,15 @@ import qualified Data.Map as Map | |||
21 | import Control.Monad.Except | 23 | import Control.Monad.Except |
22 | import Debug.Trace | 24 | import Debug.Trace |
23 | 25 | ||
24 | import Text.PrettyPrint.Compact | 26 | import Text.PrettyPrint.Leijen |
25 | 27 | ||
26 | -------------------------------------------------------------------------------- | 28 | -------------------------------------------------------------------------------- |
27 | 29 | ||
28 | --instance IsString Doc where fromString = text | 30 | instance IsString Doc where fromString = text |
31 | |||
32 | instance Monoid Doc where | ||
33 | mempty = empty | ||
34 | mappend = (<>) | ||
29 | 35 | ||
30 | class PShow a where | 36 | class PShow a where |
31 | pShowPrec :: Int -> a -> Doc | 37 | pShowPrec :: Int -> a -> Doc |