API: use minimal exports from Output module, don't re-export Interface
This change effectively halts the re-export of the Output.Interface
module from Output, requiring users of the interface to import it
explicitly (or import Graphics.Vty). This change also adds an explicit
export list to Output.Interface.
commitd2afe832bab63096cb2e2e7a8a973b2d1af940e6
authorJonathan Daugherty <cygnus@foobox.com>
dateSun 22 Jan 2017, 10:03 (10 years ago)
parent453dc01
src/Graphics/Vty.hs+1
@@ -54,6 +54,7 @@ module Graphics.Vty
5454 , module Graphics.Vty.Config
5555 , module Graphics.Vty.Input
5656 , module Graphics.Vty.Output
57+ , module Graphics.Vty.Output.Interface
5758 , module Graphics.Vty.Picture
5859 , module Graphics.Vty.Image
5960 , module Graphics.Vty.Attributes
src/Graphics/Vty/Inline.hs−1
@@ -43,7 +43,6 @@ where
4343import Graphics.Vty
4444import Graphics.Vty.DisplayAttributes
4545import Graphics.Vty.Inline.Unsafe
46−import Graphics.Vty.Output.Interface
4746
4847import Blaze.ByteString.Builder (writeToByteString)
4948
src/Graphics/Vty/Output.hs+5−7
@@ -1,6 +1,6 @@
11{-# LANGUAGE RecordWildCards #-}
22{-# LANGUAGE NamedFieldPuns #-}
3−-- | Output interface.
3+-- | Output functions.
44--
55-- Access to the current terminal or a specific terminal device.
66--
@@ -23,12 +23,10 @@
2323-- where TERM == xterm. This does use terminfo for as many control codes
2424-- as possible.
2525module Graphics.Vty.Output
26− ( module Graphics.Vty.Output
27− , Output(..) -- \todo hide constructors
28− , AssumedState(..)
29− , DisplayContext(..) -- \todo hide constructors
30− , outputPicture
31− , displayContext
26+ ( outputForConfig
27+ , setCursorPos
28+ , hideCursor
29+ , showCursor
3230 )
3331where
3432
src/Graphics/Vty/Output/Interface.hs+11−1
@@ -11,7 +11,17 @@
1111#defined MIN_VERSION_base(x,y,z) 1
1212#endif
1313
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
1525
1626import Graphics.Vty.Attributes
1727import Graphics.Vty.Image (DisplayRegion, regionHeight)