Enable FlexibleContexts and import Control.Monad.State (#164)

* Enable FlexibleContexts and import Control.Monad.State

* Import Control.Monad
This commit is contained in:
David Himmelstrup 2020-09-19 09:34:48 +08:00 committed by GitHub
commit ff880e7296
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -364,6 +364,7 @@ withHaskellFile m action = withSystemTempFile "playground.hs" $ \target h -> do
hClose h hClose h
T.writeFile target T.writeFile target
"{-# LANGUAGE OverloadedStrings #-}\n\ "{-# LANGUAGE OverloadedStrings #-}\n\
\{-# LANGUAGE FlexibleContexts #-}\n\
\module Animation where\n\ \module Animation where\n\
\import Reanimate\n\ \import Reanimate\n\
\import Reanimate.Builtin.Documentation\n\ \import Reanimate.Builtin.Documentation\n\
@ -378,12 +379,14 @@ withHaskellFile m action = withSystemTempFile "playground.hs" $ \target h -> do
\import Reanimate.Scene\n\ \import Reanimate.Scene\n\
\import qualified Graphics.SvgTree as SVG\n\ \import qualified Graphics.SvgTree as SVG\n\
\import Control.Lens\n\ \import Control.Lens\n\
\import Control.Monad\n\
\import qualified Data.Text as T\n\ \import qualified Data.Text as T\n\
\import Linear.V2\n\ \import Linear.V2\n\
\import Linear.Metric\n\ \import Linear.Metric\n\
\import Linear.Vector\n\ \import Linear.Vector\n\
\import Text.Printf\n\ \import Text.Printf\n\
\import Codec.Picture.Types\n\ \import Codec.Picture.Types\n\
\import Control.Monad.State\n\
\-- Used for testing:\n\ \-- Used for testing:\n\
\-- import System.IO.Unsafe\n\ \-- import System.IO.Unsafe\n\
\-- import Control.Concurrent\n\ \-- import Control.Concurrent\n\