on master help sign in
update for GHC 7

Ignore-this: 71a8e277cf261934c1f0d25337ba9f03 darcs-hash:20101013001131-f0a0d-e4b5888da6009714d608a31180e832d228537713.gz

commit9ee7d784ff2236c0caf74dd6deec44817d52e43d authorcoreyoconnor <coreyoconnor@gmail.com> dateTue 12 Oct 2010, 17:11 (16 years ago) parent43b9e06
2 files changed+5−7
src/Graphics/Vty/Terminal/Generic.hs+3−4 vty.cabal+2−3
src/Graphics/Vty/Terminal/Generic.hs+3−4
@@ -1,6 +1,6 @@
11-- Copyright 2009-2010 Corey O'Connor
2+{-# LANGUAGE RankNTypes #-}
23{-# LANGUAGE ScopedTypeVariables #-}
3−{-# LANGUAGE Rank2Types #-}
44{-# LANGUAGE ExistentialQuantification #-}
55{-# LANGUAGE GADTs #-}
66{-# LANGUAGE FlexibleContexts #-}
@@ -98,7 +98,7 @@ instance Terminal TerminalHandle where
9898 output_handle (TerminalHandle t _) = output_handle t
9999
100100data DisplayHandle where
101− DisplayHandle :: DisplayTerminal d => d -> TerminalHandle -> DisplayState -> DisplayHandle
101+ DisplayHandle :: forall d . DisplayTerminal d => d -> TerminalHandle -> DisplayState -> DisplayHandle
102102
103103-- | Acquire display access to the given region of the display.
104104-- Currently all regions have the upper left corner of (0,0) and the lower right corner at
@@ -106,8 +106,7 @@ data DisplayHandle where
106106display_context :: MonadIO m => TerminalHandle -> DisplayRegion -> m DisplayHandle
107107display_context t b = do
108108 s <- initial_display_state
109− let c d = DisplayHandle d t s
110− display_terminal_instance t b c
109+ display_terminal_instance t b (\ d -> DisplayHandle d t s)
111110
112111data DisplayState = DisplayState
113112 { previous_output_ref :: IORef (Maybe SpanOpSequence)
vty.cabal+2−3
@@ -29,11 +29,10 @@ Description:
2929Build-Depends: base >= 4 && < 5, bytestring, containers, unix
3030Build-Depends: terminfo >= 0.3 && < 0.4
3131Build-Depends: utf8-string >= 0.3 && < 0.4
32−Build-Depends: mtl >= 1.1.0.0 && < 1.2
33−Build-Depends: ghc-prim, parallel >= 2.2 && < 2.3, deepseq >= 1.1 && < 1.2
32+Build-Depends: mtl >= 1.1.1.0 && < 1.2
33+Build-Depends: ghc-prim, parallel == 3.1.0.1, deepseq >= 1.1 && < 1.2
3434Build-Depends: array
3535Build-Depends: parsec >= 2 && < 4
36−Build-Depends: vector-space >= 0.5 && < 0.6
3736Build-Type: Simple
3837Data-Files: README, TODO
3938Exposed-Modules: Graphics.Vty