on master help sign in
API: use minimal exports from Output module, don't re-export Interface
d2afe83Jonathan Daugherty
src/Graphics/Vty.hs+1
@@ -54,6 +54,7 @@ module Graphics.Vty
54 , module Graphics.Vty.Config
54 , module Graphics.Vty.Config
55 , module Graphics.Vty.Input
55 , module Graphics.Vty.Input
56 , module Graphics.Vty.Output
56 , module Graphics.Vty.Output
57+ , module Graphics.Vty.Output.Interface
57 , module Graphics.Vty.Picture
58 , module Graphics.Vty.Picture
58 , module Graphics.Vty.Image
59 , module Graphics.Vty.Image
59 , module Graphics.Vty.Attributes
60 , module Graphics.Vty.Attributes
src/Graphics/Vty/Inline.hs−1
@@ -43,7 +43,6 @@ where
43import Graphics.Vty
43import Graphics.Vty
44import Graphics.Vty.DisplayAttributes
44import Graphics.Vty.DisplayAttributes
45import Graphics.Vty.Inline.Unsafe
45import Graphics.Vty.Inline.Unsafe
46−import Graphics.Vty.Output.Interface
47
46
48import Blaze.ByteString.Builder (writeToByteString)
47import Blaze.ByteString.Builder (writeToByteString)
49
48
src/Graphics/Vty/Output.hs+5−7
@@ -1,6 +1,6 @@
1{-# LANGUAGE RecordWildCards #-}
1{-# LANGUAGE RecordWildCards #-}
2{-# LANGUAGE NamedFieldPuns #-}
2{-# LANGUAGE NamedFieldPuns #-}
3−-- | Output interface.
3+-- | Output functions.
4--
4--
5-- Access to the current terminal or a specific terminal device.
5-- Access to the current terminal or a specific terminal device.
6--
6--
@@ -23,12 +23,10 @@
23-- where TERM == xterm. This does use terminfo for as many control codes
23-- where TERM == xterm. This does use terminfo for as many control codes
24-- as possible.
24-- as possible.
25module Graphics.Vty.Output
25module Graphics.Vty.Output
26− ( module Graphics.Vty.Output
26+ ( outputForConfig
27− , Output(..) -- \todo hide constructors
27+ , setCursorPos
28− , AssumedState(..)
28+ , hideCursor
29− , DisplayContext(..) -- \todo hide constructors
29+ , showCursor
30− , outputPicture
31− , displayContext
32 )
30 )
33where
31where
34
32
src/Graphics/Vty/Output/Interface.hs+11−1
@@ -11,7 +11,17 @@
11#defined MIN_VERSION_base(x,y,z) 1
11#defined MIN_VERSION_base(x,y,z) 1
12#endif
12#endif
13
13
14−module Graphics.Vty.Output.Interface where
14+module Graphics.Vty.Output.Interface
15+ ( Output(..)
16+ , AssumedState(..)
17+ , DisplayContext(..)
18+ , Mode(..)
19+ , displayContext
20+ , outputPicture
21+ , initialAssumedState
22+ , limitAttrForDisplay
23+ )
24+where
15
25
16import Graphics.Vty.Attributes
26import Graphics.Vty.Attributes
17import Graphics.Vty.Image (DisplayRegion, regionHeight)
27import Graphics.Vty.Image (DisplayRegion, regionHeight)