Skip to content

Commit

Permalink
Fix compatibility with th-orphans >= 0.12.
Browse files Browse the repository at this point in the history
  • Loading branch information
mainland committed Jun 24, 2015
1 parent 1bd67e0 commit 980a6da
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion src/Language/Haskell/Meta/Utils.hs
Original file line number Diff line number Diff line change
Expand Up @@ -63,13 +63,14 @@ instance Show TypeQ where show = show . cleanNames . unsafeRunQ
instance Show (Q String) where show = unsafeRunQ
instance Show (Q Doc) where show = show . unsafeRunQ

#if !MIN_VERSION_th_orphans(0,12,0)
#if MIN_VERSION_base(4,7,0)
deriving instance Typeable Q
#else
deriving instance Typeable1 Q
#endif
deriving instance Typeable QuasiQuoter

#endif

-- | @unsafeRunQ = unsafePerformIO . runQ@
unsafeRunQ :: Q a -> a
Expand Down

0 comments on commit 980a6da

Please sign in to comment.