reactive-glut 0.1.0 → 0.1.1

raw patch · 2 files changed

+5/−5 lines, 2 files

Files

• reactive-glut.cabal +1/−1
• src/FRP/Reactive/GLUT/Adapter.hs +4/−4

@@ -1,5 +1,5 @@ Name:                reactive-glut-Version:             0.1.0+Version:             0.1.1 Cabal-Version:       >= 1.2 Synopsis:            Connects Reactive and GLUT Category:            FRP, graphics

@@ -61,10 +61,10 @@        case (k,ks) of          (G.MouseButton G.LeftButton ,G.Down) -> leftDownSink  ()          (G.MouseButton G.RightButton,G.Down) -> rightDownSink ()-         (G.Char c      ,G.Down) -> keyActionSink ((Down, Char c))-         (G.SpecialKey s,G.Down) -> keyActionSink ((Down, SpecialKey s))-         (G.Char c      ,G.Up) -> keyActionSink ((Up, Char c))-         (G.SpecialKey s,G.Up) -> keyActionSink ((Up, SpecialKey s))+         (G.Char c      ,G.Down) -> keyActionSink (Down, Char c)+         (G.SpecialKey s,G.Down) -> keyActionSink (Down, SpecialKey s)+         (G.Char c      ,G.Up)   -> keyActionSink (Up  , Char c)+         (G.SpecialKey s,G.Up)   -> keyActionSink (Up  , SpecialKey s)          _ -> return ()       )      updater <- mkUpdater