fix warnings in copilot-core#694

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
yaitskov wants to merge 1 commit into
base:master
Choose a base branch
from
Open

fix warnings in copilot-core #694

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
34 changes: 19 additions & 15 deletions copilot-core/src/Copilot/Core/Type.hs
View file
Open in desktop
Original file line numberDiff line numberDiff line change
Expand Up@@ -45,21 +45,22 @@ module Copilot.Core.Type
where

-- External imports
import Data.Char (isLower, isUpper, toLower)
import Data.Coerce (coerce)
import Data.Int (Int16, Int32, Int64, Int8)
import Data.List (intercalate)
import Data.Proxy (Proxy (..))
import Data.Type.Equality as DE
import Data.Typeable (Typeable, eqT, typeRep)
import Data.Word (Word16, Word32, Word64, Word8)
import GHC.Generics (Datatype (..), D1, Generic (..), K1 (..), M1 (..),
U1 (..), (:*:) (..))
import GHC.TypeLits (KnownNat, KnownSymbol, Symbol, natVal, sameNat,
sameSymbol, symbolVal)
import Data.Char (isLower, isUpper, toLower)
import Data.Coerce (coerce)
import Data.Int (Int16, Int32, Int64, Int8)
import qualified Data.Kind as DK
import Data.List (intercalate)
import Data.Proxy (Proxy (..))
import Data.Type.Equality as DE
import Data.Typeable (Typeable, eqT, typeRep)
import Data.Word (Word16, Word32, Word64, Word8)
import GHC.Generics (D1, Datatype (..), Generic (..),
K1 (..), M1 (..), U1 (..), (:*:) (..))
import GHC.TypeLits (KnownNat, KnownSymbol, Symbol, natVal,
sameNat, sameSymbol, symbolVal)

-- Internal imports
import Copilot.Core.Type.Array (Array)
import Copilot.Core.Type.Array (Array)

-- | The value of that is a product or struct, defined as a constructor with
-- several fields.
Expand DownExpand Up@@ -139,7 +140,7 @@ instance {-# OVERLAPPABLE #-} (Typed t, Struct t) => Show t where
-- Note that both arrays and structs use dependently typed features. In the
-- former, the length of the array is part of the type. In the latter, the
-- names of the fields are part of the type.
data Type :: * -> * where
data Type :: DK.Type -> DK.Type where
Bool :: Type Bool
Int8 :: Type Int8
Int16 :: Type Int16
Expand All@@ -165,6 +166,7 @@ typeLength _ = fromIntegral $ natVal (Proxy :: Proxy n)
typeSize :: forall n t . KnownNat n => Type (Array n t) -> Int
typeSize ty@(Array ty'@(Array _)) = typeLength ty * typeSize ty'
typeSize ty@(Array _ ) = typeLength ty
typeSize ty = error $ "There is a bug in the type checker " ++ show ty

instance TestEquality Type where
testEquality Bool Bool = Just DE.Refl
Expand DownExpand Up@@ -286,7 +288,9 @@ instance Typed Double where

instance (Typeable t, Typed t, KnownNat n) => Typed (Array n t) where
typeOf = Array typeOf
simpleType (Array t) = SArray t
simpleType t = case t of
Array t' -> SArray t'
o -> error $ "There is a bug in the type checker " ++ show o

-- | A untyped type (no phantom type).
data UType = forall a . Typeable a => UType (Type a)
Expand Down
4 changes: 2 additions & 2 deletions copilot-core/src/Copilot/Core/Type/Array.hs
View file
Open in desktop
Original file line numberDiff line numberDiff line change
Expand Up@@ -53,12 +53,12 @@ arrayUpdate (Array []) _ _ = error errMsg
where
errMsg = "copilot-core: arrayUpdate: Attempt to update empty array"

arrayUpdate (Array (x:xs)) 0 y = Array (y:xs)
arrayUpdate (Array (_:xs)) 0 y = Array (y:xs)

arrayUpdate (Array (x:xs)) n y =
arrayAppend x (arrayUpdate (Array xs) (n - 1) y)
where
-- | Append to an array while preserving length information at the type
-- level.
arrayAppend :: a -> Array (n - 1) a -> Array n a
arrayAppend x (Array xs) = Array (x:xs)
arrayAppend x' (Array xs') = Array (x':xs')
7 changes: 4 additions & 3 deletions copilot-core/tests/Test/Copilot/Core/Type.hs
View file
Open in desktop
Original file line numberDiff line numberDiff line change
Expand Up@@ -7,7 +7,6 @@ module Test.Copilot.Core.Type where

-- External imports
import Data.Int (Int16, Int32, Int64, Int8)
import Data.Maybe (isJust)
import Data.Proxy (Proxy (..))
import Data.Type.Equality (TestEquality (..), testEquality,
(:~:) (..))
Expand DownExpand Up@@ -136,8 +135,10 @@ testSimpleTypesEqualityTransitive =
-- | Test that each type is only equal to itself.
testSimpleTypesEqualityUniqueness :: Property
testSimpleTypesEqualityUniqueness =
forAllBlind (shuffle simpleTypes) $ \(t:ts) ->
notElem t ts
forAllBlind (shuffle simpleTypes) $
\x -> case x of
[] -> False
(t:ts) -> notElem t ts

-- | Simple types tested.
simpleTypes :: [SimpleType]
Expand Down
8 changes: 4 additions & 4 deletions copilot-core/tests/Test/Copilot/Core/Type/Array.hs
View file
Open in desktop
Original file line numberDiff line numberDiff line change
Expand Up@@ -141,13 +141,13 @@ testArrayUpdateWrong len =
testArrayMakeWrongLength :: forall n . KnownNat n => Proxy n -> Property
testArrayMakeWrongLength len =
expectFailure $
forAll wrongLength $ \length ->
forAll (xsInt64 length) $ \ls ->
forAll wrongLength $ \lengt' ->
forAll (xsInt64 lengt') $ \ls ->
let array' :: Array n Int64
array' = array ls
in arrayElems array' == ls
where
xsInt64 length = vectorOf length arbitrary
xsInt64 lengt' = vectorOf lengt' arbitrary
expectedLength = fromIntegral (natVal len)
wrongLength = (expectedLength +) . getNonNegative <$> arbitrary

Expand All@@ -157,7 +157,7 @@ testArrayUpdateElems :: forall n . KnownNat n => Proxy n -> Property
testArrayUpdateElems len =
forAll xsInt64 $ \ls ->
forAll position $ \p ->
forAll xInt64 $ \v ->
forAll xInt64 $ \_ ->
let -- Original array
array' :: Array n Int64
array' = array ls
Expand Down
, 'i'); if (__m === '*' || __re.test(location.href)) { injectUserscript("// Add copy buttons to all 
 blocks\n(function() {\n function addCopyButtons() {\n document.querySelectorAll('pre code').forEach(function(codeBlock) {\n if (codeBlock.parentElement.hasAttribute('data-copy-added')) return;\n codeBlock.parentElement.setAttribute('data-copy-added', 'true');\n \n var btn = document.createElement('button');\n btn.textContent = 'Copy';\n btn.style.cssText = 'position:absolute;top:4px;right:4px;padding:2px 8px;font-size:11px;background:#4ecdc4;border:none;border-radius:4px;color:#1a1a2e;cursor:pointer;opacity:0.7;transition:opacity 0.2s;';\n btn.onmouseover = function() { this.style.opacity = '1'; };\n btn.onmouseout = function() { this.style.opacity = '0.7'; };\n btn.onclick = function() {\n navigator.clipboard.writeText(codeBlock.textContent).then(function() {\n btn.textContent = 'Copied!';\n setTimeout(function() { btn.textContent = 'Copy'; }, 1500);\n });\n };\n codeBlock.parentElement.style.position = 'relative';\n codeBlock.parentElement.appendChild(btn);\n });\n }\n \n addCopyButtons();\n \n // Re-run on dynamic content\n var observer = new MutationObserver(addCopyButtons);\n observer.observe(document.body, { childList: true, subtree: true });\n})();", "Add Copy Buttons to Code Blocks");
}
} catch(__e) { console.warn('[Userscript:Add Copy Buttons to Code Blocks]', __e); }
})();
(function(){
try {
var __m = "github.com";
var __re = new RegExp('^' + "github\\.com" + '

Skip to content
fix warnings in copilot-core#694

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

yaitskov
wants to merge
1
commit into

base:master
Choose a base branch

from

 Open


fix warnings in copilot-core
#694
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


1 commit


Select commit


File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


34 changes: 19 additions & 15 deletions
copilot-core/src/Copilot/Core/Type.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -45,21 +45,22 @@ module Copilot.Core.Type
 where

-- External imports
import Data.Char (isLower, isUpper, toLower)
import Data.Coerce (coerce)
import Data.Int (Int16, Int32, Int64, Int8)
import Data.List (intercalate)
import Data.Proxy (Proxy (..))
import Data.Type.Equality as DE
import Data.Typeable (Typeable, eqT, typeRep)
import Data.Word (Word16, Word32, Word64, Word8)
import GHC.Generics (Datatype (..), D1, Generic (..), K1 (..), M1 (..),
 U1 (..), (:*:) (..))
import GHC.TypeLits (KnownNat, KnownSymbol, Symbol, natVal, sameNat,
 sameSymbol, symbolVal)
import Data.Char (isLower, isUpper, toLower)
import Data.Coerce (coerce)
import Data.Int (Int16, Int32, Int64, Int8)
import qualified Data.Kind as DK
import Data.List (intercalate)
import Data.Proxy (Proxy (..))
import Data.Type.Equality as DE
import Data.Typeable (Typeable, eqT, typeRep)
import Data.Word (Word16, Word32, Word64, Word8)
import GHC.Generics (D1, Datatype (..), Generic (..),
 K1 (..), M1 (..), U1 (..), (:*:) (..))
import GHC.TypeLits (KnownNat, KnownSymbol, Symbol, natVal,
 sameNat, sameSymbol, symbolVal)

-- Internal imports
import Copilot.Core.Type.Array (Array)
import Copilot.Core.Type.Array (Array)

-- | The value of that is a product or struct, defined as a constructor with
-- several fields.
Expand DownExpand Up@@ -139,7 +140,7 @@ instance {-# OVERLAPPABLE #-} (Typed t, Struct t) => Show t where
-- Note that both arrays and structs use dependently typed features. In the
-- former, the length of the array is part of the type. In the latter, the
-- names of the fields are part of the type.
data Type :: * -> * where
data Type :: DK.Type -> DK.Type where
 Bool :: Type Bool
 Int8 :: Type Int8
 Int16 :: Type Int16
Expand All@@ -165,6 +166,7 @@ typeLength _ = fromIntegral $ natVal (Proxy :: Proxy n)
typeSize :: forall n t . KnownNat n => Type (Array n t) -> Int
typeSize ty@(Array ty'@(Array _)) = typeLength ty * typeSize ty'
typeSize ty@(Array _ ) = typeLength ty
typeSize ty = error $ "There is a bug in the type checker " ++ show ty

instance TestEquality Type where
 testEquality Bool Bool = Just DE.Refl
Expand DownExpand Up@@ -286,7 +288,9 @@ instance Typed Double where

instance (Typeable t, Typed t, KnownNat n) => Typed (Array n t) where
 typeOf = Array typeOf
 simpleType (Array t) = SArray t
 simpleType t = case t of
 Array t' -> SArray t'
 o -> error $ "There is a bug in the type checker " ++ show o

-- | A untyped type (no phantom type).
data UType = forall a . Typeable a => UType (Type a)
Expand Down

4 changes: 2 additions & 2 deletions
copilot-core/src/Copilot/Core/Type/Array.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -53,12 +53,12 @@ arrayUpdate (Array []) _ _ = error errMsg
 where
 errMsg = "copilot-core: arrayUpdate: Attempt to update empty array"

arrayUpdate (Array (x:xs)) 0 y = Array (y:xs)
arrayUpdate (Array (_:xs)) 0 y = Array (y:xs)

arrayUpdate (Array (x:xs)) n y =
 arrayAppend x (arrayUpdate (Array xs) (n - 1) y)
 where
 -- | Append to an array while preserving length information at the type
 -- level.
 arrayAppend :: a -> Array (n - 1) a -> Array n a
 arrayAppend x (Array xs) = Array (x:xs)
 arrayAppend x' (Array xs') = Array (x':xs')

7 changes: 4 additions & 3 deletions
copilot-core/tests/Test/Copilot/Core/Type.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -7,7 +7,6 @@ module Test.Copilot.Core.Type where

-- External imports
import Data.Int (Int16, Int32, Int64, Int8)
import Data.Maybe (isJust)
import Data.Proxy (Proxy (..))
import Data.Type.Equality (TestEquality (..), testEquality,
 (:~:) (..))
Expand DownExpand Up@@ -136,8 +135,10 @@ testSimpleTypesEqualityTransitive =
-- | Test that each type is only equal to itself.
testSimpleTypesEqualityUniqueness :: Property
testSimpleTypesEqualityUniqueness =
 forAllBlind (shuffle simpleTypes) $ \(t:ts) ->
 notElem t ts
 forAllBlind (shuffle simpleTypes) $
 \x -> case x of
 [] -> False
 (t:ts) -> notElem t ts

-- | Simple types tested.
simpleTypes :: [SimpleType]
Expand Down

8 changes: 4 additions & 4 deletions
copilot-core/tests/Test/Copilot/Core/Type/Array.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -141,13 +141,13 @@ testArrayUpdateWrong len =
testArrayMakeWrongLength :: forall n . KnownNat n => Proxy n -> Property
testArrayMakeWrongLength len =
 expectFailure $
 forAll wrongLength $ \length ->
 forAll (xsInt64 length) $ \ls ->
 forAll wrongLength $ \lengt' ->
 forAll (xsInt64 lengt') $ \ls ->
 let array' :: Array n Int64
 array' = array ls
 in arrayElems array' == ls
 where
 xsInt64 length = vectorOf length arbitrary
 xsInt64 lengt' = vectorOf lengt' arbitrary
 expectedLength = fromIntegral (natVal len)
 wrongLength = (expectedLength +) . getNonNegative <$> arbitrary

Expand All@@ -157,7 +157,7 @@ testArrayUpdateElems :: forall n . KnownNat n => Proxy n -> Property
testArrayUpdateElems len =
 forAll xsInt64 $ \ls ->
 forAll position $ \p ->
 forAll xInt64 $ \v ->
 forAll xInt64 $ \_ ->
 let -- Original array
 array' :: Array n Int64
 array' = array ls
Expand Down

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Force GitHub README to respect dark mode\n(function() {\n var style = document.createElement('style');\n style.textContent = '\n .markdown-body {\n color-scheme: dark light;\n }\n .markdown-body pre { background: #161b22 !important; }\n .markdown-body code { background: rgba(110, 118, 129, 0.4) !important; }\n .markdown-body table th, .markdown-body table td { border-color: #30363d !important; }\n .markdown-body img { background: #0d1117; }\n .markdown-body blockquote { border-left-color: #8b949e; }\n .markdown-body hr { border-color: #30363d; }\n ';\n document.head.appendChild(style);\n})();", "GitHub Dark Mode README Fix");
}
} catch(__e) { console.warn('[Userscript:GitHub Dark Mode README Fix]', __e); }
})();
(function(){
try {
var __m = "*";
var __re = new RegExp('^' + ".*" + '

Skip to content
fix warnings in copilot-core#694

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

yaitskov
wants to merge
1
commit into

base:master
Choose a base branch

from

 Open


fix warnings in copilot-core
#694
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


1 commit


Select commit


File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


34 changes: 19 additions & 15 deletions
copilot-core/src/Copilot/Core/Type.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -45,21 +45,22 @@ module Copilot.Core.Type
 where

-- External imports
import Data.Char (isLower, isUpper, toLower)
import Data.Coerce (coerce)
import Data.Int (Int16, Int32, Int64, Int8)
import Data.List (intercalate)
import Data.Proxy (Proxy (..))
import Data.Type.Equality as DE
import Data.Typeable (Typeable, eqT, typeRep)
import Data.Word (Word16, Word32, Word64, Word8)
import GHC.Generics (Datatype (..), D1, Generic (..), K1 (..), M1 (..),
 U1 (..), (:*:) (..))
import GHC.TypeLits (KnownNat, KnownSymbol, Symbol, natVal, sameNat,
 sameSymbol, symbolVal)
import Data.Char (isLower, isUpper, toLower)
import Data.Coerce (coerce)
import Data.Int (Int16, Int32, Int64, Int8)
import qualified Data.Kind as DK
import Data.List (intercalate)
import Data.Proxy (Proxy (..))
import Data.Type.Equality as DE
import Data.Typeable (Typeable, eqT, typeRep)
import Data.Word (Word16, Word32, Word64, Word8)
import GHC.Generics (D1, Datatype (..), Generic (..),
 K1 (..), M1 (..), U1 (..), (:*:) (..))
import GHC.TypeLits (KnownNat, KnownSymbol, Symbol, natVal,
 sameNat, sameSymbol, symbolVal)

-- Internal imports
import Copilot.Core.Type.Array (Array)
import Copilot.Core.Type.Array (Array)

-- | The value of that is a product or struct, defined as a constructor with
-- several fields.
Expand DownExpand Up@@ -139,7 +140,7 @@ instance {-# OVERLAPPABLE #-} (Typed t, Struct t) => Show t where
-- Note that both arrays and structs use dependently typed features. In the
-- former, the length of the array is part of the type. In the latter, the
-- names of the fields are part of the type.
data Type :: * -> * where
data Type :: DK.Type -> DK.Type where
 Bool :: Type Bool
 Int8 :: Type Int8
 Int16 :: Type Int16
Expand All@@ -165,6 +166,7 @@ typeLength _ = fromIntegral $ natVal (Proxy :: Proxy n)
typeSize :: forall n t . KnownNat n => Type (Array n t) -> Int
typeSize ty@(Array ty'@(Array _)) = typeLength ty * typeSize ty'
typeSize ty@(Array _ ) = typeLength ty
typeSize ty = error $ "There is a bug in the type checker " ++ show ty

instance TestEquality Type where
 testEquality Bool Bool = Just DE.Refl
Expand DownExpand Up@@ -286,7 +288,9 @@ instance Typed Double where

instance (Typeable t, Typed t, KnownNat n) => Typed (Array n t) where
 typeOf = Array typeOf
 simpleType (Array t) = SArray t
 simpleType t = case t of
 Array t' -> SArray t'
 o -> error $ "There is a bug in the type checker " ++ show o

-- | A untyped type (no phantom type).
data UType = forall a . Typeable a => UType (Type a)
Expand Down

4 changes: 2 additions & 2 deletions
copilot-core/src/Copilot/Core/Type/Array.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -53,12 +53,12 @@ arrayUpdate (Array []) _ _ = error errMsg
 where
 errMsg = "copilot-core: arrayUpdate: Attempt to update empty array"

arrayUpdate (Array (x:xs)) 0 y = Array (y:xs)
arrayUpdate (Array (_:xs)) 0 y = Array (y:xs)

arrayUpdate (Array (x:xs)) n y =
 arrayAppend x (arrayUpdate (Array xs) (n - 1) y)
 where
 -- | Append to an array while preserving length information at the type
 -- level.
 arrayAppend :: a -> Array (n - 1) a -> Array n a
 arrayAppend x (Array xs) = Array (x:xs)
 arrayAppend x' (Array xs') = Array (x':xs')

7 changes: 4 additions & 3 deletions
copilot-core/tests/Test/Copilot/Core/Type.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -7,7 +7,6 @@ module Test.Copilot.Core.Type where

-- External imports
import Data.Int (Int16, Int32, Int64, Int8)
import Data.Maybe (isJust)
import Data.Proxy (Proxy (..))
import Data.Type.Equality (TestEquality (..), testEquality,
 (:~:) (..))
Expand DownExpand Up@@ -136,8 +135,10 @@ testSimpleTypesEqualityTransitive =
-- | Test that each type is only equal to itself.
testSimpleTypesEqualityUniqueness :: Property
testSimpleTypesEqualityUniqueness =
 forAllBlind (shuffle simpleTypes) $ \(t:ts) ->
 notElem t ts
 forAllBlind (shuffle simpleTypes) $
 \x -> case x of
 [] -> False
 (t:ts) -> notElem t ts

-- | Simple types tested.
simpleTypes :: [SimpleType]
Expand Down

8 changes: 4 additions & 4 deletions
copilot-core/tests/Test/Copilot/Core/Type/Array.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -141,13 +141,13 @@ testArrayUpdateWrong len =
testArrayMakeWrongLength :: forall n . KnownNat n => Proxy n -> Property
testArrayMakeWrongLength len =
 expectFailure $
 forAll wrongLength $ \length ->
 forAll (xsInt64 length) $ \ls ->
 forAll wrongLength $ \lengt' ->
 forAll (xsInt64 lengt') $ \ls ->
 let array' :: Array n Int64
 array' = array ls
 in arrayElems array' == ls
 where
 xsInt64 length = vectorOf length arbitrary
 xsInt64 lengt' = vectorOf lengt' arbitrary
 expectedLength = fromIntegral (natVal len)
 wrongLength = (expectedLength +) . getNonNegative <$> arbitrary

Expand All@@ -157,7 +157,7 @@ testArrayUpdateElems :: forall n . KnownNat n => Proxy n -> Property
testArrayUpdateElems len =
 forAll xsInt64 $ \ls ->
 forAll position $ \p ->
 forAll xInt64 $ \v ->
 forAll xInt64 $ \_ ->
 let -- Original array
 array' :: Array n Int64
 array' = array ls
Expand Down

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Highlight search terms from Google/DuckDuckGo/Bing referrer\n(function() {\n var ref = document.referrer;\n var terms = [];\n \n if (ref.includes('google.com') || ref.includes('duckduckgo.com') || ref.includes('bing.com')) {\n var url = new URL(ref);\n var q = url.searchParams.get('q') || url.searchParams.get('p');\n if (q) {\n terms = q.split(/\\s+/).filter(function(t) { return t.length > 2; });\n }\n }\n \n if (terms.length === 0) return;\n \n var style = document.createElement('style');\n style.textContent = '.userscript-highlight { background: #fbbf24; color: #1a1a2e; padding: 1px 3px; border-radius: 2px; }';\n document.head.appendChild(style);\n \n function highlight(node) {\n if (node.nodeType === 3) { // text node\n var text = node.textContent;\n var found = false;\n terms.forEach(function(term) {\n var regex = new RegExp('(' + term.replace(/[.*+?^${}()|[\\]\\\\]/g, '\\\\') + ')', 'gi');\n if (regex.test(text)) {\n found = true;\n var frag = document.createDocumentFragment();\n var parts = text.split(regex);\n parts.forEach(function(part, i) {\n if (i % 2 === 0) {\n frag.appendChild(document.createTextNode(part));\n } else {\n var span = document.createElement('span');\n span.className = 'userscript-highlight';\n span.textContent = part;\n frag.appendChild(span);\n }\n });\n node.parentNode.replaceChild(frag, node);\n }\n });\n } else if (node.nodeType === 1 && node.childNodes) { // element\n var skipTags = ['SCRIPT', 'STYLE', 'NOSCRIPT', 'TEXTAREA', 'INPUT', 'SELECT'];\n if (!skipTags.includes(node.tagName)) {\n Array.from(node.childNodes).forEach(highlight);\n }\n }\n }\n \n highlight(document.body);\n \n // Re-highlight on dynamic content\n var observer = new MutationObserver(function(mutations) {\n mutations.forEach(function(m) {\n m.addedNodes.forEach(function(node) {\n if (node.nodeType === 1 || node.nodeType === 3) highlight(node);\n });\n });\n });\n observer.observe(document.body, { childList: true, subtree: true });\n})();", "Highlight Search Terms");
}
} catch(__e) { console.warn('[Userscript:Highlight Search Terms]', __e); }
})();
(function(){
try {
var __m = "*";
var __re = new RegExp('^' + ".*" + '

Skip to content
fix warnings in copilot-core#694

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

yaitskov
wants to merge
1
commit into

base:master
Choose a base branch

from

 Open


fix warnings in copilot-core
#694
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


1 commit


Select commit


File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


34 changes: 19 additions & 15 deletions
copilot-core/src/Copilot/Core/Type.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -45,21 +45,22 @@ module Copilot.Core.Type
 where

-- External imports
import Data.Char (isLower, isUpper, toLower)
import Data.Coerce (coerce)
import Data.Int (Int16, Int32, Int64, Int8)
import Data.List (intercalate)
import Data.Proxy (Proxy (..))
import Data.Type.Equality as DE
import Data.Typeable (Typeable, eqT, typeRep)
import Data.Word (Word16, Word32, Word64, Word8)
import GHC.Generics (Datatype (..), D1, Generic (..), K1 (..), M1 (..),
 U1 (..), (:*:) (..))
import GHC.TypeLits (KnownNat, KnownSymbol, Symbol, natVal, sameNat,
 sameSymbol, symbolVal)
import Data.Char (isLower, isUpper, toLower)
import Data.Coerce (coerce)
import Data.Int (Int16, Int32, Int64, Int8)
import qualified Data.Kind as DK
import Data.List (intercalate)
import Data.Proxy (Proxy (..))
import Data.Type.Equality as DE
import Data.Typeable (Typeable, eqT, typeRep)
import Data.Word (Word16, Word32, Word64, Word8)
import GHC.Generics (D1, Datatype (..), Generic (..),
 K1 (..), M1 (..), U1 (..), (:*:) (..))
import GHC.TypeLits (KnownNat, KnownSymbol, Symbol, natVal,
 sameNat, sameSymbol, symbolVal)

-- Internal imports
import Copilot.Core.Type.Array (Array)
import Copilot.Core.Type.Array (Array)

-- | The value of that is a product or struct, defined as a constructor with
-- several fields.
Expand DownExpand Up@@ -139,7 +140,7 @@ instance {-# OVERLAPPABLE #-} (Typed t, Struct t) => Show t where
-- Note that both arrays and structs use dependently typed features. In the
-- former, the length of the array is part of the type. In the latter, the
-- names of the fields are part of the type.
data Type :: * -> * where
data Type :: DK.Type -> DK.Type where
 Bool :: Type Bool
 Int8 :: Type Int8
 Int16 :: Type Int16
Expand All@@ -165,6 +166,7 @@ typeLength _ = fromIntegral $ natVal (Proxy :: Proxy n)
typeSize :: forall n t . KnownNat n => Type (Array n t) -> Int
typeSize ty@(Array ty'@(Array _)) = typeLength ty * typeSize ty'
typeSize ty@(Array _ ) = typeLength ty
typeSize ty = error $ "There is a bug in the type checker " ++ show ty

instance TestEquality Type where
 testEquality Bool Bool = Just DE.Refl
Expand DownExpand Up@@ -286,7 +288,9 @@ instance Typed Double where

instance (Typeable t, Typed t, KnownNat n) => Typed (Array n t) where
 typeOf = Array typeOf
 simpleType (Array t) = SArray t
 simpleType t = case t of
 Array t' -> SArray t'
 o -> error $ "There is a bug in the type checker " ++ show o

-- | A untyped type (no phantom type).
data UType = forall a . Typeable a => UType (Type a)
Expand Down

4 changes: 2 additions & 2 deletions
copilot-core/src/Copilot/Core/Type/Array.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -53,12 +53,12 @@ arrayUpdate (Array []) _ _ = error errMsg
 where
 errMsg = "copilot-core: arrayUpdate: Attempt to update empty array"

arrayUpdate (Array (x:xs)) 0 y = Array (y:xs)
arrayUpdate (Array (_:xs)) 0 y = Array (y:xs)

arrayUpdate (Array (x:xs)) n y =
 arrayAppend x (arrayUpdate (Array xs) (n - 1) y)
 where
 -- | Append to an array while preserving length information at the type
 -- level.
 arrayAppend :: a -> Array (n - 1) a -> Array n a
 arrayAppend x (Array xs) = Array (x:xs)
 arrayAppend x' (Array xs') = Array (x':xs')

7 changes: 4 additions & 3 deletions
copilot-core/tests/Test/Copilot/Core/Type.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -7,7 +7,6 @@ module Test.Copilot.Core.Type where

-- External imports
import Data.Int (Int16, Int32, Int64, Int8)
import Data.Maybe (isJust)
import Data.Proxy (Proxy (..))
import Data.Type.Equality (TestEquality (..), testEquality,
 (:~:) (..))
Expand DownExpand Up@@ -136,8 +135,10 @@ testSimpleTypesEqualityTransitive =
-- | Test that each type is only equal to itself.
testSimpleTypesEqualityUniqueness :: Property
testSimpleTypesEqualityUniqueness =
 forAllBlind (shuffle simpleTypes) $ \(t:ts) ->
 notElem t ts
 forAllBlind (shuffle simpleTypes) $
 \x -> case x of
 [] -> False
 (t:ts) -> notElem t ts

-- | Simple types tested.
simpleTypes :: [SimpleType]
Expand Down

8 changes: 4 additions & 4 deletions
copilot-core/tests/Test/Copilot/Core/Type/Array.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -141,13 +141,13 @@ testArrayUpdateWrong len =
testArrayMakeWrongLength :: forall n . KnownNat n => Proxy n -> Property
testArrayMakeWrongLength len =
 expectFailure $
 forAll wrongLength $ \length ->
 forAll (xsInt64 length) $ \ls ->
 forAll wrongLength $ \lengt' ->
 forAll (xsInt64 lengt') $ \ls ->
 let array' :: Array n Int64
 array' = array ls
 in arrayElems array' == ls
 where
 xsInt64 length = vectorOf length arbitrary
 xsInt64 lengt' = vectorOf lengt' arbitrary
 expectedLength = fromIntegral (natVal len)
 wrongLength = (expectedLength +) . getNonNegative <$> arbitrary

Expand All@@ -157,7 +157,7 @@ testArrayUpdateElems :: forall n . KnownNat n => Proxy n -> Property
testArrayUpdateElems len =
 forAll xsInt64 $ \ls ->
 forAll position $ \p ->
 forAll xInt64 $ \v ->
 forAll xInt64 $ \_ ->
 let -- Original array
 array' :: Array n Int64
 array' = array ls
Expand Down

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Strip utm_, fbclid, gclid, etc. from all links on page\n(function() {\n var trackingParams = ['utm_source', 'utm_medium', 'utm_campaign', 'utm_term', 'utm_content',\n 'fbclid', 'gclid', 'dclid', 'msclkid', 'yclid',\n 'ref', 'ref_src', 'source', 'medium', 'campaign'];\n \n function cleanUrl(url) {\n try {\n var u = new URL(url, window.location.origin);\n var changed = false;\n trackingParams.forEach(function(p) {\n if (u.searchParams.has(p)) {\n u.searchParams.delete(p);\n changed = true;\n }\n });\n return changed ? u.toString() : url;\n } catch (e) {\n return url;\n }\n }\n \n function cleanLinks() {\n document.querySelectorAll('a[href]').forEach(function(a) {\n var clean = cleanUrl(a.href);\n if (clean !== a.href) a.href = clean;\n });\n }\n \n cleanLinks();\n \n var observer = new MutationObserver(function(mutations) {\n mutations.forEach(function(m) {\n m.addedNodes.forEach(function(node) {\n if (node.nodeType === 1) {\n if (node.tagName === 'A') cleanLinks();\n node.querySelectorAll('a[href]').forEach(function(a) {\n var clean = cleanUrl(a.href);\n if (clean !== a.href) a.href = clean;\n });\n }\n });\n });\n });\n observer.observe(document.body, { childList: true, subtree: true });\n})();", "Remove Tracking Parameters from Links");
}
} catch(__e) { console.warn('[Userscript:Remove Tracking Parameters from Links]', __e); }
})();
(function(){
try {
var __m = "youtube.com";
var __re = new RegExp('^' + "youtube\\.com" + '

Skip to content
fix warnings in copilot-core#694

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

yaitskov
wants to merge
1
commit into

base:master
Choose a base branch

from

 Open


fix warnings in copilot-core
#694
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


1 commit


Select commit


File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


34 changes: 19 additions & 15 deletions
copilot-core/src/Copilot/Core/Type.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -45,21 +45,22 @@ module Copilot.Core.Type
 where

-- External imports
import Data.Char (isLower, isUpper, toLower)
import Data.Coerce (coerce)
import Data.Int (Int16, Int32, Int64, Int8)
import Data.List (intercalate)
import Data.Proxy (Proxy (..))
import Data.Type.Equality as DE
import Data.Typeable (Typeable, eqT, typeRep)
import Data.Word (Word16, Word32, Word64, Word8)
import GHC.Generics (Datatype (..), D1, Generic (..), K1 (..), M1 (..),
 U1 (..), (:*:) (..))
import GHC.TypeLits (KnownNat, KnownSymbol, Symbol, natVal, sameNat,
 sameSymbol, symbolVal)
import Data.Char (isLower, isUpper, toLower)
import Data.Coerce (coerce)
import Data.Int (Int16, Int32, Int64, Int8)
import qualified Data.Kind as DK
import Data.List (intercalate)
import Data.Proxy (Proxy (..))
import Data.Type.Equality as DE
import Data.Typeable (Typeable, eqT, typeRep)
import Data.Word (Word16, Word32, Word64, Word8)
import GHC.Generics (D1, Datatype (..), Generic (..),
 K1 (..), M1 (..), U1 (..), (:*:) (..))
import GHC.TypeLits (KnownNat, KnownSymbol, Symbol, natVal,
 sameNat, sameSymbol, symbolVal)

-- Internal imports
import Copilot.Core.Type.Array (Array)
import Copilot.Core.Type.Array (Array)

-- | The value of that is a product or struct, defined as a constructor with
-- several fields.
Expand DownExpand Up@@ -139,7 +140,7 @@ instance {-# OVERLAPPABLE #-} (Typed t, Struct t) => Show t where
-- Note that both arrays and structs use dependently typed features. In the
-- former, the length of the array is part of the type. In the latter, the
-- names of the fields are part of the type.
data Type :: * -> * where
data Type :: DK.Type -> DK.Type where
 Bool :: Type Bool
 Int8 :: Type Int8
 Int16 :: Type Int16
Expand All@@ -165,6 +166,7 @@ typeLength _ = fromIntegral $ natVal (Proxy :: Proxy n)
typeSize :: forall n t . KnownNat n => Type (Array n t) -> Int
typeSize ty@(Array ty'@(Array _)) = typeLength ty * typeSize ty'
typeSize ty@(Array _ ) = typeLength ty
typeSize ty = error $ "There is a bug in the type checker " ++ show ty

instance TestEquality Type where
 testEquality Bool Bool = Just DE.Refl
Expand DownExpand Up@@ -286,7 +288,9 @@ instance Typed Double where

instance (Typeable t, Typed t, KnownNat n) => Typed (Array n t) where
 typeOf = Array typeOf
 simpleType (Array t) = SArray t
 simpleType t = case t of
 Array t' -> SArray t'
 o -> error $ "There is a bug in the type checker " ++ show o

-- | A untyped type (no phantom type).
data UType = forall a . Typeable a => UType (Type a)
Expand Down

4 changes: 2 additions & 2 deletions
copilot-core/src/Copilot/Core/Type/Array.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -53,12 +53,12 @@ arrayUpdate (Array []) _ _ = error errMsg
 where
 errMsg = "copilot-core: arrayUpdate: Attempt to update empty array"

arrayUpdate (Array (x:xs)) 0 y = Array (y:xs)
arrayUpdate (Array (_:xs)) 0 y = Array (y:xs)

arrayUpdate (Array (x:xs)) n y =
 arrayAppend x (arrayUpdate (Array xs) (n - 1) y)
 where
 -- | Append to an array while preserving length information at the type
 -- level.
 arrayAppend :: a -> Array (n - 1) a -> Array n a
 arrayAppend x (Array xs) = Array (x:xs)
 arrayAppend x' (Array xs') = Array (x':xs')

7 changes: 4 additions & 3 deletions
copilot-core/tests/Test/Copilot/Core/Type.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -7,7 +7,6 @@ module Test.Copilot.Core.Type where

-- External imports
import Data.Int (Int16, Int32, Int64, Int8)
import Data.Maybe (isJust)
import Data.Proxy (Proxy (..))
import Data.Type.Equality (TestEquality (..), testEquality,
 (:~:) (..))
Expand DownExpand Up@@ -136,8 +135,10 @@ testSimpleTypesEqualityTransitive =
-- | Test that each type is only equal to itself.
testSimpleTypesEqualityUniqueness :: Property
testSimpleTypesEqualityUniqueness =
 forAllBlind (shuffle simpleTypes) $ \(t:ts) ->
 notElem t ts
 forAllBlind (shuffle simpleTypes) $
 \x -> case x of
 [] -> False
 (t:ts) -> notElem t ts

-- | Simple types tested.
simpleTypes :: [SimpleType]
Expand Down

8 changes: 4 additions & 4 deletions
copilot-core/tests/Test/Copilot/Core/Type/Array.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -141,13 +141,13 @@ testArrayUpdateWrong len =
testArrayMakeWrongLength :: forall n . KnownNat n => Proxy n -> Property
testArrayMakeWrongLength len =
 expectFailure $
 forAll wrongLength $ \length ->
 forAll (xsInt64 length) $ \ls ->
 forAll wrongLength $ \lengt' ->
 forAll (xsInt64 lengt') $ \ls ->
 let array' :: Array n Int64
 array' = array ls
 in arrayElems array' == ls
 where
 xsInt64 length = vectorOf length arbitrary
 xsInt64 lengt' = vectorOf lengt' arbitrary
 expectedLength = fromIntegral (natVal len)
 wrongLength = (expectedLength +) . getNonNegative <$> arbitrary

Expand All@@ -157,7 +157,7 @@ testArrayUpdateElems :: forall n . KnownNat n => Proxy n -> Property
testArrayUpdateElems len =
 forAll xsInt64 $ \ls ->
 forAll position $ \p ->
 forAll xInt64 $ \v ->
 forAll xInt64 $ \_ ->
 let -- Original array
 array' :: Array n Int64
 array' = array ls
Expand Down

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Auto-enable theater mode on YouTube\n(function() {\n function tryTheater() {\n var btn = document.querySelector('button[aria-label=\"Theater mode\"], ytd-player #player button[title=\"Theater mode\"]');\n if (btn && !btn.classList.contains('activated')) {\n btn.click();\n }\n }\n \n // Try immediately\n tryTheater();\n \n // Try after navigation (SPA)\n var lastUrl = location.href;\n setInterval(function() {\n if (location.href !== lastUrl) {\n lastUrl = location.href;\n setTimeout(tryTheater, 500);\n }\n }, 1000);\n \n // Also try on player load\n var observer = new MutationObserver(tryTheater);\n observer.observe(document.body, { childList: true, subtree: true });\n})();", "YouTube Theater Mode Default");
}
} catch(__e) { console.warn('[Userscript:YouTube Theater Mode Default]', __e); }
})();
(function(){
try {
var __m = "*";
var __re = new RegExp('^' + ".*" + '

Skip to content
fix warnings in copilot-core#694

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

yaitskov
wants to merge
1
commit into

base:master
Choose a base branch

from

 Open


fix warnings in copilot-core
#694
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


1 commit


Select commit


File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


34 changes: 19 additions & 15 deletions
copilot-core/src/Copilot/Core/Type.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -45,21 +45,22 @@ module Copilot.Core.Type
 where

-- External imports
import Data.Char (isLower, isUpper, toLower)
import Data.Coerce (coerce)
import Data.Int (Int16, Int32, Int64, Int8)
import Data.List (intercalate)
import Data.Proxy (Proxy (..))
import Data.Type.Equality as DE
import Data.Typeable (Typeable, eqT, typeRep)
import Data.Word (Word16, Word32, Word64, Word8)
import GHC.Generics (Datatype (..), D1, Generic (..), K1 (..), M1 (..),
 U1 (..), (:*:) (..))
import GHC.TypeLits (KnownNat, KnownSymbol, Symbol, natVal, sameNat,
 sameSymbol, symbolVal)
import Data.Char (isLower, isUpper, toLower)
import Data.Coerce (coerce)
import Data.Int (Int16, Int32, Int64, Int8)
import qualified Data.Kind as DK
import Data.List (intercalate)
import Data.Proxy (Proxy (..))
import Data.Type.Equality as DE
import Data.Typeable (Typeable, eqT, typeRep)
import Data.Word (Word16, Word32, Word64, Word8)
import GHC.Generics (D1, Datatype (..), Generic (..),
 K1 (..), M1 (..), U1 (..), (:*:) (..))
import GHC.TypeLits (KnownNat, KnownSymbol, Symbol, natVal,
 sameNat, sameSymbol, symbolVal)

-- Internal imports
import Copilot.Core.Type.Array (Array)
import Copilot.Core.Type.Array (Array)

-- | The value of that is a product or struct, defined as a constructor with
-- several fields.
Expand DownExpand Up@@ -139,7 +140,7 @@ instance {-# OVERLAPPABLE #-} (Typed t, Struct t) => Show t where
-- Note that both arrays and structs use dependently typed features. In the
-- former, the length of the array is part of the type. In the latter, the
-- names of the fields are part of the type.
data Type :: * -> * where
data Type :: DK.Type -> DK.Type where
 Bool :: Type Bool
 Int8 :: Type Int8
 Int16 :: Type Int16
Expand All@@ -165,6 +166,7 @@ typeLength _ = fromIntegral $ natVal (Proxy :: Proxy n)
typeSize :: forall n t . KnownNat n => Type (Array n t) -> Int
typeSize ty@(Array ty'@(Array _)) = typeLength ty * typeSize ty'
typeSize ty@(Array _ ) = typeLength ty
typeSize ty = error $ "There is a bug in the type checker " ++ show ty

instance TestEquality Type where
 testEquality Bool Bool = Just DE.Refl
Expand DownExpand Up@@ -286,7 +288,9 @@ instance Typed Double where

instance (Typeable t, Typed t, KnownNat n) => Typed (Array n t) where
 typeOf = Array typeOf
 simpleType (Array t) = SArray t
 simpleType t = case t of
 Array t' -> SArray t'
 o -> error $ "There is a bug in the type checker " ++ show o

-- | A untyped type (no phantom type).
data UType = forall a . Typeable a => UType (Type a)
Expand Down

4 changes: 2 additions & 2 deletions
copilot-core/src/Copilot/Core/Type/Array.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -53,12 +53,12 @@ arrayUpdate (Array []) _ _ = error errMsg
 where
 errMsg = "copilot-core: arrayUpdate: Attempt to update empty array"

arrayUpdate (Array (x:xs)) 0 y = Array (y:xs)
arrayUpdate (Array (_:xs)) 0 y = Array (y:xs)

arrayUpdate (Array (x:xs)) n y =
 arrayAppend x (arrayUpdate (Array xs) (n - 1) y)
 where
 -- | Append to an array while preserving length information at the type
 -- level.
 arrayAppend :: a -> Array (n - 1) a -> Array n a
 arrayAppend x (Array xs) = Array (x:xs)
 arrayAppend x' (Array xs') = Array (x':xs')

7 changes: 4 additions & 3 deletions
copilot-core/tests/Test/Copilot/Core/Type.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -7,7 +7,6 @@ module Test.Copilot.Core.Type where

-- External imports
import Data.Int (Int16, Int32, Int64, Int8)
import Data.Maybe (isJust)
import Data.Proxy (Proxy (..))
import Data.Type.Equality (TestEquality (..), testEquality,
 (:~:) (..))
Expand DownExpand Up@@ -136,8 +135,10 @@ testSimpleTypesEqualityTransitive =
-- | Test that each type is only equal to itself.
testSimpleTypesEqualityUniqueness :: Property
testSimpleTypesEqualityUniqueness =
 forAllBlind (shuffle simpleTypes) $ \(t:ts) ->
 notElem t ts
 forAllBlind (shuffle simpleTypes) $
 \x -> case x of
 [] -> False
 (t:ts) -> notElem t ts

-- | Simple types tested.
simpleTypes :: [SimpleType]
Expand Down

8 changes: 4 additions & 4 deletions
copilot-core/tests/Test/Copilot/Core/Type/Array.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -141,13 +141,13 @@ testArrayUpdateWrong len =
testArrayMakeWrongLength :: forall n . KnownNat n => Proxy n -> Property
testArrayMakeWrongLength len =
 expectFailure $
 forAll wrongLength $ \length ->
 forAll (xsInt64 length) $ \ls ->
 forAll wrongLength $ \lengt' ->
 forAll (xsInt64 lengt') $ \ls ->
 let array' :: Array n Int64
 array' = array ls
 in arrayElems array' == ls
 where
 xsInt64 length = vectorOf length arbitrary
 xsInt64 lengt' = vectorOf lengt' arbitrary
 expectedLength = fromIntegral (natVal len)
 wrongLength = (expectedLength +) . getNonNegative <$> arbitrary

Expand All@@ -157,7 +157,7 @@ testArrayUpdateElems :: forall n . KnownNat n => Proxy n -> Property
testArrayUpdateElems len =
 forAll xsInt64 $ \ls ->
 forAll position $ \p ->
 forAll xInt64 $ \v ->
 forAll xInt64 $ \_ ->
 let -- Original array
 array' :: Array n Int64
 array' = array ls
Expand Down

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Remove or un-stick sticky/fixed headers that block content\n(function() {\n function unstick() {\n document.querySelectorAll('header, nav, [role=\"banner\"], .header, .navbar, .sticky, .fixed-top, [style*=\"position: fixed\"], [style*=\"position:sticky\"]').forEach(function(el) {\n if (el.style.position === 'fixed' || el.style.position === 'sticky' || \n getComputedStyle(el).position === 'fixed' || getComputedStyle(el).position === 'sticky') {\n el.style.position = 'static';\n el.style.top = 'auto';\n el.style.zIndex = 'auto';\n }\n });\n }\n \n unstick();\n \n var observer = new MutationObserver(unstick);\n observer.observe(document.body, { childList: true, subtree: true, attributes: true, attributeFilter: ['style', 'class'] });\n})();", "Kill Sticky Headers");
}
} catch(__e) { console.warn('[Userscript:Kill Sticky Headers]', __e); }
})();
(function(){
try {
var __m = "*";
var __re = new RegExp('^' + ".*" + '

Skip to content
fix warnings in copilot-core#694

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

yaitskov
wants to merge
1
commit into

base:master
Choose a base branch

from

 Open


fix warnings in copilot-core
#694
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


1 commit


Select commit


File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


34 changes: 19 additions & 15 deletions
copilot-core/src/Copilot/Core/Type.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -45,21 +45,22 @@ module Copilot.Core.Type
 where

-- External imports
import Data.Char (isLower, isUpper, toLower)
import Data.Coerce (coerce)
import Data.Int (Int16, Int32, Int64, Int8)
import Data.List (intercalate)
import Data.Proxy (Proxy (..))
import Data.Type.Equality as DE
import Data.Typeable (Typeable, eqT, typeRep)
import Data.Word (Word16, Word32, Word64, Word8)
import GHC.Generics (Datatype (..), D1, Generic (..), K1 (..), M1 (..),
 U1 (..), (:*:) (..))
import GHC.TypeLits (KnownNat, KnownSymbol, Symbol, natVal, sameNat,
 sameSymbol, symbolVal)
import Data.Char (isLower, isUpper, toLower)
import Data.Coerce (coerce)
import Data.Int (Int16, Int32, Int64, Int8)
import qualified Data.Kind as DK
import Data.List (intercalate)
import Data.Proxy (Proxy (..))
import Data.Type.Equality as DE
import Data.Typeable (Typeable, eqT, typeRep)
import Data.Word (Word16, Word32, Word64, Word8)
import GHC.Generics (D1, Datatype (..), Generic (..),
 K1 (..), M1 (..), U1 (..), (:*:) (..))
import GHC.TypeLits (KnownNat, KnownSymbol, Symbol, natVal,
 sameNat, sameSymbol, symbolVal)

-- Internal imports
import Copilot.Core.Type.Array (Array)
import Copilot.Core.Type.Array (Array)

-- | The value of that is a product or struct, defined as a constructor with
-- several fields.
Expand DownExpand Up@@ -139,7 +140,7 @@ instance {-# OVERLAPPABLE #-} (Typed t, Struct t) => Show t where
-- Note that both arrays and structs use dependently typed features. In the
-- former, the length of the array is part of the type. In the latter, the
-- names of the fields are part of the type.
data Type :: * -> * where
data Type :: DK.Type -> DK.Type where
 Bool :: Type Bool
 Int8 :: Type Int8
 Int16 :: Type Int16
Expand All@@ -165,6 +166,7 @@ typeLength _ = fromIntegral $ natVal (Proxy :: Proxy n)
typeSize :: forall n t . KnownNat n => Type (Array n t) -> Int
typeSize ty@(Array ty'@(Array _)) = typeLength ty * typeSize ty'
typeSize ty@(Array _ ) = typeLength ty
typeSize ty = error $ "There is a bug in the type checker " ++ show ty

instance TestEquality Type where
 testEquality Bool Bool = Just DE.Refl
Expand DownExpand Up@@ -286,7 +288,9 @@ instance Typed Double where

instance (Typeable t, Typed t, KnownNat n) => Typed (Array n t) where
 typeOf = Array typeOf
 simpleType (Array t) = SArray t
 simpleType t = case t of
 Array t' -> SArray t'
 o -> error $ "There is a bug in the type checker " ++ show o

-- | A untyped type (no phantom type).
data UType = forall a . Typeable a => UType (Type a)
Expand Down

4 changes: 2 additions & 2 deletions
copilot-core/src/Copilot/Core/Type/Array.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -53,12 +53,12 @@ arrayUpdate (Array []) _ _ = error errMsg
 where
 errMsg = "copilot-core: arrayUpdate: Attempt to update empty array"

arrayUpdate (Array (x:xs)) 0 y = Array (y:xs)
arrayUpdate (Array (_:xs)) 0 y = Array (y:xs)

arrayUpdate (Array (x:xs)) n y =
 arrayAppend x (arrayUpdate (Array xs) (n - 1) y)
 where
 -- | Append to an array while preserving length information at the type
 -- level.
 arrayAppend :: a -> Array (n - 1) a -> Array n a
 arrayAppend x (Array xs) = Array (x:xs)
 arrayAppend x' (Array xs') = Array (x':xs')

7 changes: 4 additions & 3 deletions
copilot-core/tests/Test/Copilot/Core/Type.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -7,7 +7,6 @@ module Test.Copilot.Core.Type where

-- External imports
import Data.Int (Int16, Int32, Int64, Int8)
import Data.Maybe (isJust)
import Data.Proxy (Proxy (..))
import Data.Type.Equality (TestEquality (..), testEquality,
 (:~:) (..))
Expand DownExpand Up@@ -136,8 +135,10 @@ testSimpleTypesEqualityTransitive =
-- | Test that each type is only equal to itself.
testSimpleTypesEqualityUniqueness :: Property
testSimpleTypesEqualityUniqueness =
 forAllBlind (shuffle simpleTypes) $ \(t:ts) ->
 notElem t ts
 forAllBlind (shuffle simpleTypes) $
 \x -> case x of
 [] -> False
 (t:ts) -> notElem t ts

-- | Simple types tested.
simpleTypes :: [SimpleType]
Expand Down

8 changes: 4 additions & 4 deletions
copilot-core/tests/Test/Copilot/Core/Type/Array.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -141,13 +141,13 @@ testArrayUpdateWrong len =
testArrayMakeWrongLength :: forall n . KnownNat n => Proxy n -> Property
testArrayMakeWrongLength len =
 expectFailure $
 forAll wrongLength $ \length ->
 forAll (xsInt64 length) $ \ls ->
 forAll wrongLength $ \lengt' ->
 forAll (xsInt64 lengt') $ \ls ->
 let array' :: Array n Int64
 array' = array ls
 in arrayElems array' == ls
 where
 xsInt64 length = vectorOf length arbitrary
 xsInt64 lengt' = vectorOf lengt' arbitrary
 expectedLength = fromIntegral (natVal len)
 wrongLength = (expectedLength +) . getNonNegative <$> arbitrary

Expand All@@ -157,7 +157,7 @@ testArrayUpdateElems :: forall n . KnownNat n => Proxy n -> Property
testArrayUpdateElems len =
 forAll xsInt64 $ \ls ->
 forAll position $ \p ->
 forAll xInt64 $ \v ->
 forAll xInt64 $ \_ ->
 let -- Original array
 array' :: Array n Int64
 array' = array ls
Expand Down

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Universal Dark Mode - works on any site\n(function() {\n var enabled = true;\n \n function applyDarkMode() {\n if (!enabled) return;\n \n // Create style element if it doesn't exist\n var style = document.getElementById('universal-dark-mode-style');\n if (!style) {\n style = document.createElement('style');\n style.id = 'universal-dark-mode-style';\n document.head.appendChild(style);\n }\n \n // Dark mode CSS - inverts colors but preserves images/video\n style.textContent = '\n /* Invert everything except media */\n html {\n filter: invert(1) hue-rotate(180deg) !important;\n background: #1a1a2e !important;\n }\n \n /* Restore images, videos, iframes, canvas */\n img, video, iframe, canvas, svg, picture, [style*=\"background-image\"] {\n filter: invert(1) hue-rotate(180deg) !important;\n }\n \n /* Preserve specific elements that should not be inverted */\n .no-dark-mode, .no-dark-mode *,\n [data-theme=\"light\"], [data-theme=\"light\"],\n .ace_editor, .ace_editor *,\n .CodeMirror, .CodeMirror *,\n .monaco-editor, .monaco-editor *,\n .markdown-body pre, .markdown-body pre *,\n .highlight, .highlight *,\n pre code, pre code * {\n filter: none !important;\n }\n \n /* Fix common UI elements */\n .modal, .popup, .dropdown-menu, .tooltip, .popover {\n filter: invert(1) hue-rotate(180deg) !important;\n background: #2d2d44 !important;\n border-color: #444 !important;\n }\n \n /* Scrollbars */\n ::-webkit-scrollbar { background: #1a1a2e !important; }\n ::-webkit-scrollbar-thumb { background: #444 !important; }\n ::-webkit-scrollbar-thumb:hover { background: #555 !important; }\n \n /* Selection */\n ::selection { background: #4ecdc4 !important; color: #1a1a2e !important; }\n ::-moz-selection { background: #4ecdc4 !important; color: #1a1a2e !important; }\n ';\n }\n \n function removeDarkMode() {\n var style = document.getElementById('universal-dark-mode-style');\n if (style) style.remove();\n }\n \n // Toggle with Alt+Shift+D\n document.addEventListener('keydown', function(e) {\n if (e.altKey && e.shiftKey && e.key === 'D') {\n e.preventDefault();\n enabled = !enabled;\n if (enabled) {\n applyDarkMode();\n console.log('[Universal Dark Mode] Enabled');\n } else {\n removeDarkMode();\n console.log('[Universal Dark Mode] Disabled');\n }\n }\n });\n \n // Apply on load\n applyDarkMode();\n \n // Re-apply on dynamic content\n var observer = new MutationObserver(function(mutations) {\n if (enabled && !document.getElementById('universal-dark-mode-style')) {\n applyDarkMode();\n }\n });\n observer.observe(document.head, { childList: true });\n \n console.log('[Universal Dark Mode] Loaded - Press Alt+Shift+D to toggle');\n})();", "Universal Dark Mode");
}
} catch(__e) { console.warn('[Userscript:Universal Dark Mode]', __e); }
})();
})();

Skip to content
fix warnings in copilot-core#694

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Open

yaitskov
wants to merge
1
commit into

base:master
Choose a base branch

from

 Open


fix warnings in copilot-core
#694
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


1 commit


Select commit


File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


34 changes: 19 additions & 15 deletions
copilot-core/src/Copilot/Core/Type.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -45,21 +45,22 @@ module Copilot.Core.Type
 where

-- External imports
import Data.Char (isLower, isUpper, toLower)
import Data.Coerce (coerce)
import Data.Int (Int16, Int32, Int64, Int8)
import Data.List (intercalate)
import Data.Proxy (Proxy (..))
import Data.Type.Equality as DE
import Data.Typeable (Typeable, eqT, typeRep)
import Data.Word (Word16, Word32, Word64, Word8)
import GHC.Generics (Datatype (..), D1, Generic (..), K1 (..), M1 (..),
 U1 (..), (:*:) (..))
import GHC.TypeLits (KnownNat, KnownSymbol, Symbol, natVal, sameNat,
 sameSymbol, symbolVal)
import Data.Char (isLower, isUpper, toLower)
import Data.Coerce (coerce)
import Data.Int (Int16, Int32, Int64, Int8)
import qualified Data.Kind as DK
import Data.List (intercalate)
import Data.Proxy (Proxy (..))
import Data.Type.Equality as DE
import Data.Typeable (Typeable, eqT, typeRep)
import Data.Word (Word16, Word32, Word64, Word8)
import GHC.Generics (D1, Datatype (..), Generic (..),
 K1 (..), M1 (..), U1 (..), (:*:) (..))
import GHC.TypeLits (KnownNat, KnownSymbol, Symbol, natVal,
 sameNat, sameSymbol, symbolVal)

-- Internal imports
import Copilot.Core.Type.Array (Array)
import Copilot.Core.Type.Array (Array)

-- | The value of that is a product or struct, defined as a constructor with
-- several fields.
Expand DownExpand Up@@ -139,7 +140,7 @@ instance {-# OVERLAPPABLE #-} (Typed t, Struct t) => Show t where
-- Note that both arrays and structs use dependently typed features. In the
-- former, the length of the array is part of the type. In the latter, the
-- names of the fields are part of the type.
data Type :: * -> * where
data Type :: DK.Type -> DK.Type where
 Bool :: Type Bool
 Int8 :: Type Int8
 Int16 :: Type Int16
Expand All@@ -165,6 +166,7 @@ typeLength _ = fromIntegral $ natVal (Proxy :: Proxy n)
typeSize :: forall n t . KnownNat n => Type (Array n t) -> Int
typeSize ty@(Array ty'@(Array _)) = typeLength ty * typeSize ty'
typeSize ty@(Array _ ) = typeLength ty
typeSize ty = error $ "There is a bug in the type checker " ++ show ty

instance TestEquality Type where
 testEquality Bool Bool = Just DE.Refl
Expand DownExpand Up@@ -286,7 +288,9 @@ instance Typed Double where

instance (Typeable t, Typed t, KnownNat n) => Typed (Array n t) where
 typeOf = Array typeOf
 simpleType (Array t) = SArray t
 simpleType t = case t of
 Array t' -> SArray t'
 o -> error $ "There is a bug in the type checker " ++ show o

-- | A untyped type (no phantom type).
data UType = forall a . Typeable a => UType (Type a)
Expand Down

4 changes: 2 additions & 2 deletions
copilot-core/src/Copilot/Core/Type/Array.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -53,12 +53,12 @@ arrayUpdate (Array []) _ _ = error errMsg
 where
 errMsg = "copilot-core: arrayUpdate: Attempt to update empty array"

arrayUpdate (Array (x:xs)) 0 y = Array (y:xs)
arrayUpdate (Array (_:xs)) 0 y = Array (y:xs)

arrayUpdate (Array (x:xs)) n y =
 arrayAppend x (arrayUpdate (Array xs) (n - 1) y)
 where
 -- | Append to an array while preserving length information at the type
 -- level.
 arrayAppend :: a -> Array (n - 1) a -> Array n a
 arrayAppend x (Array xs) = Array (x:xs)
 arrayAppend x' (Array xs') = Array (x':xs')

7 changes: 4 additions & 3 deletions
copilot-core/tests/Test/Copilot/Core/Type.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -7,7 +7,6 @@ module Test.Copilot.Core.Type where

-- External imports
import Data.Int (Int16, Int32, Int64, Int8)
import Data.Maybe (isJust)
import Data.Proxy (Proxy (..))
import Data.Type.Equality (TestEquality (..), testEquality,
 (:~:) (..))
Expand DownExpand Up@@ -136,8 +135,10 @@ testSimpleTypesEqualityTransitive =
-- | Test that each type is only equal to itself.
testSimpleTypesEqualityUniqueness :: Property
testSimpleTypesEqualityUniqueness =
 forAllBlind (shuffle simpleTypes) $ \(t:ts) ->
 notElem t ts
 forAllBlind (shuffle simpleTypes) $
 \x -> case x of
 [] -> False
 (t:ts) -> notElem t ts

-- | Simple types tested.
simpleTypes :: [SimpleType]
Expand Down

8 changes: 4 additions & 4 deletions
copilot-core/tests/Test/Copilot/Core/Type/Array.hs

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -141,13 +141,13 @@ testArrayUpdateWrong len =
testArrayMakeWrongLength :: forall n . KnownNat n => Proxy n -> Property
testArrayMakeWrongLength len =
 expectFailure $
 forAll wrongLength $ \length ->
 forAll (xsInt64 length) $ \ls ->
 forAll wrongLength $ \lengt' ->
 forAll (xsInt64 lengt') $ \ls ->
 let array' :: Array n Int64
 array' = array ls
 in arrayElems array' == ls
 where
 xsInt64 length = vectorOf length arbitrary
 xsInt64 lengt' = vectorOf lengt' arbitrary
 expectedLength = fromIntegral (natVal len)
 wrongLength = (expectedLength +) . getNonNegative <$> arbitrary

Expand All@@ -157,7 +157,7 @@ testArrayUpdateElems :: forall n . KnownNat n => Proxy n -> Property
testArrayUpdateElems len =
 forAll xsInt64 $ \ls ->
 forAll position $ \p ->
 forAll xInt64 $ \v ->
 forAll xInt64 $ \_ ->
 let -- Original array
 array' :: Array n Int64
 array' = array ls
Expand Down