@@ -1,9 +1,10 @@
11-- Copyright Corey O'Connor<coreyoconnor@gmail.com>
2−{-# LANGUAGE RankNTypes #-}
3−{-# LANGUAGE TemplateHaskell #-}
42{-# LANGUAGE BangPatterns #-}
3+{-# LANGUAGE CPP #-}
54{-# LANGUAGE ExistentialQuantification #-}
65{-# LANGUAGE NamedFieldPuns #-}
6+{-# LANGUAGE RankNTypes #-}
7+{-# LANGUAGE TemplateHaskell #-}
78{- | Transforms an image into rows of operations.
89 -}
910module Graphics.Vty.PictureToSpans where
@@ -18,7 +19,10 @@ import Graphics.Vty.Span
1819import Control.Lens hiding ( op )
1920import Control.Monad.Reader
2021import Control.Monad.State.Strict hiding ( state )
22+
23+#if __GLASGOW_HASKELL__ < 708
2124import Control.Monad.ST.Strict hiding ( unsafeIOToST )
25+#endif
2226
2327import qualified Data.Vector as Vector hiding ( take, replicate )
2428import Data.Monoid (mappend)