Commit dcdf4574 authored by Vaibhav Sagar's avatar Vaibhav Sagar

ihaskell-widgets: support singletons-3.0

parent 00dbaa52
...@@ -112,6 +112,9 @@ library ...@@ -112,6 +112,9 @@ library
-- so let cabal choose the right one. -- so let cabal choose the right one.
, singletons -any , singletons -any
if impl (ghc >= 9.0)
build-depends: singletons-base -any
-- Directories containing source files. -- Directories containing source files.
hs-source-dirs: src hs-source-dirs: src
......
...@@ -18,11 +18,13 @@ ...@@ -18,11 +18,13 @@
module IHaskell.Display.Widgets.Singletons where module IHaskell.Display.Widgets.Singletons where
#if MIN_VERSION_singletons(3,0,0)
import Data.Singletons.Base.TH
#elif MIN_VERSION_singletons(2,4,0)
import Data.Singletons.TH import Data.Singletons.TH
#if MIN_VERSION_singletons(2,4,0)
#else #else
import Data.Singletons.Prelude.Ord import Data.Singletons.Prelude.Ord
import Data.Singletons.TH
#endif #endif
-- Widget properties -- Widget properties
......
...@@ -85,13 +85,19 @@ import Data.Vinyl.Functor (Compose(..), Const(..)) ...@@ -85,13 +85,19 @@ import Data.Vinyl.Functor (Compose(..), Const(..))
import Data.Vinyl.Lens (rget, rput, type ()) import Data.Vinyl.Lens (rget, rput, type ())
import Data.Vinyl.TypeLevel (RecAll) import Data.Vinyl.TypeLevel (RecAll)
#if MIN_VERSION_singletons(2,4,0) #if MIN_VERSION_singletons(3,0,0)
import Data.List.Singletons
#elif MIN_VERSION_singletons(2,4,0)
import Data.Singletons.Prelude.List import Data.Singletons.Prelude.List
#else #else
import Data.Singletons.Prelude ((:++)) import Data.Singletons.Prelude ((:++))
#endif #endif
#if MIN_VERSION_singletons(3,0,0)
import Data.Singletons.Base.TH
#else
import Data.Singletons.TH import Data.Singletons.TH
#endif
import GHC.IO.Exception import GHC.IO.Exception
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment