@@ -1,9 +1,10 @@
1-- Copyright Corey O'Connor<coreyoconnor@gmail.com>
1-- Copyright Corey O'Connor<coreyoconnor@gmail.com>
2−{-# LANGUAGE RankNTypes #-}
3−{-# LANGUAGE TemplateHaskell #-}
4{-# LANGUAGE BangPatterns #-}
2{-# LANGUAGE BangPatterns #-}
5{-# LANGUAGE ExistentialQuantification #-}
4{-# LANGUAGE ExistentialQuantification #-}
6{-# LANGUAGE NamedFieldPuns #-}
5{-# LANGUAGE NamedFieldPuns #-}
6+{-# LANGUAGE RankNTypes #-}
7+{-# LANGUAGE TemplateHaskell #-}
7{- | Transforms an image into rows of operations.
8{- | Transforms an image into rows of operations.
9module Graphics.Vty.PictureToSpans where
10module Graphics.Vty.PictureToSpans where
@@ -18,7 +19,10 @@ import Graphics.Vty.Span
18import Control.Lens hiding ( op )
19import Control.Lens hiding ( op )
19import Control.Monad.Reader
20import Control.Monad.Reader
20import Control.Monad.State.Strict hiding ( state )
21import Control.Monad.State.Strict hiding ( state )
23+#if __GLASGOW_HASKELL__ < 708
21import Control.Monad.ST.Strict hiding ( unsafeIOToST )
24import Control.Monad.ST.Strict hiding ( unsafeIOToST )
23import qualified Data.Vector as Vector hiding ( take, replicate )
27import qualified Data.Vector as Vector hiding ( take, replicate )
24import Data.Monoid (mappend)
28import Data.Monoid (mappend)