Fix some warnings
This commit is contained in:
parent
fa8ea8424b
commit
aeb58c6f28
@ -1,20 +1,10 @@
|
|||||||
packages: .
|
packages: .
|
||||||
allow-newer:
|
allow-newer:
|
||||||
react-haskell:void,
|
|
||||||
ghcjs-base,
|
ghcjs-base,
|
||||||
aeson,
|
aeson,
|
||||||
attoparsec,
|
attoparsec,
|
||||||
lens
|
lens
|
||||||
|
|
||||||
packages react-haskell
|
|
||||||
flags: +ghcjs
|
|
||||||
build-depends: ghcjs-dom,
|
|
||||||
ghcjs-base
|
|
||||||
|
|
||||||
package reflex-dom
|
|
||||||
flags: -webkit2gtk
|
|
||||||
|
|
||||||
|
|
||||||
constraints:
|
constraints:
|
||||||
--TODO: This should be pinned in reflex-platform
|
--TODO: This should be pinned in reflex-platform
|
||||||
--TODO: Make sure to pin both of these
|
--TODO: Make sure to pin both of these
|
||||||
|
14
src/React.hs
14
src/React.hs
@ -11,9 +11,6 @@ import Prelude hiding ((!!))
|
|||||||
|
|
||||||
import Data.Text (Text)
|
import Data.Text (Text)
|
||||||
import qualified Data.Text as T
|
import qualified Data.Text as T
|
||||||
import qualified Data.Text.IO as T
|
|
||||||
import Language.Javascript.JSaddle hiding (Ref)
|
|
||||||
import Control.Monad.IO.Class
|
|
||||||
import Data.Map (Map)
|
import Data.Map (Map)
|
||||||
import qualified Data.Map as Map
|
import qualified Data.Map as Map
|
||||||
import Control.Monad
|
import Control.Monad
|
||||||
@ -21,12 +18,15 @@ import Control.Monad.Except
|
|||||||
import Control.Monad.Reader
|
import Control.Monad.Reader
|
||||||
import Data.String
|
import Data.String
|
||||||
|
|
||||||
#ifndef ghcjs_HOST_OS
|
#ifdef ghcjs_HOST_OS
|
||||||
import GHCJS.Prim.Internal (primToJSVal)
|
|
||||||
import Data.Coerce (coerce)
|
import Data.Coerce (coerce)
|
||||||
#else
|
|
||||||
import GHCJS.Foreign.Callback
|
import GHCJS.Foreign.Callback
|
||||||
import qualified JavaScript.Array as Array (toListIO, fromListIO)
|
import qualified JavaScript.Array as Array (toListIO)
|
||||||
|
import Language.Javascript.JSaddle
|
||||||
|
#else
|
||||||
|
import GHCJS.Prim.Internal (primToJSVal)
|
||||||
|
import qualified Data.Text.IO as T
|
||||||
|
import Language.Javascript.JSaddle hiding (Ref)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
t :: Text -> Text
|
t :: Text -> Text
|
||||||
|
Loading…
Reference in New Issue
Block a user