overload 0.1.0.1 → 0.1.0.2

raw patch · 3 files changed

+2/−6 lines, 3 filesdep −containers

Dependencies removed: containers

Files

overload.cabal +1/−2
src/Overload.hs +1/−1
src/Overload/Diff.hs +0/−3

overload.cabal view

@@ -1,5 +1,5 @@ name:                overload-version:             0.1.0.1+version:             0.1.0.2 synopsis:            Finite overloading description:         Provides a mechanism for finite overloading homepage:            https://gitlab.com/LukaHorvat/overload@@ -23,7 +23,6 @@   build-depends:       base >= 4.7 && < 5                      , template-haskell                      , simple-effects-                     , containers                      , th-expand-syns   default-language:    Haskell2010   ghc-options:         -Wall

src/Overload.hs view

@@ -93,7 +93,7 @@ overload :: String -> [Name] -> Q [Dec]
 overload functionName overloadNames = do
     infos <- mapM reify overloadNames
-    overloads <- sequence [(n,) <$> expandSyns t | VarI n t _ <- infos]
+    overloads <- sequence [(n,) <$> expandSynsWith noWarnTypeFamilies t | VarI n t _ <- infos]
     let className = toUpper (head functionName) : tail functionName
         classDec = ClassD [] (mkName className) [PlainTV (mkName "t")] []
                           [SigD (mkName functionName) (VarT (mkName "t"))]

src/Overload/Diff.hs view

@@ -1,10 +1,7 @@ {-# LANGUAGE LambdaCase #-}
 module Overload.Diff where
 
-import qualified Data.Set as Set
-import Data.List (foldl1')
 import Data.Either (partitionEithers)
-import Debug.Trace
 
 import Overload.TypeTree