Make work with latest Platform

CleanRegex @ 2b218a3b

-Subproject commit 31eced6fd86e6e6ef4cd614bd77bc69a2127e89c
+Subproject commit 2b218a3ba95aef3497fe99efcb03afc41f93ee0f

Cloogle/DB.icl

@@ -17,7 +17,7 @@ import Control.Applicative
 import Control.Monad
 import Data.Bifunctor
 import Data.Error
-from Data.Foldable import class Foldable(foldr1)
+from Data.Foldable import class Foldable(foldr1())
 from Data.Func import $, on, `on`, mapSt
 import Data.Functor
 import Data.GenLexOrd
@@ -27,6 +27,7 @@ from Data.List import concatMap, groupBy, intercalate, intersect, partition,
 from Data.Map import :: Map(..), elems, filterWithKey, foldrNoKey,
 	foldrWithKey, fromList, get, mapSize, alter, mapWithKey, newMap, put,
 	toAscList, toList, instance Functor (Map k)
+import Data.Map.GenJSON
 import Data.Maybe
 import Data.NGramIndex
 import qualified Data.NGramIndex

Cloogle/DB/Factory.icl

@@ -36,7 +36,7 @@ import Control.Applicative
 import Control.Monad
 import Data.Either
 import Data.Error
-from Data.Foldable import class Foldable(foldr1)
+from Data.Foldable import class Foldable(foldr1())
 from Data.Func import $, mapSt, on, `on`, instance Functor ((->) a)
 import Data.Functor
 import Data.GenDefault

Cloogle/Search/Rank.icl

@@ -11,7 +11,7 @@ import StdString
 
 import Clean.Types
 import Data.Error
-from Data.Foldable import class Foldable(foldr1)
+from Data.Foldable import class Foldable(foldr1())
 from Data.Func import $
 import Data.Functor
 from Data.GenLexOrd import :: LexOrd, generic gLexOrd