aboutsummaryrefslogtreecommitdiff
path: root/src/CHAD/AST/Pretty.hs
diff options
context:
space:
mode:
authorTom Smeding <tom@tomsmeding.com>2025-11-10 22:31:56 +0100
committerTom Smeding <tom@tomsmeding.com>2025-11-10 22:31:56 +0100
commitcd135319f65f40a554d864b2a878a4ef44043a98 (patch)
treec51a5100b356ff4bf1a41a9b4b269faac3326850 /src/CHAD/AST/Pretty.hs
parent57eb321eaeabc53c8c8b83d0554d8a8cca6eed76 (diff)
hlint cleanup
Diffstat (limited to 'src/CHAD/AST/Pretty.hs')
-rw-r--r--src/CHAD/AST/Pretty.hs5
1 files changed, 1 insertions, 4 deletions
diff --git a/src/CHAD/AST/Pretty.hs b/src/CHAD/AST/Pretty.hs
index ea6ecba..9ddcb35 100644
--- a/src/CHAD/AST/Pretty.hs
+++ b/src/CHAD/AST/Pretty.hs
@@ -1,14 +1,10 @@
-{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveFunctor #-}
-{-# LANGUAGE EmptyCase #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE ImportQualifiedPost #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE TupleSections #-}
-{-# LANGUAGE TypeApplications #-}
-{-# LANGUAGE TypeOperators #-}
module CHAD.AST.Pretty (pprintExpr, ppExpr, ppSTy, ppSMTy, PrettyX(..)) where
import Control.Monad (ap)
@@ -523,4 +519,5 @@ render =
else renderString)
. layoutPretty LayoutOptions { layoutPageWidth = AvailablePerLine 120 1.0 }
where
+ {-# NOINLINE stdoutTTY #-}
stdoutTTY = unsafePerformIO $ hSupportsANSI stdout