fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

Removed redundant instances; adapted to new signature of TyVarBndr

Browse Source
This commit is contained in:
Stephan Barth 2024-01-25 18:29:53 +01:00
parent ca7ff4aafc
commit b054d3cbdd
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Language/Haskell/TH/Instances.hs
View File

@ -8,7 +8,7 @@ module Language.Haskell.TH.Instances
( (
) where ) where
import ClassyPrelude --import ClassyPrelude
import Language.Haskell.TH import Language.Haskell.TH
import Language.Haskell.TH.Syntax import Language.Haskell.TH.Syntax

4
src/System/Clock/Instances.hs
View File

@ -17,8 +17,8 @@ import Data.Fixed
import Control.Lens import Control.Lens
instance Real TimeSpec where --instance Real TimeSpec where
toRational TimeSpec{..} = fromIntegral sec + fromIntegral nsec % 1e9 -- toRational TimeSpec{..} = fromIntegral sec + fromIntegral nsec % 1e9
instance Fractional TimeSpec where instance Fractional TimeSpec where
a / b = fromRational $ toRational a / toRational b a / b = fromRational $ toRational a / toRational b

4
src/Utils/PathPiece.hs
View File

@ -186,8 +186,8 @@ derivePathPiece adt mangle joinPP = do
| n `elem` map tvarName constructorVars = False | n `elem` map tvarName constructorVars = False
| otherwise = any (elemOf types n) constructorFields | otherwise = any (elemOf types n) constructorFields
fieldTypes = nubOrd $ concatMap constructorFields datatypeCons fieldTypes = nubOrd $ concatMap constructorFields datatypeCons
tvarName (PlainTV n) = n tvarName (PlainTV n _) = n
tvarName (KindedTV n _) = n tvarName (KindedTV n _ _) = n
sequence . (finDecs ++ ) . pure $ sequence . (finDecs ++ ) . pure $
instanceD (cxt iCxt) [t|PathPiece $typ|] instanceD (cxt iCxt) [t|PathPiece $typ|]
[ funD 'toPathPiece [ funD 'toPathPiece