@@ -1,6 +1,10 @@
1−{-# LANGUAGE OverlappingInstances, FlexibleInstances, OverloadedStrings,
2− ScopedTypeVariables, DeriveDataTypeable #-}
31{-# OPTIONS_GHC -fno-warn-orphans #-}
2+{-# LANGUAGE FlexibleInstances, OverloadedStrings,
3+ ScopedTypeVariables, DeriveDataTypeable, CPP #-}
4+#if MIN_VERSION_base(4,8,0)
5+#else
6+{-# LANGUAGE OverlappingInstances #-}
7+#endif
48{- Copyright (C) 2012-2015 John MacFarlane <jgm@berkeley.edu>
59
610This program is free software; you can redistribute it and/or modify
@@ -65,7 +69,11 @@ getList lua i' = do
6569 return (x : rest)
6670 else return []
6771
72+#if MIN_VERSION_base(4,8,0)
73+instance {-# OVERLAPS #-} StackValue a => StackValue [a] where
74+#else
6875instance StackValue a => StackValue [a] where
76+#endif
6977 push lua xs = do
7078 Lua.createtable lua (length xs + 1) 0
7179 let addValue (i, x) = Lua.push lua x >> Lua.rawseti lua (-2) i